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.
53 lines
1.4 KiB
53 lines
1.4 KiB
on error resume next
|
|
Set ObjectPath = CreateObject("WbemScripting.SWbemObjectPath")
|
|
ObjectPath.Server = "hah"
|
|
ObjectPath.Namespace = "root/default/something"
|
|
ObjectPath.Class = "ho"
|
|
ObjectPath.Keys.Add "fred1", 10
|
|
ObjectPath.Keys.Add "fred2", -34
|
|
ObjectPath.Keys.Add "fred3", 65234654
|
|
ObjectPath.Keys.Add "fred4", "Wahaay"
|
|
ObjectPath.Keys.Add "fred5", -786186777
|
|
|
|
if err <> 0 then
|
|
WScript.Echo err.number
|
|
end if
|
|
|
|
WScript.Echo "Pass 1:"
|
|
WScript.Echo ObjectPath.Path
|
|
WScript.Echo ObjectPath.DisplayName
|
|
WScript.Echo ""
|
|
|
|
ObjectPath.Security_.ImpersonationLevel = 3
|
|
|
|
WScript.Echo "Pass 2:"
|
|
WScript.Echo ObjectPath.Path
|
|
WScript.Echo ObjectPath.DisplayName
|
|
WScript.Echo ""
|
|
|
|
ObjectPath.Security_.AuthenticationLevel = 5
|
|
|
|
WScript.Echo "Pass 3:"
|
|
WScript.Echo ObjectPath.Path
|
|
WScript.Echo ObjectPath.DisplayName
|
|
WScript.Echo ""
|
|
|
|
Set Privileges = ObjectPath.Security_.Privileges
|
|
if err <> 0 then
|
|
WScript.Echo Hex(Err.Number), Err.Description
|
|
end if
|
|
Privileges.Add 8
|
|
Privileges.Add 20, false
|
|
|
|
WScript.Echo "Pass 4:"
|
|
WScript.Echo ObjectPath.Path
|
|
WScript.Echo ObjectPath.DisplayName
|
|
WScript.Echo ""
|
|
|
|
ObjectPath.DisplayName = "winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktprivacy,(Debug,!IncreaseQuota, CreatePagefile ) }!//fred/root/blah"
|
|
|
|
WScript.Echo "Pass 5:"
|
|
WScript.Echo ObjectPath.Path
|
|
WScript.Echo ObjectPath.DisplayName
|
|
WScript.Echo ""
|
|
|