Vbsedit includes all these samples. Try it now!

' Update a Package

On Error Resume Next

Dim objSWbemLocator
Dim objSWbemServices
Dim ProviderLoc
Dim Location
Dim PackageID
Dim colPackages
Dim Package

'Enter the package ID of the package to be updated

'To connect to the local SMS site's Provider by using SWbemLocator
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 = objSWbemLocator.ConnectServer _
      (Location.Machine, "root\sms\site_" + Location.SiteCode)
  End If

'To find the package ID in the SMS_Packages class and use the RefreshPkgSource Method to initiate update.
Set colPackages = objSWbemServices.ExecQuery _
  ("Select * from SMS_Package where PackageID = '" & PackageID & "'")

If colPackages.count <;>; 0 Then
  For Each Package In colPackages
    Package.RefreshPkgSource( )
    WScript.Echo "Package '" & PackageID & "' Updated!"
   WScript.Echo "Package '" & PackageID & "' Not Found!"
End If

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