Option Explicit
Dim Shell, Title, obj
' Fetch the object reference for the Shell
Set Shell = WScript.CreateObject ("Shell.Application")
Set obj = WScript.CreateObject("WScript.Shell")
' invoke the End-method?
If (MsgBox("Logoff?",vbYesNo + vbQuestion, Title) =...