ComatePlus +SWbemLocator (WMI)
Posted: Fri Oct 28, 2011 3:08 pm
I try to translate that into PB and ComatePlus, and I worry.
Is it'll have some idea.
Thanks
Jackymb
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 & "'")
Jackymb
