Question : Manuscrit de VBS pour ne pas créer l'utilisateur, si l'utilisateur est existant dans l'annuaire actif

Salut le besoin d'everyone.

I certains aident here.

I pour avoir fait un manuscrit de vbs, est-ce que cela créera l'utilisateur dans l'annuaire actif, mais le problème, chaque fois que je cours ce manuscrit, le mot de passe d'utilisateur obtiennent-ils la remise de nouveau au vieux mot de passe, est là est-il n'importe qui qui peut m'aider petit morceau une manière, ainsi elle pas happe ? ? ? class= de

Réponse : Manuscrit de VBS pour ne pas créer l'utilisateur, si l'utilisateur est existant dans l'annuaire actif

Pris de : http://www.enterpriseitplanet.com/resources/scripts_win/article.php/3084291/Script-to-Search-for-a-User-in-Active-Directory.htm

Bonne chance
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :

MANUSCRIT : 
'**************************************************************************************
'A créé :    04/08/2002 
'Auteur :     Yi Helen Wang
'But :    Recherche des utilisateurs par un annuaire actif (AD) de
'            Windows 2000 à assurer contre la reproduction quand 
'            un nouvel utilisateur est ajouté dans l'ANNONCE
'Mots-clés :   L'AGITATION et les ADSI 2.5 ou se lèvent
'A passé en revue :   05/13/2002
'Commentaire :    Vous devez assigner une permission d'obtenir l'annuaire actif 
la '      information.  Ce programme est lancé localement ou à distance
'***************************************************************************************
sur le résumé d'erreur après

faible oContainer, searchpath
faible oRoot
faible oConnect, oCommand, rs
faible strConnect, strDomainCtrl, strOU
faible cntuser, newuser, strCN, strSearchUser

newuser = faux
cntuser = 0

'pour obtenir le namespace de LDAP
placer l'oRoot = le GetObject (« LDAP : //RootDSE ")
appel ShowError (« issues de permission ! ")
strDomainCtrl = oRoot.Get (« defaultNamingContext »)

strOU = InputBox (« svp entrée un nom d'unité d'organisation à rechercher :  », « recherchant », « légal »)
si Len (équilibre (strOU)) = 0 puis
  msgbox « qu'aucune information n'a saisi ! » 
autrement
  strConnect = « LDAP : //OU= » et strOU et », « et strDomainCtrl
  placer l'oContainer = le GetObject (le strConnect)
  appeler ShowError (« OUNameNotExist »)
  
  searchpath = oContainer.ADsPath

  strSearchUser = InputBox (« l'entrée l'utilisateur a recherché l'initiale svp :  », « recherche », « sls »)
  si Len (équilibre (strSearchUser))=0  alors
    msgbox « qu'aucune information n'a saisi ! »
  autrement
    'Using l'AGITATION pour questionner l'annuaire actif pour un utilisateur de particule
    placer l'oConnect = le CreateObject (« ADODB.Connection »)
    placer l'oCommand = le CreateObject (« ADODB.Command »)
    appeler ShowError (« ADOProblems »)

    'ouvrant le raccordement
    oConnect.Provider = « ADsDSOObject »    
    oConnect.Open « fournisseur actif d'annuaire »
    appel ShowError (« ADOProvider »)
     'créant un objet de commande pour ce raccordement
     Placer  oCommand.ActiveConnection = oConnect

     strCN = strSearchUser
     FAIRE TANDIS QUE newuser <> vrai
  
      oCommand.CommandText = « samAccountName CHOISI DE «  » et searchpath et «  » OÙ objectClass='user ET samAccountName = « « et strSearchUser et » » « 

      'créant un recordset basé sur la commande d'AGITATION
      placer les rs = l'oCommand.Execute
 
      La 'navigation enregistrent l'ensemble
      si rs.EOF et rs.BOF alors
        msgbox  « nouvel utilisateur »
        le newuser = rectifient
      autrement
       cntuser = cntuser + 1
       'retitrer et vérifier encore jusqu'à aucune duplication
       le strSearchUser = est parti (strCN, 1) et droit (strCN, 1) et cntuser
       le msgbox  « retitrent la NC comme » et le strSearchUser
       placer les rs = rien
     finir si

    BOUCLE
  finir si
finir si
    
substrater ShowError (le strErr)
  si errent <> 0 alors

   si errent = 432 ou err=70 alors
    wscript.echo « permission publie pour lancer le programme »
    wscript.quit   
   autrement
    choisir le strErr de cas
     enfermer « OUNameNotExist »
      wscript.echo « nom d'OU n'est pas correct ou ne pas exister ! »
      wscript.quit
     cas « ADOProblems »
      wscript.echo « problèmes d'AGITATION ! »
      wscript.quit
     cas « ADOProvider »
      wscript.echo « problèmes de fournisseur d'AGITATION ! »
      wscript.quit
    extrémité choisie
   finir si

  finir si
finir le sous-marin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us