'v3.A***************************************************** ' File: exec-hidden.vbs ' Autor: dieseyer@gmx.de ' dieseyer.de ' ' Die ExecHide-Function ruft ein weiteres Skript (das ' notfals neu geschrieben wird) auf, welches die Ausgaben ' von Befehlszeilen-Programme (mit DOS-Box) sammelt '********************************************************* Option Explicit MsgBox ExecHide ( "%comspec% /c ""C:\PROGRAM FILES\PINGi.EXE"" 127.0.0.1 -n 1" ), , WScript.ScriptName MsgBox ExecHide ( "%comspec% /c Ping RS6663 -n 1" ), , WScript.ScriptName WScript.Quit '************************************************************** Function ExecHidden ( CMD ) ' v3.A - http://dieseyer.de '************************************************************** Dim FileOut, oWsh, Tmp CMD = Replace( CMD, """", """""" ) Tmp = WScript.CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%") & "\" & "ExecHidden.VBS" Set FileOut = WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile( Tmp , 2, true) ' zum Test nächste Zeile frei geben ' FileOut.WriteLine( " MsgBox """ & CMD & """ , , WScript.ScriptName & "" - Anfang "" " ) FileOut.WriteLine( " Set oExec = WScript.CreateObject(""WScript.Shell"").Exec(""" & CMD & """) " ) FileOut.WriteLine( " Do Until oExec.status : WScript.Sleep 100 : Loop " ) FileOut.WriteLine( " WScript.CreateObject(""WScript.Shell"").Environment( ""volatile"" )( ""Eregbnis"" ) = oExec.StdOut.ReadAll() " ) ' zum Test nächste Zeile frei geben ' FileOut.WriteLine( " MsgBox WScript.CreateObject(""WScript.Shell"").Environment( ""volatile"" )( ""Eregbnis"" ), , WScript.ScriptName & "" - Ende "" " ) FileOut.Close Set FileOuT = nothing Set oWsh = WScript.CreateObject("WScript.Shell") oWsh.Run "CScript.exe //NOLOGO " & Tmp , 0, true ExecHidden = oWsh.Environment("volatile")( "Eregbnis" ) ' zum Löschen der 'Tmp-Datei nächste Zeile frei geben WScript.CreateObject("Scripting.FileSystemObject").DeleteFile( Tmp ) End Function ' ExecHidden ( CMD ) ' v3.A - http://dieseyer.de '**************************************************************