62 lines
1.7 KiB
Plaintext
62 lines
1.7 KiB
Plaintext
' Copyright (c) Microsoft Corporation, All Rights Reserved
|
|
'***************************************************************************
|
|
'
|
|
' WMI Sample Script - Object path manipulation (JScript)
|
|
'
|
|
' This script demonstrates how to build object paths.
|
|
'
|
|
'***************************************************************************
|
|
on error resume next
|
|
Set ObjectPath = CreateObject("WbemScripting.SWbemObjectPath")
|
|
ObjectPath.Server = "dingle"
|
|
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 ""
|
|
|