Wscript.Quit(1)
End Select
Wait=InputBox("Please enter the number of seconds to give users to finish working before forcibly logging them off:", "Wait Time", "60")
if trim(Wait)="" then Wscript.Quit(1)
Delay=InputBox("Please enter the number of seconds to wait after all users have logged off before shutting down the system:", "Wait Time", "30")
if trim(Delay)="" then Wscript.Quit(1)
' All Parameters have been collected. Now we build the comand line.
ShutdnCMD="tsshutdn.exe "&wait&" /server:"&Server&" "&sOption&" /Delay:"&Delay&" /v"
oShell.RUN(ShutdnCMD)
Wscript.Quit(0)
Если вы хотите создать ссылку, то используйте команду
wscript %systemroot%\system32\<scriptname.vbs>