Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "F:\Test\test.bat", 0, false
Set WshShell = Nothing
WScript.Quit
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "F:\Test\test.bat", 0, false
Set WshShell = Nothing
WScript.Quit
Set objShell = CreateObject("WScript.Shell")
objShell.Run "%COMSPEC% /c net use o: /d", 0, false
objShell.Run "%COMSPEC% /c net use o: \\db-meds\promis", 0, false
Set objShell = Nothing
WScript.Quit