24 lines
865 B
Plaintext
24 lines
865 B
Plaintext
'***************************************************************************
|
|
'This script tests the ability to set up instances with keyholes and read
|
|
'back the path and key
|
|
'***************************************************************************
|
|
|
|
On Error Resume Next
|
|
|
|
Set Locator = CreateObject("WbemScripting.SWbemLocator")
|
|
Set Service = Locator.ConnectServer ("lamard3", "root\sms\site_la3", "smsadmin", "Elvis1")
|
|
if Err <> 0 Then
|
|
WScript.Echo Err.Description
|
|
End if
|
|
Service.Security_.ImpersonationLevel = 3
|
|
Set NewPackage = Service.Get ("SMS_Package").SpawnInstance_
|
|
NewPackage.Description = "Scripting API Test Package"
|
|
|
|
Set ObjectPath = NewPackage.Put_
|
|
WScript.Echo "Path of new Package is", ObjectPath.RelPath
|
|
WScript.Echo "New key value is:", ObjectPath.Keys("PackageID")
|
|
|
|
|
|
if Err <> 0 Then
|
|
WScript.Echo Err.Description
|
|
End if |