L'idée de ce Script:
Après avoir lu cet Article:"Create Fake Dummy File on USB Flash Drive to Enable Write Protect and Prevent Modification"
J'ai eu cette idée de créer ce Truc en Vbscript.
Donc j'explique ce que ce script peut faire :
Vous portez votre flash USB qui contient beaucoup d'outils portables avec vous tous le temps mais,vous avez peur d'une chose, qui est un virus informatique comme JambanMu ou MaxTrox ou Sality qui peut infecter des clés USB ainsi que les fichiers exécutables là-dedans.
Le Script crée un faux fichier "bloc" pour remplir l'espace libre restant sur le flash USB.
le virus ne pourra pas se copier ou infecter n'importe quels fichiers exécutables.

Ce code est utilisé pour créer un faux fichier sur le flash USB pour Permettre la protection en écriture.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'----------------DummyFileCreator.vbs---------------
'© Hackoo ©
Dim WshShell,FSO,Drv,Dtype,Dfree,DfreeMB,Dtot
Dim Dname,Dpct,Dused,Dserial,Dinfo
Set WshShell=WScript.CreateObject("WScript.Shell")
Set FSO=CreateObject("Scripting.FileSystemObject")
For each Drv in FSO.Drives
 If Drv.DriveType=0 Then Dtype="Unknown "
 If Drv.DriveType=1 Then Dtype="Removable"
 If Drv.DriveType=2 Then Dtype="Fixed "
 If Drv.DriveType=3 Then Dtype="Network "
 If Drv.DriveType=4 Then Dtype="CD-ROM "
 If Drv.DriveType=5 Then Dtype="RAM Disk "
 If Drv.IsReady Then
 If Drv.DriveType=1 Then
 Dfree=Drv.FreeSpace
 DfreeMB=FormatNumber(Drv.FreeSpace/(1024^2),0)&" MB"
 Label=Drv.DriveLetter
 end if
end if
Next
MsgBox "Espace Libre dans Le Flash Disk "&Label&":\"&" est Environ de " &DfreeMB,64,"Espace Libre"
WshShell.run "cmd /c fsutil file createnew "&Label&":\IamDummy " &Dfree&"",0,True
WshShell.Run "cmd /C attrib +h +s "&Label&":\IamDummy",0,TRUE
Et Ce Code est utilisé pour supprimer le faux fichier et permettre l'écriture sur votre Flash

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
'----------------NoDummyFile.vbs---------------
'© Hackoo ©
Dim WshShell,FSO,Drv,Dtype,Dfree,DfreeMB,Dtot
Dim Dname,Dpct,Dused,Dserial,Dinfo,filespec
Set WshShell=WScript.CreateObject("WScript.Shell")
Set FSO=CreateObject("Scripting.FileSystemObject")
filespec="IamDummy"
For each Drv in FSO.Drives
 If Drv.DriveType=0 Then Dtype="Unknown "
 If Drv.DriveType=1 Then Dtype="Removable"
 If Drv.DriveType=2 Then Dtype="Fixed "
 If Drv.DriveType=3 Then Dtype="Network "
 If Drv.DriveType=4 Then Dtype="CD-ROM "
 If Drv.DriveType=5 Then Dtype="RAM Disk "
 If Drv.IsReady Then
 If Drv.DriveType=1 Then
 Dfree=Drv.FreeSpace
 DfreeMB=FormatNumber(Drv.FreeSpace/(1024^2),0)&" MB"
 Label=Drv.DriveLetter
 end if
end if
Next
If (fso.FileExists(Label&":\IamDummy")) Then
Set MyFile = fso.GetFile(Label&":\IamDummy")
MyFile.Delete
End If
MsgBox "Espace Libre dans Le Flash Disk "&Label&":\"&" est Environ de " &DfreeMB,64,"Espace Libre"