代码搜索：GetObject
找到约 680 项符合「GetObject」的源代码
代码结果 680
www.eeworm.com/read/104928/15681353
vbs sol9-2.vbs
'get a reference to a document
Set objDoc = GetObject("d:\data\word\report.doc")
On Error Resume Next
For Each objProp In objDoc.BuiltinDocumentProperties
Wscript.Echo objProp.Name, objProp.Va
www.eeworm.com/read/104928/15681376
vbs sol10-13.vbs
Dim nStatus, objService, objWMIObject, objWMIObjects
'create process on remote machine
Set objService = _
GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\thor")
'get the act
www.eeworm.com/read/104928/15681378
vbs sol10-10.vbs
'get a reference to the Win32Process class object on specified machine
Set objProcess=GetObject("winmgmts:{impersonationLevel=impersonate}!" & _
"\\Odin\root\cimv2:Win32_Process" )
www.eeworm.com/read/104928/15681392
vbs sol10-9.vbs
Dim objServices, objWMIObject, nResult
Set objServices = GetObject("winmgmts:{impersonationLevel=impersonate}")
Set objWMIObject = objServices.Get("Win32_Process.Handle=326")
nResult = objProcess
www.eeworm.com/read/104928/15681403
vbs page317.vbs
Dim objWMI, nTimeZone
'get a reference to instance of Win32_ComputerSystem class for computer Odin
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}" & _
"!Win32_Comp
www.eeworm.com/read/104928/15681405
txt readme.txt
There's an error for solution 15.2 the line
WebSet objWebService = GetObject("IIS://Thor/W3SVC")
should be
Set objWebService = GetObject("IIS://Thor/W3SVC")
www.eeworm.com/read/104928/15681407
vbs sol15-7.vbs
'get a reference to the file data.txt in Root directory of site 3 on Thor
Set objFile = GetObject("IIS://thor/W3SVC/3/Root/data.txt")
objFile.AccessWrite = False
objFile.SetInfo
www.eeworm.com/read/104928/15681409
vbs sol15-5.vbs
Set objWebService = GetObject("IIS://odin/W3SVC")
'delete the Web server named 3
objWebService.delete "IIsWebServer", 3
www.eeworm.com/read/104928/15681411
vbs page655.vbs
Dim objSite, nF, aBindings
'get a reference to the fourth Web site on server Thor
Set objSite = GetObject("IIS://thor/W3SVC/4")
aBindings = objSite.ServerBindings
ReDim Preserve aBindings(UBound(a