---

Set oLocator = CreateObject("WbemScripting.SWbemLocator")
Set oServices = oLocator.ConnectServer( , "root\ccm\invagt")
wscript.sleep 3000

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "control smscfgrc", 1, True
wscript.sleep 3000

Set cpApplet = CreateObject("CPAPPLET.CPAppletMgr")
Set actions = cpApplet.GetClientActions
For Each action In actions
action.PerformAction
wscript.Echo action.Name
Next
wscript.Echo "-----------------------------------"
wscript.Echo "Actions was rerun at: " & Now()
wscript.Echo "-----------------------------------"

Dim objResult
Set objShell = WScript.CreateObject("WScript.Shell")  
wscript.Echo ""
wscript.Echo "Launching press Numlock key emulation"
wscript.Echo "(Close the window for exit)"
Do While True
  objResult = objShell.sendkeys("{NUMLOCK}{NUMLOCK}")
  Wscript.Sleep (3000)
For Each action In actions
action.PerformAction
wscript.Echo action.Name
Next
wscript.Echo "-----------------------------------"
wscript.Echo "Actions was rerun at: " & Now()
wscript.Echo "-----------------------------------"
Loop