QC OTA || Add/Upload a bussiness component into qc

'Code to add/upload business component into QC
'Note:to use this code Extended Storage Object has to be enabled in site Admin
 sub add_comp()
 qcUser = ""
    qcPassword = ""
    Domain = ""
    Project = ""
   
    qcServer = "http://qcHostName:qcPort/qcbin"

    Set tdc = CreateObject("TDApiOle80.TDConnection")
    tdc.InitConnectionEx qcServer
    tdc.Login qcUser, qcPassword
    tdc.Connect Domain, Project
     Set objCompFldrFact = tdc.ComponentFolderFactory
    Set rootCompFldr = objCompFldrFact.Root
    Set compFactory = rootCompFldr.ComponentFactory
    ' Add the component
    compName = "Test_comp"
     Set myComp = compFactory.AddItem(Null)
    Dim errString As String
    If (compFactory.IsComponentNameValid(compName, errString)) Then
        myComp.Name = compName
       ' myComp.ExtendedStorage (0)
         myComp.ScriptType = "QT-SCRIPTED"
        myComp.ApplicationAreaID = 897
        myComp.Post
        Set extStor = myComp.ExtendedStorage(0)
        extStor.ClientPath = "C:\Backup\ECC\Login"
         extStor.Save "-r *.*", True
    Else
        myComp.Name = "DefaultValidName"
        MsgBox errString
    End If
    'Loads all the files from the directory
    myComp.Post
 'addding parameters to the added component
    Set compParamFactory = myComp.ComponentParamFactory
    Set compParam1 = compParamFactory.AddItem(Null)
    compParam1.IsOut = 0    'false
    compParam1.Name = compName
    compParam1.desc = "Description for test parameter"
    compParam1.ValueType = "String"
    compParam1.Order = 1
    compParam1.Post
    Set compParam1 = Nothing
 Set compParamFactory = Nothing
 Set extStor =  Nothing
 Set myComp = Nothing
 Set objCompFldrFact = Nothing
    Set rootCompFldr = Nothing
    Set compFactory = Nothing
 'Disconnect from the project
 If tdc.Connected Then
  tdc.Disconnect
 End If
 ''Log off the server
 If tdc.LoggedIn Then
 tdc.Logout
 End If
 ''Release the TDConnection object
 tdc.ReleaseConnection
 Set tdc = Nothing

end sub

VbScript to call windows API Functions (user32 dll)

We can make use excel object and ExecuteExcel4Macro method to call User32 DLL methods.

Below is the syntax:

CALL(dll_name, function_name, type_string, func_arguments1, ..., func_argumentsN)

dll_name - the name of the DLL, which contains the desired function. This name must contain the full path if the DLL is not located in your Windows, System folder, or the folder specified in the environment variable PATH.
function_name - name of the function.
type_string - text string that identifies the data type of the return value and the data types of all parameters. The first character type_string defines the return value.
func_arguments1, ..., func_argumentsN - function parameters. Their types must comply type_string. It may be transmitted up to 27 parameters.
Data types for type_string:
B - 8-byte floating-point number (IEEE), Transferred by Value, C type double.
C - Zero (null) terminated string (max. Length = 255 characters), Transferred by Reference, C type char *
F - Zero (null) terminated string (max. Length = 255 characters), Transferred by Reference (modify in place), C type char *
J - 4 bytes wide signed integer, Transferred by Value, C type long int
P - Excel's OPER data structure, Transferred by Reference, C type OPER *
R - Excel's XLOPER data structure, Transferred by Reference, C type XLOPER *
Examples:

Dim hwnd

CreateObject("WScript.Shell").Run "notepad", 1, False
With CreateObject("Excel.Application")
 hwnd = .ExecuteExcel4Macro("CALL(""user32"", ""FindWindowA"", ""JCJ"", ""Notepad"", 0)")
 If hwnd = 0 Then
  wscript.echo "note pad window not found"
  WScript.Quit
 Else
  wscript.echo "note pad window found"

  Excel.ExecuteExcel4Macro "CALL(""user32"",""ShowWindow"",""JJJ""," & hwnd & ","& SW_
RESTORE
&")"

 End If
end with

*********************************************************
some other uses:
  GetPIDByHWND = excel.ExecuteExcel4Macro("CALL(""user32"", ""GetWindowThreadProcessId"", ""2JN"", " & CStr(hwnd) & ", 0)")
  hwnd = excel.ExecuteExcel4Macro("CALL(""user32"", ""GetDesktopWindow"", ""J"")")
  hwnd = excel.ExecuteExcel4Macro("CALL(""user32"", ""GetWindow"", ""JJJ"", " & CStr(hwnd) & ", 5)")
' Puts the cursor at the specified X and Y corrdinates
  Excel.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"",""JJJ""," & x & "," & y & ")")