WScript.Echo ChkEngine

Function ChkEngine()
 'returns cscript.exe or WScript.exe
 strEngine=Wscript.FullName
 
 PosX=InStrRev(strEngine,"\",-1,vbTextCompare)
 ChkEngine=Mid(strEngine,PosX+1)
 
 End Function