Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

17 lines
490 B

on error resume next
const wbemPrivilegeDebug = 19
'set service = GetObject ("winmgmts:{impersonationLevel=impersonate}!root/scenario26")
set service = GetObject ("winmgmts:root/scenario26")
service.security_.privileges.Add wbemPrivilegeDebug
if err <> 0 then
WScript.Echo "1 ", Hex(Err.Number), Err.Description, Err.Source
end if
set process = service.get ("Scenario26.Key=""xy""")
if err <> 0 then
WScript.Echo "2 ", Err.Number, Err.Description, Err.Source
end if