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