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