'************************************************
' 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