PDA

View Full Version : hide DOS window


dividby0
September 28th 05, 12:54 PM
is it possible to hide a DOS window of batch files (.BAT) after running
them. i want to run a batch file in windows without showing the window
on the screen

R. McCarty
September 28th 05, 01:11 PM
Modify the properties of the shortcut to run Minimized. If the
Batch includes an Exit command the window will close itself.
Or are you asking if you can modify it so that isn't visible in
any way ?

"dividby0" > wrote in message
oups.com...
> is it possible to hide a DOS window of batch files (.BAT) after running
> them. i want to run a batch file in windows without showing the window
> on the screen
>

Torgeir Bakken \(MVP\)
September 28th 05, 06:34 PM
dividby0 wrote:

> is it possible to hide a DOS window of batch files (.BAT) after
> running them. i want to run a batch file in windows without
> showing the window on the screen
Hi,

You can e.g. use a vbscript based batch file launcher for this, this
way you can hide the batch file completely.

Run it like this:

wscript.exe "C:\My Scripts\BatchLauncher.vbs" "C:\My Scripts\tst.bat"

(BatchLauncher.vbs is the VBScript, tst.bat is your batch file)

In the code below, it is the 0 in this line that hides the
batch file execution:

iRC = oShell.Run("""" & sFilePath & """", 0, True)

If you want to run it visible, but minimized, change the 0 to 7.


Content of BatchLauncher.vbs:


'--------------------8<----------------------
sTitle = "Batch launcher"

Set oArgs = WScript.Arguments
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")

If oArgs.Count <> 1 Then
' Will die after 10 seconds if no one is pressing the OK button
oShell.Popup "Error: You need to supply a file path " _
& "as input parameter!", 10, sTitle, vbCritical + vbSystemModal

Wscript.Quit 1
End If

sFilePath = oArgs(0)

If Not oFSO.FileExists(sFilePath) Then
' Will die after 10 seconds if no one is pressing the OK button
oShell.Popup "Error: Batch file not found", _
10, sTitle, vbCritical + vbSystemModal

Wscript.Quit 1
End If

' add quotes around the path in case of spaces
iRC = oShell.Run("""" & sFilePath & """", 0, True)

' Return with the same errorlevel as the batch file had
Wscript.Quit iRC

'--------------------8<----------------------



WSH 5.6 documentation (local help file) can be downloaded
from here if you haven't got it already:
http://msdn.microsoft.com/downloads/list/webdev.asp



--
torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of
the 1328 page Scripting Guide:
http://www.microsoft.com/technet/scriptcenter/default.mspx

dividby0
September 29th 05, 04:52 AM
it worked out just the way i wanted it to
thanks

Google