'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  

'**************************************************************