Set objShell = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
strPath = FSO.GetParentFolderName (WScript.ScriptFullName)
If FSO.FileExists(strPath & "\route.bat") Then
objShell.ShellExecute "cmd.exe", _
"/c " & Chr(34) & strPath & "\route.bat" & Chr(34), "", "runas", 1
Else
MsgBox "Route.bat not found"
End If
|