Changer à distance le mot de passe admin localRésolu

Question

Bonjour à tous,

Je dois uniformiser le mot de passe admin local des postes de mon entreprise.

J'ai trouvé des solutions en VBS, en logiciel freeware, mais pas en VB .NET.. Or c'est cette dernière solution dont j'ai impérativement besoin.

De même, si quelqu'un sait comment ajouter ou supprimer un compte dans un groupe local de machine, et ce toujours en VB .NET...
(Je ne souhaite pas pas utiliser pour ce faire la GPO qui va bien, parce qu'elle REMPLACE les membres existants, elle n'AJOUTE PAS)

Merci de votre aide en tous cas,

Note : Les postes sont en NT4 ou supérieur...

Beetlejuice1988 · Accepted Answer

Bon, j'ai trouvé tout seul. Il faut ajouter le composant COM "Active DS Type Library" au projet.

Ensuite, on fait :

Imports ActiveDS

et on définit une fonction qui reset les mots de passe de cette façon

Private

Function SetPassword(
ByVal ComputerName 
As
String, 
ByVal UserName 
As
String, 
ByVal Password 
As
String)

'Cette Fonction Reset à "Password" le mot de passe du user "UserName" sur le poste "ComputerName"

Dim MyUser 
As IADsUser

Try
   MyUser = GetObject(
"WinNT://" + ComputerName + 
"/" + UserName + 
",user")
   MyUser.SetPassword(Password.ToString)

   Return 0

Catch ex 
As Exception
   MsgBox(
"Exception : " & vbNewLine & vbNewLine & 
"Details : " & ex.ToString)
   
Return 1

End
Try

End
Function

bintou123 · Answer

Bon travail et courage!nnn

Changer à distance le mot de passe admin local

2 réponses

Votre réponse

Discussions similaires