So schließen Sie das CMD-Eingabeaufforderungsfenster nach erfolgreicher Ausführung von VBScript

Question

Ich rufe ein VBScript von einem anderen aus, um es als Administrator auszuführen. Folgenden ist der Fragesteller VBScript-Code

Set objShell = CreateObject("Shell.Application") 
objShell.ShellExecute "cscript", "C:\Temp\XYZ.vbs", "", "runas", 0 
Wscript.Quit 1 

Es folgt der XYZ.vbs Code

On Error Resume Next 

Dim strComputerRole, strDomain, strComputer, strText, strText2 
Dim arrServiceList, strNextLine 
Dim objFile, objFile2, strFile, strSysDrive, strTempDir, strSQLcommand 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objShell = wscript.createObject("Wscript.Shell") 
Set colProcEnvVars = objShell.Environment("Process") 
Set colSystemEnvVars = objShell.Environment("System") 

strComputer = "." 

Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
strSysDrive = colProcEnvVars("systemdrive") 
strTempDir = colProcEnvVars("SY0") 

Const ForReading = 1 
Const ForWriting = 2 
Const ForAppending = 8 


If strSysDrive = "" Then 
    strSysDrive = "C:" 
End If 

If strTempDir = "" Then 
    strTempDir = strSysDrive & "\Temp" 
End If 

If Not objFSO.FolderExists(strTempDir) Then 
    objFSO.CreateFolder(strTempDir) 
End If 
strFile = strSysDrive & "\temp\XYZ.txt" 
strSQLcommand="osql -o "& strFile & " -d HOST -E -Q ""************Select Query******** """ 
Set objExecObject = objShell.Exec(strSQLcommand) 

Nach OSQL erfolgreich ausgeführt cmd ein. Aber nach der Ausführung bekomme ich dieses CMD-Eingabeaufforderungsfenster geöffnet. Gibt es eine Möglichkeit, die Eingabeaufforderung nach erfolgreicher Ausführung zu schließen?

Answer 1

Sie haben/K nach cmd.exe angegeben, was "Befehl ausführen und Befehlsfenster offen halten" bedeutet. Verwenden Sie stattdessen/C, was bedeutet "Befehl ausführen und Befehlsfenster schließen".

Wenn Sie "cmd.exe /?" Ausführen Sie erhalten eine Liste aller Parameter und ihrer Beschreibungen.