Vbsedit includes all these samples. Try it now!


' Create an SMS Object



Dim objSWbemServices
Dim objSWbemLocator
Dim ProviderLoc
Dim Location
Dim objPackage

'Connect to local SMS Provider
set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
set objSWbemServices= objSWbemLocator.ConnectServer _
    (".", "root\sms")

Set ProviderLoc = objSWbemServices.InstancesOf("SMS_ProviderLocation")

For Each Location In ProviderLoc
     If Location.ProviderForLocalSite = True Then
        Set objSWbemServices = GetObject("winmgmts:{impersonationLevel=impersonate}!" & Location.NamespacePath)
        Exit For
   End If
Next

Set objPackage = objSWbemServices.Get("SMS_Package").SpawnInstance_()

objPackage.Name = "Test Package"
objPackage.Description = "Sample Package"
objPackage.PkgSourceFlag = 2
objPackage.PkgSourcePath = "C:\temp"

objPackage.Put_

search for scripts


VbsEdit includes all these samples!


VbsEdit now supports .vbs, .js, .wsf and .hta scripts.
The evaluation version never expires.




Home   Scripts

Copyright © 2001-2019 adersοft