
150 Part III: Connect Server and Additional Privileges
ChangeSystemStartUp.vbs
strComputer = "mred" 'name of target computer
wmiNS = "\root\cimv2"
wmiQuery = "win32_ComputerSystem.name='" & strComputer & "'"
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, ...