VBScript unter beliebigem Prozessname ausführen

set objShell = WScript.CreateObject("WScript.Shell")  
set objSysEnv = objShell.Environment("PROCESS")  
set objFileSys = CreateObject("Scripting.FileSystemObject")  

if Wscript.Arguments.Count < 4 then
	MsgBox("Es wurden zu wenige Parameter angegeben. Der korrekte Aufruf lautet " & vbCRLF & "runasprocess.vbs <processname> <wscript|cscript> <32bit|64bit> <scriptpath> <arg1> <arg2> <arg...n>")  
	wscript.quit
end if

strTempPath = lcase(objSysEnv("temp")) & "\"  
strHost32 = lcase(objSysEnv("windir")) & "\system32\"  
strHost64 = lcase(objSysEnv("windir")) & "\system32\syswow64\"  
strProcName = lcase(left(Wscript.Arguments(0), 20))
strScriptHost = lcase(left(Wscript.Arguments(1),2))
strHostVer = lcase(left(Wscript.Arguments(2),2))
strRunScript = lcase(Wscript.Arguments(3))
strNewProcPath = strTempPath & strProcName & "_" & strScriptHost & strHostVer & ".exe"  
strNewProcArgs = ""  

'argumente für zielscript lesen  
for intArg = 4 to Wscript.Arguments.Count - 1
	strNewProcArgs = strNewProcArgs & wscript.arguments(intArg) & " "  
next

'prüfen ob zielscript existiert  
if not objFileSys.FileExists(strRunScript) then
	MsgBox("Das angegebene Script existiert nicht. Bitte prüfen Sie Ihre Eingabe.")  
	wscript.quit
end if

'prüfen ob korrekte angabe für scriptinghost  
if strHostVer <> "64" and strHostVer <> "32" then  
	MsgBox("Für die Scripthost-Version ist nur die Angabe 32Bit oder 64Bit zulässig. Bitte prüfen Sie Ihre Eingabe.")  
	wscript.quit
end if

'temporäre kopie eines früheren durchlaufs löschen  
if objFileSys.FileExists(strNewProcPath) then
	objFileSys.DeleteFile strNewProcPath
end if

'scriptinghost wscript-32bit in neue exe in temp-pfad kopieren  
if strHostVer = "32" and strScriptHost = "ws" then  
	if not objFileSys.FileExists(strHost32 & "wscript.exe") then  
		MsgBox("Es existiert keine 32Bit-Version des Windows-Scriptinghost in " & strHost32)  
		wscript.quit
	end if
	strScriptHostSrc = strHost32 & "wscript.exe"  
	objFileSys.CopyFile strHost32 & "wscript.exe", strTempPath, True  
	objFileSys.MoveFile strTempPath & "wscript.exe", strNewProcPath  
end if

'scriptinghost cscript-32bit in neue exe in temp-pfad kopieren  
if strHostVer = "32" and strScriptHost = "cs" then  
	if not objFileSys.FileExists(strHost32 & "wscript.exe") then  
		MsgBox("Es existiert keine 32Bit-Version des Windows-Scriptinghost in " & strHost32)  
		wscript.quit
	end if
	objFileSys.CopyFile strHost32 & "cscript.exe", strTempPath, True  
	objFileSys.MoveFile strTempPath & "cscript.exe", strNewProcPath  
end if

'scriptinghost wscript-64bit in neue exe in temp-pfad kopieren  
if strHostVer = "64" and strScriptHost = "ws" then  
	if not objFileSys.FileExists(strHost32 & "wscript.exe") then  
		MsgBox("Es existiert keine 32Bit-Version des Windows-Scriptinghost in " & strHost32)  
		wscript.quit
	end if
	objFileSys.CopyFile strHost64 & "wscript.exe", strTempPath, True  
	objFileSys.MoveFile strTempPath & "wscript.exe", strNewProcPath  
end if

'scriptinghost cscript-64bit in neue exe in temp-pfad kopieren  
if strHostVer = "64" and strScriptHost = "cs" then  
	if not objFileSys.FileExists(strHost32 & "wscript.exe") then  
		MsgBox("Es existiert keine 32Bit-Version des Windows-Scriptinghost in " & strHost32)  
		wscript.quit
	end if
	objFileSys.CopyFile strHost64 & "cscript.exe", strTempPath, True  
	objFileSys.MoveFile strTempPath & "cscript.exe", strNewProcPath  
end if

'zielscript mit kopie des scriptinghost ausführen  
strCmd = strNewProcPath & " " & strRunScript & " " & strNewProcArgs  
objShell.Run strCmd,1,false
wscript.quit

runasprocess.vbs <processname> <wscript|cscript> <32bit|64bit> <scriptpath> <arg1> <arg2> <arg...n>