Set myRF = CreateObject("RoboFocus.FocusControl")

     myRF.actUserButtonToggle(2)

   myRF.actUserButtonToggle(4) 

		WScript.Sleep(27000)

   myRF.actUserButtonToggle(4)
		WScript.Sleep(10000)
     myRF.actUserButtonToggle(2)	 
		WScript.Sleep(10000)
Set Wmi = GetObject("winmgmts:") 
sWmiq = "select * from Win32_Process where name='CCDSoft.exe'" 
Set QResult = Wmi.Execquery(sWmiq) 
For Each Process In QResult 
  iRet = Process.Terminate(1)
Next 
		WScript.Sleep(10000)
sWmiq = "select * from Win32_Process where name='Focusmax.exe'" 
Set QResult = Wmi.Execquery(sWmiq) 
For Each Process In QResult 
  iRet = Process.Terminate(1)
Next 
		WScript.Sleep(10000)
sWmiq = "select * from Win32_Process where name='TheSky6.exe'" 
Set QResult = Wmi.Execquery(sWmiq) 
For Each Process In QResult 
  iRet = Process.Terminate(1)
Next 
		WScript.Sleep(10000)