Create HiddenRun.vbs

HiddenRun.vbs

@@ -0,0 +1,49 @@
+' Usage:
+'   wscript.exe //E:vbscript HiddenRun.vbs C:\Temp\CustomFoo.bat
+'
+' Will run your batch in a completely hidden command prompt, same as if you called it like this:
+'   C:\Temp\CustomFoo.bat
+'
+' More Info: https://github.com/UNT-CAS/HiddenRun
+
+Set oShell = CreateObject("Wscript.Shell")
+
+Const LOG_EVENT_SUCCESS = 0
+Const LOG_EVENT_ERROR = 1
+Const LOG_EVENT_INFORMATION = 4
+
+Dim iExitStatus : iExitStatus = LOG_EVENT_SUCCESS
+Dim sArgs : sArgs = ""
+Dim sMessage : sMessage = ""
+
+For Each sArg in Wscript.Arguments
+    If Len(sArg) > 0 Then
+        sArgs = sArgs & " "
+    End If
+
+    If InStr(sArg, " ") > 0 Then
+        ' If there's a space in the argument, wrap it in quotes.
+        sArgs = sArgs & """" & sArg & """"
+    Else
+        sArgs = sArgs & sArg
+    End If
+Next
+
+sMessage = "HiddenRun Running: " _
+            & vbCrLf & vbTab & Wscript.ScriptFullName _
+            & vbCrLf & vbTab & sArgs
+oShell.LogEvent LOG_EVENT_INFORMATION, sMessage
+
+iReturn = oShell.Run(sArgs, 0, True)
+
+If iReturn <> 0 Then    
+    iExitStatus = LOG_EVENT_ERROR
+End If
+
+sMessage = "HiddenRun Exited: " _
+            & vbCrLf & vbTab & Wscript.ScriptFullName _
+            & vbCrLf & vbTab & sArgs _
+            & vbCrLf & vbTab & "Exit Code: " & iReturn
+oShell.LogEvent iExitStatus, sMessage
+
+Wscript.Quit iReturn