Seu Windows XP está com dificuldades para Desligar? Utilize o "script" abaixo para a realização de tal procedimento, até que você possa reinstalar o Sistema Operacional. Obs.: Copie e Cole o conteúdo no "Bloco de Notas", salve o mesmo e execute quando necessário.

' *** By Márcio Caputo - Tecton Tecnologia - all rights reserved ***


Option Explicit

Private Const LOGOFF = 0

Private Const SHUTDOWN = 1
Private Const REBOOT = 2

Private Const POWEROFF = 8

Private Const FORCED_LOGOFF = 4

Private Const FORCED_SHUTDOWN = 5

Private Const FORCED_REBOOT = 6

Private Const FORCED_POWEROFF = 12

Dim objNetwork, objWMIService, objOperatingSystem, strArgument

If WScript.Arguments.Count = 0 Then

strArgument = ""
Else
strArgument = WScript.Arguments(0)

End If

Set objNetwork = WScript.CreateObject("WScript.Network")

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\" & objNetwork.ComputerName & "\root\cimv2")

For Each objOperatingSystem in objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

If LCase(strArgument) = "/reboot" Then

objOperatingSystem.Win32Shutdown(FORCED_REBOOT)

 Else

objOperatingSystem.Win32Shutdown(FORCED_SHUTDOWN)

End If

Exit For

Next

WScript.Quit(0)