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.
|
|
'***************************************************************************'This script tests the ability to set up instances with keyholes and read'back the path'***************************************************************************
On Error Resume Next
Set Locator = CreateObject("WbemScripting.SWbemLocator")Set Service = Locator.ConnectServer ("[http://calvinids/cimom]", "root\default")Service.Security_.ImpersonationLevel = 3Set o = Service.Get ("sms_package")WScript.Echo o.Path_.DisplayName
Set NewPackage = o.SpawnInstance_NewPackage.Description = "Scripting API Test Package"Set ObjectPath = NewPackage.Put_WScript.Echo "Path of new Package is", ObjectPath.RelPath
if Err <> 0 Then WScript.Echo Err.DescriptionEnd if
|
