Set WshShell = CreateObject("WScript.Shell")
Set args = Wscript.Arguments
Set Shortcut = WshShell.CreateShortcut(args(0) & "\シャットダウンと終了処理.lnk")
Shortcut.TargetPath = args(0) & args(1)
Shortcut.Arguments = args(2)
Shortcut.WorkingDirectory = args(0)
Shortcut.Save
WScript.Quit(0)