Set WshShell = CreateObject("WScript.Shell") 
WshShell.Run chr(34) & "C:\VMENU_ADVANCE\vmenuPrintServer.bat" & Chr(34), 0
Set WshShell = Nothing