---

Set oLocator = CreateObject("WbemScripting.SWbemLocator")
Set oServices = oLocator.ConnectServer( , "root\ccm\invagt")
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 run"
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 (10000)
Loop