Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Activation et désactivation de compte

Activation et désactivation de compte

3 réponses
Avatar
MacDav
Bonjour,
Je souhaite, à partir de VBA, activer et désactiver un compte utilisateur
dans mon domaine Active Directory.
Comment faire ?
Merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonsoir.

je ne sais pas si tu es l'administrateur de domain, mais si tu ne l'es pas
il va te l'interdire formellement. access vba n'est pas le lieu pour gérer
l'Active Directory, AMHA.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"MacDav" a écrit dans le message de
news:%
Bonjour,
Je souhaite, à partir de VBA, activer et désactiver un compte utilisateur
dans mon domaine Active Directory.
Comment faire ?
Merci




Avatar
MacDav
Bonsoir et merci pour la réponse mais je viens de tester qq chose qui marche
avec n'importe quel utilisateur du domaine:

Private Sub Active_Click()
Const ADS_SECURE_AUTHENTICATION = &H1
Const ADS_SERVER_BIND = &H200

Set DSO = GetObject("LDAP:")
Set objUser DSO.OpenDSObject("LDAP://cn=cyberacces1,ou=Cyber,ou=Atelier_TIC,ou=Utilisate
ur,dc¬ces,dc=asso,dc=fr", "david", "xxxx", ADS_SECURE_AUTHENTICATION +
ADS_SERVER_BIND)

objUser.AccountDisabled = False
objUser.SetInfo
End Sub

Private Sub Desactive_Click()
Const ADS_SECURE_AUTHENTICATION = &H1
Const ADS_SERVER_BIND = &H200
Const ADS_UF_ACCOUNTDISABLE = 2

Set DSO = GetObject("LDAP:")
Set objUser DSO.OpenDSObject("LDAP://cn=cyberacces1,ou=Cyber,ou=Atelier_TIC,ou=Utilisate
ur,dc¬ces,dc=asso,dc=fr", "david", "xxxx", ADS_SECURE_AUTHENTICATION +
ADS_SERVER_BIND)

intUAC = objUser.Get("userAccountControl")
objUser.Put "userAccountControl", intUAC Or ADS_UF_ACCOUNTDISABLE
objUser.SetInfo
End Sub


"Raymond [mvp]" a écrit dans le message de
news:
Bonsoir.

je ne sais pas si tu es l'administrateur de domain, mais si tu ne l'es pas
il va te l'interdire formellement. access vba n'est pas le lieu pour gérer
l'Active Directory, AMHA.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"MacDav" a écrit dans le message de
news:%
Bonjour,
Je souhaite, à partir de VBA, activer et désactiver un compte
utilisateur


dans mon domaine Active Directory.
Comment faire ?
Merci








Avatar
Raymond [mvp]
et si tu n'as pas la délégation de droits ça donne quoi comme réaction et
message ? ou alors quel droit minimum faut-il avoir ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"MacDav" a écrit dans le message de
news:
Bonsoir et merci pour la réponse mais je viens de tester qq chose qui
marche

avec n'importe quel utilisateur du domaine:

Private Sub Active_Click()
Const ADS_SECURE_AUTHENTICATION = &H1
Const ADS_SERVER_BIND = &H200

Set DSO = GetObject("LDAP:")
Set objUser >
DSO.OpenDSObject("LDAP://cn=cyberacces1,ou=Cyber,ou=Atelier_TIC,ou=Utilisate

ur,dc¬ces,dc=asso,dc=fr", "david", "xxxx", ADS_SECURE_AUTHENTICATION +
ADS_SERVER_BIND)

objUser.AccountDisabled = False
objUser.SetInfo
End Sub

Private Sub Desactive_Click()
Const ADS_SECURE_AUTHENTICATION = &H1
Const ADS_SERVER_BIND = &H200
Const ADS_UF_ACCOUNTDISABLE = 2

Set DSO = GetObject("LDAP:")
Set objUser >
DSO.OpenDSObject("LDAP://cn=cyberacces1,ou=Cyber,ou=Atelier_TIC,ou=Utilisate

ur,dc¬ces,dc=asso,dc=fr", "david", "xxxx", ADS_SECURE_AUTHENTICATION +
ADS_SERVER_BIND)

intUAC = objUser.Get("userAccountControl")
objUser.Put "userAccountControl", intUAC Or ADS_UF_ACCOUNTDISABLE
objUser.SetInfo
End Sub


"Raymond [mvp]" a écrit dans le message de
news:
Bonsoir.

je ne sais pas si tu es l'administrateur de domain, mais si tu ne l'es
pas


il va te l'interdire formellement. access vba n'est pas le lieu pour
gérer


l'Active Directory, AMHA.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"MacDav" a écrit dans le message de
news:%
Bonjour,
Je souhaite, à partir de VBA, activer et désactiver un compte
utilisateur


dans mon domaine Active Directory.
Comment faire ?
Merci