Dim strConnectionString As String = "\\" & strOldComputerName & "\root\ccm"
Dim scope As ManagementScope
scope = New ManagementScope(strConnectionString)
scope.Connect()
Dim mgmtClass As ManagementClass = New ManagementClass(scope.Path.Path,
"SMS_Client", Nothing)
Dim inParams As ManagementBaseObject =
mgmtClass.GetMethodParameters("TriggerSchedule")
inParams("sScheduleID") = "{00000000-0000-0000-0000-000000000021}"
Dim outParams As ManagementBaseObject =
mgmtClass.InvokeMethod("TriggerSchedule", inParams, Nothing)