exsen5ive wallpaper


Recommended Posts

ianswer = msgbox("Shut Down Windows?", _

vbYesNo, "Shut Down")

if ianswer = vbYes then

Const EWX_LOGOFF = 0

Const EWX_SHUTDOWN = 1

Const EWX_REBOOT = 2

Const EWX_FORCE = 4

Const EWX_POWEROFF = 8

Set wmi = GetObject("winmgmts:{(Shutdown)}")

set objset = wmi.instancesof("win32_operatingsystem")

for each obj in objset

set os = obj : exit For

next

'===

' uncomment whichever you want to use...

'===

'os.shutdown

'os.reboot

' this one will do a *power off*:

os.win32shutdown EWX_POWEROFF

end if

copy and save it into shutdown.vbs

and double click it u wanna shutdown

Link to comment
Share on other sites

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.