Const Quote = """"
Set Shell = CreateObject("WScript.Shell")
Shell.CurrentDirectory = WScript.Arguments(1)
command = Replace(WScript.Arguments(0),"~",Quote)
Shell.Run command, 0, False