k, try with changing this:
	$oExec = CreateObject("WScript.Shell").Exec($ShellCMD)
	If Not VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf
	While Not $oExec.Status Loop


to:
	$oExec = CreateObject("WScript.Shell")
	If Not VarType($oExec)=9 $WshPipe="WScript.Shell Unsupported" Exit 10 EndIf
	$oExec = $oExec.Exec($ShellCMD)
	If Not VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 11 EndIf
	While Not $oExec.Status Loop
_________________________
!

download KiXnet