Set oShell = CreateObject("WScript.Shell") ' Run the command dir in a hidden window without waiting for it to finish oShell.Run "dir", 0, false ' Run the command dir in a visible window and wait for it to finish oShell.Run "dir", 1, true