We often work with a lot of COM objects, and it may cause errors if we define them incorrectly, so, here is a list of commonly used COM objects.
Set oQTPApp = CreateObject ("QuickTest.Application")
Set oWSHNetwork = CreateObject ("WScript.Network")
Set oWSHShell = CreateObject ("WScript.Shell")
Set oShell = CreateObject ("Shell.Application")
Set oFSO = CreateObject ("Scripting.FileSystemObject")
Set oWMI = GetObject ("WinMgmts:")
Set oWMIService = GetObject ("WinMgmts:{ImpersonationLevel=Impersonate}!\\.\Root\Cimv2") ' ''The "." can be replaced by compturename
Set oADOConn = CreateObject ("ADODB.Connection")
Set oADORecSet = CreateObject ("ADODB.Recordset")
Set oDeviceReplay = CreateObject ("Mercury.DeviceReplay")
Set oIE = CreateObject ("InternetExplorer.Application")
Set oDic = CreateObject ("Scripting.Dictionary")
Set oWinHTTP = CreateObject ("WinHTTP.WinHTTPRequest.5.1")
Set oXmlDoc = CreateObject ("Microsoft.XmlDom")
Set oXml2Doc = CreateObject ("MSXml2.DOMDocument.5.0")
Set oSoapClient = CreateObject ("MSSoap.SoapClient")
Set oCal = CreateObject ("MSCAL.Calendar")
Set oQuattro = CreateObject ("QuattroPro.PerfectScript")
Set oWPerfect = CreateObject ("WordPerfect.PerfectScript")
Set oRandom = CreateObject ("System.Random")
Set oArrList = CreateObject ("System.Collections.ArrayList")
Set oSortList = CreateObject ("System.Collections.SortedList")
Set oiTunes = CreateObject ("iTunes.Application")
Set oWMPlayer = CreateObject ("WMPlayer.OCX")
Set oWM7Player = CreateObject ("WMPlayer.OCX.7")
Set oRealPlayer = CreateObject ("rmocx.RealPlayer G2 Control.1")
Set oFSDialog = CreateObject ("SAFRCFileDlg.FileSave")
Set oFODialog = CreateObject ("SAFRCFileDlg.FileOpen")
Set oDialog = CreateObject ("UserAccounts.CommonDialog")
Set oWOL = CreateObject ("UltraWOL.ctlUltraWOL")
Set oSearcher = CreateObject ("Microsoft.Update.Searcher")
Set oEmail = CreateObject ("CDO.Message")
Set oInet = CreateObject ("InetCtls.Inet.1")
Set oExcel = CreateObject ("Excel.Application")
Set oOutlook = CreateObject ("Outlook.Application")
Set oPpt = CreateObject ("PowerPoint.Application")
Set oWord = CreateObject ("Word.Application")
Set oHTML = CreateObject ("HTMLFile")
No comments:
Post a Comment