ComatePlus +SWbemLocator (WMI)

[jackymb]

I try to translate that into PB and ComatePlus, and I worry.
Is it'll have some idea.

Code: Select all

'To connect to the local SMS site's Provider by using SWbemLocator
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

Set objSWbemServices= objSWbemLocator.ConnectServer("SMS-Srver", "root\sms","Username","Password)")
Set ProviderLoc = objSWbemServices.InstancesOf("SMS_ProviderLocation")

'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 & "'") 

Thanks

Jackymb

[em_uk]

Give it a go and see what you come up with.

At least put some effort into it!