答案:'************************************************
' file: RunExit.vbs (WSH sample in VBScript)
' Author: (c) G. Born
'
' Using the Run method to call the Windows 95/98
' ExitWindows API function
'************************************************
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
If (MsgBox("Shut down Windows 95/98", vbYesNo + vbQuestion, _
"WSH sample - by G. Born") = vbYes) Then _
WshShell.Run _
"%WINDIR%\RunDll32.exe user,ExitWindows", 1, -1
'*** End
上一个:也许是好东西——Windows Script Host-4获取当前目录
下一个:也许是好东西——Windows Script Host-7Format