‘/////////////////////////////////////////////////////////////////////////////’
Sub CheckStartMode
‘ Ensure script is launched in CScript.
‘/////////////////////////////////////////////////////////////////////////////’

‘ Returns the running executable as lowercase from the last \ symbol
Dim strStartExe
strStartExe = LCase(Mid(WScript.FullName, _
InStrRev(WScript.FullName, “\”) + 1 ) )

If Not strStartExe = LCase(”CScript.exe”) Then
Const HIDDEN_WINDOW = 0

Dim strComputer
Dim intProcessID
Dim objWMIService, objStartup, objConfig, objProcess

strComputer = “.”

Set objWMIService = GetObject(”winmgmts:\\” & strComputer & “\root\cimv2″)
Set objStartup = objWMIService.Get(”Win32_ProcessStartup”)
Set objConfig = objStartup.SpawnInstance_

objConfig.ShowWindow = HIDDEN_WINDOW

Set objProcess = GetObject(”winmgmts:\\” & strComputer & _
“\root\cimv2:Win32_Process”)

objProcess.Create “CScript.exe “”" & _
WScript.ScriptFullName & “”"”, null, objConfig, intProcessID

End If

End Sub
‘/////////////////////////////////////////////////////////////////////////////’