142 Part III: Connect Server and Additional Privileges
PrivilegesAtSWbemLocator.vbs
strComputer = "."
wmiNS = "\root\cimv2"
strUsr =""'Blank for current security. Domain\Username
strPWD = ""'Blank for current security.
strLocl = "MS_409" 'U.S. English. Can leave blank for current language
strAuth = ""'if specify domain in strUsr, this must be blank
iFlag = "0" 'only two values allowed here: 0 (wait for connection), 128 (wait max two min)
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set
objWMIService = objLocator.ConnectServer(strComputer, wmiNS, _
strUsr, strPWD, strLocl, strAuth, iFlag)
Set objWMISecurity = objWMIService.Security_.privileges
The actual code used to create a security object for the locator object is ...