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.
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 '----------------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
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"
Partager