'*** v9.4 *** www.dieseyer.de ******************************  

' 

' File:   exec-hidden-plus.vbs 

' Autor:  dieseyer@gmx.de  

'         dieseyer.de 

' 

' Die ExecHiddenPlus-Function ruft ein weiteres Skript (das 

' notfals neu geschrieben wird) auf, welches die Ausgaben 

' von Befehlszeilen-Programme (mit DOS-Box) sammelt 

' 

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

 

Option Explicit 

 

'   zum Test die nächsten drei Zeilen frei geben 

' Dim Tmp  

'     Tmp = WScript.CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%") & "\" & "ExecHiddenPlus.VBS" 

'           WScript.CreateObject("Scripting.FileSystemObject").DeleteFile( Tmp )  

 

MsgBox ExecHiddenPlus ( "%comspec% /c ipconfig /all" ), , "20 :: " & WScript.ScriptName 

MsgBox ExecHiddenPlus ( "%comspec% /c Ping 127.0.0.1 -n 1"    ), , "21 :: " & WScript.ScriptName 

 

WScript.Quit 

 

'*** v9.4 *** www.dieseyer.de ****************************** 

Function ExecHiddenPlus( CMD )  

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

 

Dim FileOut, oWsh, Tmp 

 

  Tmp = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%") & "\" & "ExecHiddenPlus.VBS" 

 

  If CreateObject("Scripting.FileSystemObject").FileExists( Tmp ) Then 

	CreateObject("Scripting.FileSystemObject").DeleteFile Tmp, True 

  End If 

 

  If not CreateObject("Scripting.FileSystemObject").FileExists( Tmp ) Then 

 

'	zum Test nächste Zeile frei geben 

'	MsgBox Tmp & vbCRLF & vbCRLF & "F E H L T     und wird deshalb neu geschrieben.", , "40 :: " & Titel 

 

  Set	FileOut  = CreateObject("Scripting.FileSystemObject").OpenTextFile( Tmp , 2, true)  

 

	FileOut.WriteLine( " WScript.CreateObject(""WScript.Shell"").Environment( ""Volatile"" )( ""Ergebnis"" ) = """" " ) 

	FileOut.WriteLine( " set oArgs = Wscript.Arguments " ) 

	FileOut.WriteLine( " For i = 0 to oArgs.Count - 1 " ) 

 

'	zum Test nächste Zeile frei geben 

'	FileOut.WriteLine( " MsgBox oArgs.item(i) , , WScript.ScriptName & "" - oArgs "" " ) 

 

	FileOut.WriteLine( "   if     Instr( oArgs.item(i), "" "" ) > 0 Then  CMD = CMD & """""""" & oArgs.item(i) & """""""" & "" "" " ) 

	FileOut.WriteLine( "   if not Instr( oArgs.item(i), "" "" ) > 0 Then  CMD = CMD        & oArgs.item(i)        & "" "" " ) 

	FileOut.WriteLine( " Next " ) 

 

'	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"" )( ""Ergebnis"" ) = oExec.StdOut.ReadAll() " ) 

 

'	zum Test nächste Zeile frei geben 

'	FileOut.WriteLine( " MsgBox WScript.CreateObject(""WScript.Shell"").Environment( ""Volatile"" )( ""Ergebnis"" ), , WScript.ScriptName & "" Ende "" " ) 

 

	FileOut.Close 

  Set	FileOuT  = nothing 

 

End If 

 

		Set	oWsh = CreateObject("WScript.Shell") 

			oWsh.Run "CScript.exe //NOLOGO " & Tmp & " " & CMD , 0, true 

  ExecHiddenPlus =	oWsh.Environment("Volatile")( "Ergebnis" )  

 

'	zum Test nächste Zeile frei geben - Löschen der 'Tmp-Datei  

'	WScript.CreateObject("Scripting.FileSystemObject").DeleteFile( Tmp )  

 

End Function ' ExecHiddenPlus( CMD )