Sript File Hidden Restore From Viruz

Salam blogger.Kali ini aku akan sharing sebuah script untuk mengembalikan file file yang telah di hidden oleh virus pada flashdisk kita.Script ini menggunakan visual basic script.Script aku dapat sudah lama sekali.Script ini aku gunakan biasanya di warnet yang user sangat terbatas karena registrynya telah di otak atik sama administrator.Daripada aku banyak omong,berikut scriptnya.

If MsgBox("Tampilkan semua file tersembunyi di FlashDisk???", vbOKCancel + vbQuestion, "Revealer Uji Coba") = vbOK Then

Set FSO = CreateObject("Scripting.FileSystemObject")
Dim flashdrives

For i = Asc("C") To Asc("Z")
If FSO.DriveExists(Chr(i) & ":") Then
Set oDrive = FSO.GetDrive(Chr(i) & ":")
If oDrive.DriveType = 1 Then
RecursiveDir(Chr(i) & ":\")
flashdrives = flashdrives & Chr(i) & ":, "
End If
End If
Next

if len(flashdrives) > 2 Then
flashdrives = Mid(flashdrives, 1, Len(flashdrives) - 2)
MsgBox "Semua file di drive: " & flashdrives & " sudah ditampilkan!!", vbOKOnly + vbInformation, "Proses Selesai"
Else
MsgBox "Tidak ada FlashDisk di komputer ini!!" , vbOKOnly + vbExclamation, "I QUIT"
End If

End If
function RecursiveDir (path)
Set folderpath = fso.getfolder(path)
Set fol = folderpath.SubFolders
Set oFiles = folderpath.Files
For Each Foldername In fol
If Foldername.attributes And 1 Then Foldername.attributes = Foldername.attributes - 1
If Foldername.attributes And 2 Then Foldername.attributes = Foldername.attributes - 2
If Foldername.attributes And 4 Then Foldername.attributes = Foldername.attributes - 4
RecursiveDir = FolderName
RecursiveDir FolderName
Next
For Each file In oFiles
If file.attributes And 1 Then file.attributes = file.attributes - 1
If file.attributes And 2 Then file.attributes = file.attributes - 2
If file.attributes And 4 Then file.attributes = file.attributes - 4
Next
End Function

Copas script di atas dan pastekan di notepad.Simpan file dengan ekstensi *.vbs.Klik 2 kali untuk menjalankan program.Salam Blogger.