ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Énumérer les usagers membre d'un domaine   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > WMI (Windows Management Instrumentation)

Énumérer les usagers membre d'un domaine
# 0000000144
ajouté le 09/02/2005 21:39:17 et modifié le 10/02/2005
consulté 4252 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0

Code source :
strDomain = "STG"
Clear
On Error
Public PrimDomainContr
Create Cursor names (username c(30),fullname c(80),description c(80),Class c(50),accdisable l,;
acclocked l,profile c(30),loginscript c(50),Homedir c(30))
PrimDomainContr = Getobject("WinNT://" + strDomain)
For Each User In PrimDomainContr
  If User.Class = 'User'
    Insert Into names (username,fullname,description,Class,accdisable,acclocked,profile,;
    loginscript,Homedir) Values (User.Name,user.fullname,User.description,User.Class,User.AccountDisabled,;
    User.IsAccountLocked,User.Profile,User.loginscript,User.Homedirectory)
  Endif
Next
Browse Norm



Commentaires
le 10/02/2005, eric leissler a écrit :
Bonjour Mike
C'est cool et ca fonctionne aussi en vpf 6.0

le 10/02/2005, Mike Gagnon a écrit :
Bonjour aumeric.
Merci de la confirmation.


Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3