My Folder is become Shortcut.how to restore?

December 8, 2010 at 00:50:59
Specs: Windows 7
I use Avira Antivir. but when I insert the usb cable from psp to my laptop. all of my folders in the psp turned into a shortcut

See More: My Folder is become Shortcut.how to restore?

Report •


#1
July 13, 2011 at 03:48:24
Hi I made a Vbscript to solve the Problem of the infected shortcuts:
Just Copy and paste this code in your Notepad and save it as ShortcutRemover.vbs

'A Vbscript To restore your Original Folders in your PenDrive and delete the infected shortcuts
Dim MsgTitre,fso,Ws,NomFichierLog,NBfichier
MsgTitre="Les Raccourcis Infectés dans le Flash © Hackoo"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ws = CreateObject("Wscript.Shell")
Set dc = fso.Drives
For Each d in dc
If d.IsReady and d.DriveType = 1 Then
racine = d.Driveletter
MsgBox "Votre Lecteur Flash est le " &racine&":\",64,MsgTitre
end if
Next
Ws.Run "%comspec% /c attrib -s -h -r "&racine&":\*.* /D /S",0,True
Ws.Run "%comspec% /c dir "&racine&":\ > Resultat.txt",0,True
MsgBox "Voir le Contenu du FlashDisk",64,MsgTitre
Ws.Run "Resultat.txt"

NomFichierLog = "LOGFILE.txt"
Set OutPut = fso.CreateTextFile(NomFichierLog,1)
Set folder = fso.getFolder(""&racine&":\")
If fso.fileExists (""&racine&":\rtlip.exe") Then
fso.DeleteFile ""&racine&":\rtlip.exe",True
OutPut.WriteLine " le Virus rtlip.exe à été Supprimé avec Succés !"
else
OutPut.WriteLine " le Virus rtlip.exe n'est pas contenu dans le FlashDisk !"
end if

If fso.fileExists (""&racine&":\x.exe") Then
fso.DeleteFile ""&racine&":\x.exe",True
OutPut.WriteLine " le Virus x.exe à été Supprimé avec Succés !"
else
OutPut.WriteLine " le Virus x.exe n'est pas contenu dans le FlashDisk !"
end if

If fso.fileExists (""&racine&":\ert.dll") Then
fso.DeleteFile ""&racine&":\ert.dll",True
OutPut.WriteLine " le Virus ert.dll à été Supprimé avec Succés !"
else
OutPut.WriteLine " le Virus ert.dll n'est pas contenu dans le FlashDisk !"
end if

NBfichier=0
For Each Fichier in folder.Files
If UCase(FSO.GetExtensionName(Fichier.Path)) = "LNK" Then
NBfichier=NBfichier+1
OutPut.WriteLine Fichier.Path
fso.DeleteFile(Fichier)
end if
Next
MsgBox NBfichier& " Fichiers Raccourcis Infectés Contenu dans le FlashDisk ont été supprimés avec Succés ! ",64,MsgTitre
OutPut.WriteLine vbNewLine & NBfichier& " Fichiers Raccourcis Infectés ont été supprimés ! © Hackoo"
Explorer(NomFichierLog)
Explorer ""&racine&":"

Function Explorer(File)
Set ws=CreateObject("wscript.shell")
ws.run "Explorer "& File & "\"
end Function


Report •

#2
July 13, 2011 at 09:21:13
alder36,

Plug in the drive
Click on Start > Run, and in the Open area type: cmd
Click: OK

At the command prompt, copy/paste the following command, and press Enter:

attrib -h -r -s /s /d e:\*.*

(Assuming the drive is recognized as 'e:'
If not, replace the letter 'e' with the drive letter).

Post back on how it goes.

We will also need to take action to remove the malware, so this does not happen again.

~~~~
Retired - Doin' Dis, Dat, and slapping malware.


Report •

Related Solutions


Ask Question