Discussion :

[gpanpan]

Bonjour,

je chercher la propriété qui permet de définir en VBS si un compte utilisateur local est Verrouillé, je connais la propriété pour activer ou désactiver un compte, mais pas celle qui permet de verrouiller ou déverrouiller un compte Local.

J'ai pensé à UserAccountControl, mais il me semble qu'elle n'est utilisé qu'avec un compte AD.

Si vous avez la réponse je vous remercie par avance.

[slicks]

Salut.
As-tu trouvé la réponse à ta question ?

Merci
A+

[gpanpan]

Bonjour,

Et bien après avoir exploré msdn j'ai trouvé cette attribut :"IsAccountLocked"

Voici le code que j'ai fait pour dévérrouillé un compte utilisateur local.
testé sous Windows XP uniquement.

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
 
Dim ComputerName, UserName
ComputerName = "Nom Machine"
UserName = "Nom de l'utilisateur"
Set objShell = WScript.CreateObject("WScript.Shell" ) 
Set objUser = GetObject("WinNT://" & ComputerName & "/" & UserName)
 
If (objUser.IsAccountLocked = True) Then
	msgbox "Le compte  "" " & UserName & " ""  est verrouillé." & vbCrlf & vbCrlf _
			& "Nous allons le dévérrouiller !" , vbInformation + vbSystemModal, "Info Lock User Account"
	objUser.IsAccountLocked = False
 
	On Error Resume Next ' Gestion des erreur
	objUser.SetInfo
	if Err <> 0 then
		msgbox "Vous ne disposez pas des droits necessaires pour dévérrouillé le compte  "" "  _
				& UserName & " ""." , vbcritical + vbSystemModal, "Erreur !"
	end if
Else
	msgbox "Le compte  "" " & UserName & " ""  n'est pas verrouillé.", vbInformation + vbSystemModal, "Info Lock User Account"
End If
 
msgbox "Traitement Terminé.", vbInformation + vbSystemModal, "Fin Traitement."

A ++

[slicks]

Bonjour,

Et bien après avoir exploré msdn j'ai trouvé cette attribut :"IsAccountLocked"

Voici le code que j'ai fait pour dévérrouillé un compte utilisateur local.
testé sous Windows XP uniquement.

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
 
Dim ComputerName, UserName
ComputerName = "Nom Machine"
UserName = "Nom de l'utilisateur"
Set objShell = WScript.CreateObject("WScript.Shell" ) 
Set objUser = GetObject("WinNT://" & ComputerName & "/" & UserName)
 
If (objUser.IsAccountLocked = True) Then
	msgbox "Le compte  "" " & UserName & " ""  est verrouillé." & vbCrlf & vbCrlf _
			& "Nous allons le dévérrouiller !" , vbInformation + vbSystemModal, "Info Lock User Account"
	objUser.IsAccountLocked = False
 
	On Error Resume Next ' Gestion des erreur
	objUser.SetInfo
	if Err <> 0 then
		msgbox "Vous ne disposez pas des droits necessaires pour dévérrouillé le compte  "" "  _
				& UserName & " ""." , vbcritical + vbSystemModal, "Erreur !"
	end if
Else
	msgbox "Le compte  "" " & UserName & " ""  n'est pas verrouillé.", vbInformation + vbSystemModal, "Info Lock User Account"
End If
 
msgbox "Traitement Terminé.", vbInformation + vbSystemModal, "Fin Traitement."

A ++

Super, ça marche sous w2k aussi.

Merci
A+

[gpanpan]

Je n'ai pas testé sous Windows 2000,

Mais si cette attribut existe sous 2000 il n'y a pas de raison.

Mais si ça fonctionne fait le moi savoir.

Par avance merci.

[slicks]

Je n'ai pas testé sous Windows 2000,

Mais si cette attribut existe sous 2000 il n'y a pas de raison.

Mais si ça fonctionne fait le moi savoir.

Par avance merci.

Excuse erreur de frappe, c'était un "." et non "?" que je voulais mettre en fin de ligne.
J'ai édité......!!

Merci
A+