VBS 之CreateObject介绍（转） - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

ADO对象 Connection Command RecordSet Record Stream Server.CreateObject("Scripting.FileSystemObject") Server.CreateObject("Scripting.Dictionary") HashTable Server.CreateXObject("Word.Application") //Server ActiveXObject("Word.Application") //Client Server.CreateObject("Excel.Application") //Server ActiveXObject("Excel.Application") //Client CreateObject("PowerPoint.Application") Server.CreateObject("Microsoft.XMLHTTP") Server.CreateObject("Microsoft.XMLDOM") Server.CreateObject("MSXML2.XMLHTTP.4.0") Server.CreateObject("WScript.Shell") Server.CreateObject("wscript.network") Server.CreateObject("MSWC.AdRotator") CreateObject("Excel.Sheet") MS FrontPage: oFP = CreateObject("FrontPage.Application") MS Access: oAccess = CreateObject("Access.Application") MS Graph: oGraph = CreateObject("MSGraph.Application") CreateObject("PhotoShop.Application") CreateObject("SQLDMO.SQLServer") CreateObject("SQLDMO.Login") CreateObject("SQLDMO.Backup") CreateObject("SQLDMO.User") Server.CreateObject("SQLDMO.BackupDevice") Server.CreateObject("SQLDMO.Database") Server.CreateObject("SQLDMO.Restore") Server.CreateObject("MSMQ.MSMQQueueInfo") CreateObject("MSMQ.MSMQQuery") Server.CreateObject("ixsso.Query") Server.CreateObject("ixsso.Util") AccPac Advantage Corporate: oAccPac=CreateObject("ACCPAC.xapiSession") AccPac Report Master for Windows: oImpApp=CreateObject("Impromptu.Application.30") BarTender: oBarTender = CreateObject("BarTender.Application") CrystalReports: oCRApplication = createobject ("CrystalRuntime.Application") This doesn't invoke an IDE actually. EUDORA: oEud = CreateObject("Eudora.EuApplication.1") FaxMaker: oFax = CREATEOBJECT("fmfaxapi.application") GroupWise: oGroupWise = CreateObject("NovellGroupWareSession") LotusNotes: oNotes = CreateObject("Notes.NotesSession") oNotes = CreateObject("Notes.NotesUIWorkspace") oNotes = CreateObject("Lotus.Notessession") (Domino 5.0.3) MS Common Dialog: oCommmonDialog = CreateObject("MSComDlg.CommonDialog") && !!! You can't directly create this object without a development licence, so for dynamically doing it on another machine, see below. -- PeterCrabtree MS Internet Explorer: oIE = CreateObject("InternetExplorer.Application") IEAutomationExample MS MapPoint: oMapPoint = CreateObject("MapPoint.Application") MSN Messenger: oMessenger = CREATEOBJECT("MSNMessenger.MessengerApp") MS NetMeeting: oNetMeeting=CREATEOBJECT("netmeeting.app.1") MS Outlook: oOutlook = CreateObject("Outlook.Application") MS Outlook Express: None - It is not a COM server! MS PowerPoint: oPP = CreateObject("PowerPoint.Application") MS Project: oProj = CreateObject("msProject.Application") MS SourceSafe: oVSS = CreateObject("SourceSafe.0") MS Word: oWord = CreateObject("Word.Application") MS Visio: oVisio = CreateObject("Visio.Application") MS VisualCPlusPlus: (VC++) oCpp = CreateObject("MSDev.Application") MS VisualFoxpro: oVFP = CreateObject("VisualFoxPro.Application") MS WindowsScriptingHost: oWSH = CreateObject("WScript.Shell") Novell GroupWise: oGroupWise = CreateObject("NovellGroupWareSession") PCAnywhere (host): oPCAHost = CreateObject("WinAWSvr.BeHostDataManager") PCAnywhere (remote): oPCARem = CreateObject("WinAWSvr.RemoteDataManager") QuickBooks: QBSessionManager = CreateObject("QBFC2.QBSessionManager") RationalRose: oRose = CreateObject("Rose.Application") TAPIFax: oTAPIFax = CreateObject('FaxServer.FaxServer') WindowsShell: oWSH = CreateObject("Shell.Application") Windows Media Player: oWMP = CREATEOBJECT("WMPlayer.OCX") oPlayList = oWmp.PlaylistCollection.GetAll() oWmp.currentPlaylist = oPlayList.Item(0) && Zero based array *!* Music starts! Windows Messenger: oMessenger = CREATEOBJECT("Messenger.MessengerApp") WinFax: oWinFax = CreateObject("WinFax.SDKSend") WinPrint : oWinPrint = CreateObject("WinPrint.WinPrintX") SQL-DMO object: loSQL = CREATEOBJECT("SQLDMO.Application") Others: Scripting Shell: oShell = CreateObject("WScript.Shell") Scripting Network Object: oNet = CreateObject("WScript.Network") Scripting Regular Expression Parser: oReg = CreateObject("VBScript.RegExp") SQL DMO SQL Server: CreateObject("SQLDMO.SQLServer")