Paste code

<?xml version="1.0" encoding="windows-1251"?>
<!-- Проект: usb_anti_autorun -->
<!-- Автор: AxeL -->
<!-- При участии: Аскет -->
<!-- Файл: usb.wsf -->
<!-- Версия: 1.1 -->
<!-- Назначение: подмена файла autorun.inf на свой (или его убийство, для этого в скрипте удалить строки со 150 по 170 включительно) -->
<!-- дабы не запустился вирь, в момент подсоединения флэхи -->
<!-- метод распространения: виросоподобный(autorun) -->
<!-- Права: Можно изменять скрипт под свои нужды, смотреть под отладчиком (в общем, любые) -->
<!-- Гарантии: Никаких (ни явных, ни подразумеваемых) -->
<!-- Причина написания скрипта: Penetrator -->
<!-- Связь с автором: через сайт askett.hoter.ru -->
<package>
<job id="Self_Install">
<runtime>
<description>
Имя: usb.wsf
Автор: AxeL
Описание: Самоустановка в   %ProgramFiles%usb_anti_autorun
</description>
</runtime>
[removed]
<![CDATA[
Option Explicit

Dim fso, sh
Dim oWmi, oSelQ, oItem
Dim Root, InstDir, InstFolder : InstFolder = "usb_anti_autorun"
Dim File, attr
Dim RegKey

On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")

InstDir = sh.ExpandEnvironmentStrings("%programfiles%") & InstFolder
Root = sh.ExpandEnvironmentStrings("%SystemRoot%")

If (Chr(34) & fso.GetParentFolderName(WScript.ScriptFullName) & Chr(34)) <> (Chr(34) &  InstDir & Chr(34)) Then

 If Not fso.FolderExists(InstDir) Then fso.CreateFolder InstDir

 If fso.FileExists(InstDir & "usb.wsf") Then
  Set File = fso.GetFile&#40;InstDir & "usb.wsf"&#41;
  attr = File.Attributes
  File.Attributes = 0
  fso.CopyFile WScript.ScriptFullName, InstDir & "usb.wsf"
  File.Attributes = attr
 Else
  fso.CopyFile WScript.ScriptFullName, InstDir & "usb.wsf"
  Set File = fso.GetFile&#40;InstDir & "usb.wsf"&#41;
  File.Attributes = 33
 End If

 sh.RegWrite "HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunusb_autorun_remover", _
 Chr(34) & Root & "System32wscript.exe" & Chr(34) & " " & Chr(34) & InstDir & "usb.wsf" & Chr(34) & " //Job:Work"

 RegKey = sh.RegRead("HKCRWSFFileEditFlags")
 If Err.Number = 0 Then sh.RegDelete "HKCRWSFFileEditFlags"
 RegKey = sh.RegRead("HKCRWSFFileShellOpenCommand")

 If RegKey <> "%SystemRoot%System32WScript.exe ""%1"" %*" Then _
 sh.RegWrite "HKCRWSFFileShellOpenCommand", "%SystemRoot%System32WScript.exe ""%1"" %*"

 sh.RegWrite "HKCRWSFFileEditFlags", 24, "REG_DWORD"

 Set oWmi = GetObject("WinMgmts:{impersonationLevel=impersonate}!//./root/cimv2")
 Set oSelQ = oWmi.ExecQuery("SELECT * FROM Win32_Process")

 For Each oItem In oSelQ
  If LCase(RTrim(oItem.CommandLine)) = LCase(Chr(34) & Root & "System32wscript.exe" & Chr(34) & " " & Chr(34) & InstDir & "usb.wsf" & Chr(34) & " //Job:Work") _
  Then oItem.Terminate
 Next

 sh.Exec&#40;Chr(34&#41; & Root & "System32wscript.exe" & Chr(34) & " " & Chr(34) & InstDir & "usb.wsf" & Chr(34) & " //Job:Work")
 
 If Len(fso.GetParentFolderName(WScript.ScriptFullName)) <=3 Then sh.Exec&#40;"explorer.exe " & fso.GetParentFolderName(WScript.ScriptFullName&#41;)
 
 Set fso = Nothing
 Set sh = Nothing
 Set oWmi = Nothing
 Set oSelQ = Nothing
 Set File = Nothing
 WScript.Quit
Else
 sh.RegWrite "HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunusb_autorun_remover", _
 Chr(34) & Root & "System32wscript.exe" & Chr(34) & " " & Chr(34) & InstDir & "usb.wsf" & Chr(34) & " //Job:Work"
 sh.Exec&#40;Chr(34&#41; & Root & "System32wscript.exe" & Chr(34) & " " & Chr(34) & InstDir & "usb.wsf" & Chr(34) & " //Job:Work")
End If

Sub Error_Handler()
MsgBox Err.Number & Chr(13) & Err.Source & Chr(13) & Err.Description
Err.Clear
End Sub

]]>
[removed]
</job>


<job id="Work">
<runtime>
<description>
Имя: usb.wsf
Автор: AxeL
Описание: Висит в процессах и каждые 3 секунды проверяет, не присоединил ли кто-нибудь флэху,
   если да, проверяем наличие файла autorun.inf и убиваем его, если нет, ждемс...
</description>
</runtime>

[removed]
<![CDATA[

Option Explicit
Dim CompName : CompName = "."
Dim fso, sh
Dim oWmi, oSelQ
Dim oDisk, oItem
Dim Root, InstDir, InstFolder : InstFolder = "usb_anti_autorun"
Dim ts, File, attr
Dim Find
On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")

InstDir = sh.ExpandEnvironmentStrings("%programfiles%") & InstFolder
Root = sh.ExpandEnvironmentStrings("%SystemRoot%")

Set oWmi = GetObject("WinMgmts:{impersonationLevel=impersonate}!//" & CompName & "/root/cimv2")

Set oSelQ = oWmi.ExecQuery("SELECT * FROM Win32_Process")
Find = 0

For Each oItem In oSelQ
 If LCase(RTrim(oItem.CommandLine)) = LCase(Chr(34) & Root & "System32wscript.exe" & Chr(34) & " " & Chr(34) & InstDir & "usb.wsf" & Chr(34) & " //Job:Work") _
 Then Find = Find + 1
Next

If Find > 1 Then WScript.Quit 0

Set oDisk = oWmi.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent " & _
"WITHIN 3 WHERE TargetInstance ISA 'Win32_LogicalDisk'")

Do
Set oItem = oDisk.NextEvent

 If fso.FileExists (oItem.TargetInstance.DeviceID & "autorun.inf") Then
 Set File = fso.GetFile&#40;oItem.TargetInstance.DeviceID & "autorun.inf"&#41;
 File.Attributes = 0
 File.Delete
 End If

 Set ts = fso.CreateTextFile&#40;oItem.TargetInstance.DeviceID & "autorun.inf"&#41;
 WScript.Sleep(100)
 ts.WriteLine "[AutoRun]"
 ts.WriteLine "open=wscript usb.wsf"
 ts.WriteLine "shellexecute=wscript.exe usb.wsf"
 ts.WriteLine "action=Install USB_Autorun_Remover"
 ts.WriteLine "shell=open"
 ts.WriteLine "UseAutoPlay=1"
 ts.WriteLine "shellopenCommand=wscript.exe usb.wsf"
 ts.WriteLine "shellexploreCommand=wscript.exe usb.wsf"
 ts.close
 
 Set File = fso.GetFile&#40;oItem.TargetInstance.DeviceID & "autorun.inf"&#41;
 File.Attributes = 39
  If fso.FileExists(oItem.TargetInstance.DeviceID & "usb.wsf") Then
  Set File = fso.GetFile&#40;oItem.TargetInstance.DeviceID & "usb.wsf"&#41;
  File.Attributes = 0
  End If
 fso.CopyFile WScript.ScriptFullName, oItem.TargetInstance.DeviceID & "usb.wsf"
 Set File = fso.GetFile&#40;oItem.TargetInstance.DeviceID & "usb.wsf"&#41;
 File.Attributes = 39

Loop While True

]]>
[removed]
</job>
</package>