Cacher un lecteur ou une partition du poste de travail

Soyez le premier à donner votre avis sur cette source.

Vue 23 300 fois - Téléchargée 1 280 fois

Télécharger le projet
Commenter

Description

Permet de cacher un disque dur, le lecteur de disquette ou lecteur CD-rom du poste de travail d'un utilisateur. Pour que ca marche il faut être connecté sous la session de l'utilisateur dont vous voulez cacher les disques. De plus il faut que cet utilisateur ait le droit de modifier la base de registre pendant l'execution du prog.
Dsl j'ai pas encore U le temps de commenter les sources.

Source / Exemple : 


'ca écrit dans la bse de registre dans:

'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer et insère la clé NoDrives
'La valeur de la clé sera décimale ainsi si on veut cacher le lecteur C
'lecteur A: => 2^0=1
'lecteur B: => 2^1=2
'lecteur C: => 2^2=4
'lecteur D: => 2^3=8
...

'Sa valeur décimale sera donc 4 donc a la clé NoDrives il faut rentrer 4 pour C:
'Si on veut cacher le lecteur A et C la clé aura pour valeur 5 (1(A)+4(C))

'après il suffit de l'entrer dans la base de registre:

Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives", (valeur decimale), "REG_DWORD"
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
Stebo
Messages postés
10
Date d'inscription
vendredi 6 octobre 2000
Statut
Membre
Dernière intervention
5 avril 2005
 -
che moi ca fonctionne (vb6, Win 98),car le composant de l'activex narrive pas a cree l object.
ca vient de chez moi ou ca c le proget ki marche pas???
Signaler
Morgul
Messages postés
23
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
24 août 2005
 1 -
Ben normalement ca devrai marcher. je vois deux possibilité soit tu n'a pas les controles activeX, soit tu n'a pas les droits administrateur pour pouvoir modifier la base de registre. Je pencherai pluto pour la deuxieme.
Signaler
cs_EBArtSoft
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
 5 -
Moi je penserais plutot a la premiere !!! lol
En fait ton systeme ne peut pas créer d'objet du type Wscript.Shell
donc pour arranger ça tu peut utiliser les API
RegSetValue
RegQueryValue

B@nne prog ;-D
Signaler
cs_yoman64
Messages postés
593
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008
 -
Marche pas sur mon pc(je suis sous XP pro)
Signaler
aporler
Messages postés
55
Date d'inscription
samedi 19 octobre 2002
Statut
Membre
Dernière intervention
6 août 2009
 -
comment ou fait pour reafficher le lecteur cacher ?
Afficher les 11 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Morgul)