Dim scriptName : scriptName = WScript.ScriptFullName scriptName = Left(scriptName, Len(scriptName) - 4) & ".bat" Set WshShell = CreateObject("WScript.Shell" ) WshShell.Run chr(34) & scriptName & Chr(34), 0 Set WshShell = Nothing