Set shell = CreateObject("WScript.Shell")
scriptPath = Replace(WScript.ScriptFullName, ".vbs", ".cmd")
shell.Run Chr(34) & scriptPath & Chr(34), 0, False