'Run Auto Logon
On Error Resume Next

Message = "This script will run the user Auto Logon window." & vbCr _
 & "Check or Uncheck User must enter a Password to Logon to Windows." & vbCr & vbCr _
 & "Would you like to continue?"

M = MsgBox(Message, vbYesNo + vbInformation, "Paul's XP and Vista Tweaks")
If M = 6 Then 

Set WSHShell = WScript.CreateObject("WScript.Shell")

WshShell.Run("netplwiz") 
End If