[VBS]Empêcher l'écriture et l'infection des VIRUS sur les clés USB

Version imprimable

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:

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:

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"

08/07/2010, 16h35
SfJ5Rpw8

merci pour cette nouvelle contribution ...

justement je ne connaissait pas fsutil : "l'utilitaire du système de fichier"

j'ai pas encore tout testé dans ton script .. mais une chose manque, tu n'as pas traité le cas ou il n'y aurait pas de lecteur flash connecté au PC...;)
08/07/2010, 22h04
l_autodidacte

Salut,
J'ai testé le code sur une vieille clé USB de 256 Mo sur laquelle l'espace libre est de 55,5 Mo.
Le code est une merveille, à mon sens... sauf qu'après suppression du fichier créé ([IamDummy), l'espace disponible n'est que de 52 Mo.
Mais une défragmentation remet les choses en place.
Est-il possible de remédier à cela par le code ?

Encore merci pour cette contribution.

Mise à jour : Ajout de la Fonction checkUSB

Citation:

Envoyé par bbil

j'ai pas encore tout testé dans ton script .. mais une chose manque, tu n'as pas traité le cas ou il n'y aurait pas de lecteur flash connecté au PC...;)

Voila j'ai ajouté une nouvelle fonction pour vérifier si un lecteur Flash est connecté ou non ! :ccool:

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
'----------------DummyFileCreator.vbs---------------
'© Hackoo ©
checkUSB
DummyFileCreator
'---------------DummyFileCreator----------------------
Sub DummyFileCreator
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.DriveType=1 Then ' Disk Amovible Flash Disk
 If Drv.IsReady Then ' Si le Flash Disk est prêt
 Dfree=Drv.FreeSpace
 DfreeMB=FormatNumber(Drv.FreeSpace/(1024^2),0)&" Mo"
 'EspaceLibre = Drv.FreeSpace
 GB=round(Dfree/1073741824,2) & " Go"
 Label=Drv.DriveLetter
 'checkUSB
 'wscript.sleep 1000
 MsgBox "Espace Libre dans Le Flash Disk "&Label&":\"&" est Environ de " &GB& " soit environ "&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
end if
end if
Next
end Sub
'-----------------checkUSB-----------------------
Sub checkUSB
strComputer = "."
On Error Resume Next
Set WshShell = CreateObject("Wscript.Shell")
beep = chr(007)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='USB'",,48)
intCount = 0
For Each drive In colItems
    If drive.mediaType <> "" Then
        intCount = intCount + 1
    End If
Next
If intCount > 0 Then
    MsgBox "Votre Flash Disk est bien Connecté !",64,"Flash Drive Check !"
else
	WshShell.Run "cmd /c @echo " & beep, 0
	wscript.sleep 1000
	MsgBox "Votre Flash n'est pas Connecté ",64,"Flash Drive Check !"
End If
End Sub

et pour le fichier NoDummyFile.vbs

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
'----------------NoDummyFile.vbs---------------
'© Hackoo ©
checkUSB
NoDummyFile
'----------------------------------------------------
sub NoDummyFile
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
 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"
 end if
end if
Next
end Sub 
'-----------------checkUSB-----------------------
Sub checkUSB
strComputer = "."
On Error Resume Next
Set WshShell = CreateObject("Wscript.Shell")
beep = chr(007)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='USB'",,48)
intCount = 0
For Each drive In colItems
    If drive.mediaType <> "" Then
        intCount = intCount + 1
    End If
Next
If intCount > 0 Then
    MsgBox "Votre Flash Disk est bien Connecté !",64,"Flash Drive Check !"
else
	WshShell.Run "cmd /c @echo " & beep, 0
	wscript.sleep 1000
	MsgBox "Votre Flash n'est pas Connecté ",64,"Flash Drive Check !"
End If
End Sub

2 Fichier s'en 1

Très utile merci (et déso pour deterré ce post) je me suis permis d'assemblé les 2 fichiers

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
'----------------DummyFileCreator.vbs---------------
'© Hackoo ©
checkUSB
'---------------DummyFileCreator----------------------
Sub DummyFileCreator
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.DriveType=1 Then ' Disk Amovible Flash Disk
 If Drv.IsReady Then ' Si le Flash Disk est prêt
 Dfree=Drv.FreeSpace
 DfreeMB=FormatNumber(Drv.FreeSpace/(1024^2),0)&" Mo"
 'EspaceLibre = Drv.FreeSpace
 GB=round(Dfree/1073741824,2) & " Go"
 Label=Drv.DriveLetter
 'checkUSB
 'wscript.sleep 1000
 MsgBox "Espace Libre dans Le Flash Disk "&Label&":\"&" est Environ de " &GB& " soit environ "&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
end if
end if
Next
end Sub
'-----------------checkUSB-----------------------
Sub checkUSB
strComputer = "."
On Error Resume Next
Set WshShell = CreateObject("Wscript.Shell")
beep = chr(007)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='USB'",,48)
intCount = 0
For Each drive In colItems
    If drive.mediaType <> "" Then
        intCount = intCount + 1
    End If
Next
If intCount > 0 Then
    MsgBox "Votre Flash Disk est bien Connecté !",64,"Flash Drive Check !"
 if MsgBox ("Voulez vous créé le DummyFile ou l'enlever ?" & vbCr & vbCr & "Oui = Créé" & vbCr & "Non = NoDummyFile" ,vbYesNo+Vbinformation,"DummyFileCreator OR NoDummyFile ? !") = Vbyes then
    DummyFileCreator
 else
    NoDummyFile
end if
Else
	WshShell.Run "cmd /c @echo " & beep, 0
	wscript.sleep 1000
	MsgBox "Votre Flash n'est pas Connecté ",64,"Flash Drive Check !"
End If
End Sub
 
 
 
sub NoDummyFile
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
 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"
 end if
end if
Next
end Sub