BatPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))
Set Shell=WScript.CreateObject("WScript.Shell")
Shell.run ("%Comspec% /k "&"cd "& Chr(34) & BatPath & Chr(34))
BatPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))
Set Shell=WScript.CreateObject("WScript.Shell")
Shell.run ("%Comspec% /c "&"cd "& Chr(34) & BatPath & Chr(34))