Sujet Précédent Sujet Suivant

ADSI et WINNT

karon92 Messages postés 3 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 24 janvier 2003 - 8 janv. 2003 à 17:11
karon92 Messages postés 3 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 24 janvier 2003 - 8 janv. 2003 à 23:16

KARON

En recherchant comment administrer des comptes NT avec VB
je suis arrivé au code suivant :

Public Function Users()
Dim owinnt As Object
Dim objClass As Object
Dim cha As String

Item1 = InputBox("Donnez le nom de l'utilisateur :", "Utilisateur")

cha = "WinNT://cnnslxps/" & Item1

Set owinnt = CreateObject(cha)
Set objClass = CreateObject(owinnt.schema)

For Each Item In objClass.optionalProperties
Select Case Item
Case "AccountExpirationDate"
If owinnt.get(Item) Then
AccountExpirationDate.Caption = owinnt.get(Item)
Else
AccountExpirationDate.Caption = "n/a"
End If
End Select
Next Item

End Function

ce code permet d'afficher la date d'expiration d'un compte NT.

Il fonctionne quand il y a une date d'expiration. Par contre, il met un message d'erreur lorsqu'il est vide.

J'aimerais pouvoir gérer cette erreur.

Quelqu'un peut m'aider ?

A voir également:

Adsi winnt
Port Lpt sous delphi et winnt ?? - Forum Delphi / Pascal

1 réponse

Réponse 1 / 1

karon92 Messages postés 3 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 24 janvier 2003
8 janv. 2003 à 23:16

KARON

Discussions similaires

ADSI LDAP Active directory

Problème à la compilation dans winnt.h

ADSI (Active Directory) : Récupérer Nom du "Manager" d'un groupe

ADSI Group et acces sur les dossier

[>VB.NET] getobject, objuser, winnt://