Set objExcel =Createobject("Excel.Application")
Set qtApp = Createobject("QuickTest.Application")
Set oOutlook = CreateObject("Outlook.Application")
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
Set objWord = CreateObject("Word.Application")
Set xmlDoc1 = CreateObject(”Msxml2.DOMDocument”)
Set objIE = CreateObject( “InternetExplorer.Application” )
Set oFS = CreateObject( “Scripting.FileSystemObject” )
Set var_CreateInstance = DotNetFactory.CreateInstance (TypeName [,Assembly] [,args])
Set var_CreateInstance = DotNetFactory.CreateInstance (TypeName [,Assembly] [,args])
Set dr = CreateObject("Mercury.DeviceReplay")
Set objWshell=CreateObject("Wscript.shell")
Set XMLObj = XMLUtil.CreateXML()
Set gApp = CreateObject( "AcroExch.App" )
Set acavdocu = CreateObject( "AcroExch.AVDoc" )
Set gPDDoc = CreateObject( "AcroExch.PDDoc" )
Set acroHiList = CreateObject( "AcroExch.HiliteList" )
Set oDialog = CreateObject( "UserAccounts.CommonDialog" )
Set pdBookmark = CreateObject( "AcroExch.PDBookmark" )
Set acroRect = CreateObject( "AcroExch.Rect" )
Set oConn = CreateObject("ADODB.Connection")
Set oRst = CreateObject("ADODB.Recordset")
Set tdc = CreateObject("TDApiOle80.TDConnection")
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
Set oDeviceReplay= CreateObject( "Mercury.DeviceReplay" )
Set fCompare = CreateObject("Mercury.FileCompare")
Set dict = CreateObject(“Scripting.Dictionary”)
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
Set qtApp = CreateObject("QuickTest.Application", "Remote Machine Name")
Set oWordBasic = CreateObject("Word.Basic")
Set shl=createobject("shell.application")
Set xmlDoc2 = CreateObject(“Msxml2.DOMDocument”)
Set oWordBasic = CreateObject("Word.Basic")
Set scrControl=CreateObject("msscriptcontrol.scriptcontrol")
Set objRegEx = CreateObject("VBScript.RegExp")
Set ExcelSheet = CreateObject("Excel.Sheet")
Set cb=CreateObject("Mercury.Clipboard")
Set qtUpdateRunOptions = CreateObject("QuickTest.UpdateRunOptions")
Set qtRunResultsOptions = CreateObject("QuickTest.RunResultsOptions")
Set td=Createobject("TDApiOle80.TDConnection.1")
Set currentDocument = oWord.Documents(1)
Set nAmeSpace = oUtlookApp.GetNamespace("MAPI")
Set newMail = oUtlookApp.CreateItem(0)
Set objDesc = Description.Create
Set app = Excelbook.Workbooks.Open (Filepath)
Set worksheet = Excelbook.ActiveSheet
Set nAmeSpace = oUtlookApp.GetNamespace("MAPI")
Set newMail = oUtlookApp.CreateItem(0)