Discussion :

[cédricL]

Hello,
Je suis débutant dans la programmation vbs et j'essai tant bien que mal d'empecher l'utilisation d'un programme si la clé n'y est pas.

J'arrive à avoir le numéro de série de ma clé mais pour pouvoir l'utiliser dans le code c'est une autre paire de manche.

Mon programme recherche tous les lecteurs qui sont branchés et si le numéro de série correspond alors il doit lancer le programme et si non il le quitte.
Le probleme qui survient est que des qu'il voit que le 1er lecteur listé n'est pas le bon il quitte le programme.

Quelqu'un pourrait me guidé,SVP

[ced600]

Cela semble être une erreur dû à ta façon de coder le script, donc sans celui-ci je ne pourrais pas t'aider.

De façon général, lorsque tu postes un message pour dire :
"J'ai un problème, mon code ne marche pas."

Postes le code, ce sera plus simple pour te venir en aide.

[cédricL]

La j'ai juste mis pour que ca ouvre notepad si la bonne clé est mise.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48)
For Each objItem in colItems
    if objItem.VolumeSerialNumber = "24538EBD" and objItem.DriveType = 2 then
	        Set WshShell = Wscript.CreateObject("Wscript.Shell") 
			WshShell.run ("notepad.exe")
    else
    Wscript.quit
    end if
Next

[ced600]

Utilises les balises de code pour poster le code ( le # dans l'éditeur de message).

Le probleme qui survient est que des qu'il voit que le 1er lecteur listé n'est pas le bon il quitte le programme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
else
Wscript.quit
end if

Que pensez tu que cela ferais ?

[cédricL]

Désolé pour le code, merci de l'astuce(erreur de newbie on developpez.com).Je sais pas comment coder pour que dès que la condition soit valide il execute le programme et que si elle ne l'est pas de le fermer.
La il ferme le script parce que le premier lecteur ne correspond pas à la condition, il n'a pas le temps de regarder les autres.

[ced600]

bah c'est normal tu lui demande de fermer le script lorsque tu passes dans le else. C'est le sens de Wscript.quit qui se comprends rien qu'en le lisant (script et quit, hum.... Qu'est ce que cela peut bien faire ?).

Quand à fermer un programme, ce n'est en soit possible que si le programme en question accepte qu'on lui envois des commandes lors de son exécution.
Tout ce que tu peux faire d'autre c'est de killer l'application comme proposé sur la FAQ : http://vb.developpez.com/faqvbs/?pag...wmiKillProcess