Vraag : Manuscript VBS gebruiker niet om te creëren, als er gebruiker in actieve folder bestaat

Hallo vergen everyone.

I één of andere hulp here.

I hebben gemaakt een vbsmanuscript, dat tot gebruiker in actieve folder zal leiden, maar is het probleem, everytime stel ik dit manuscript in werking, het gebruikerswachtwoord het terugstellen terug naar het oude wachtwoord, is krijgt er iedereen wie me kan helpen whit een manier, zodat zal het niet happe???

Antwoord : Manuscript VBS gebruiker niet om te creëren, als er gebruiker in actieve folder bestaat

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

Goed geluk
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:

MANUSCRIPT: 
'**************************************************************************************
'Gecre�ërd:    04/08/2002 
'Auteur:     Yi Helen Wang
'Doel:    Het zoeken van gebruikers door een Actieve Folder (AD) van
'            Vensters 2000 om tegen het dupliceren van wanneer te verzekeren 
een '            nieuwe gebruiker wordt toegevoegd in ADVERTENTIE
'Sleutelwoorden:   DRUKTE en ADSI 2.5 of omhoog
'Herzien:   05/13/2002
'Commentaar:    U moet een toestemming toewijzen om Actieve Folder te krijgen 
'      informatie.  Dit programma wordt ver in werking gesteld plaatselijk of
'***************************************************************************************
op fout hervat daarna

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

newuser = vals
cntuser = 0

'om LDAP te krijgen namespace
reeks oRoot = GetObject („LDAP: //RootDSE“)
vraag ShowError (de „kwesties van de Toestemming! “)
strDomainCtrl = oRoot.Get („defaultNamingContext“)

strOU = InputBox („tevreden ingang een Naam van de Eenheid van de Organisatie aan onderzoek: “, „Zoekend“, „Wettelijk“)
als Len (Versiering (strOU)) = 0 toen
  msgbox „Geen binnen getypte informatie!“ 
anders
  strConnect = „LDAP: //OU=“ & strOU &“, „& strDomainCtrl
  reeks oContainer = GetObject (strConnect)
  vraag ShowError („OUNameNotExist“)
  
  searchpath = oContainer.ADsPath

  strSearchUser = InputBox („tevreden ingang de aanvankelijke gezocht gebruiker: “, „Zoekend“, „sls“)
  als Len (Versiering (strSearchUser))=0  toen
    msgbox „Geen binnen getypte informatie!“
  anders
    'Gebruikend DRUKTE om de Actieve Folder voor een deeltjesgebruiker te vragen
    reeks oConnect = CreateObject („ADODB.Connection“)
    reeks oCommand = CreateObject („ADODB.Command“)
    vraag ShowError („ADOProblems“)

    'openend de verbinding
    oConnect.Provider = „ADsDSOObject“    
    oConnect.Open de „Actieve Leverancier van de Folder“
    vraag ShowError („ADOProvider“)
     'creërend een bevelvoorwerp voor deze verbinding
     Vastgesteld  oCommand.ActiveConnection = oConnect

     strCN = strSearchUser
     DOE TERWIJL newuser <> Waar
  
      oCommand.CommandText = „SELECTEER samAccountName VAN „“ & searchpath & „“ WAAR objectClass='user EN samAccountName = „„& strSearchUser &““ „

      'creërend een recordset op het bevel dat van de DRUKTE wordt gebaseerd
      reeks rs = oCommand.Execute
 
      'Navigerend de verslagreeks
      als rs.EOF en rs.BOF toen
        msgbox  „Nieuwe gebruiker“
        newuser = Waar
      anders
       cntuser = cntuser + 1
       'noem en controleer opnieuw tot geen verdubbeling anders
       strSearchUser = ging (strCN, 1) & juist (strCN, 1) & cntuser weg
       msgbox  „noem CN anders zoals“ & strSearchUser
       plaats rs = niets
     beëindig als

    LIJN
  beëindig als
beëindig als
    
sub ShowError (strErr)
  als 0 <> me dan vergis

   als me = 432 of err=70 toen vergis
    wscript.echo de „kwesties van de Toestemming om het programma“ in werking te stellen
    wscript.quit   
   anders
    selecteer geval strErr
     geval „OUNameNotExist“
      wscript.echo de „OU naam is niet correct of niet bestaat!“
      wscript.quit
     geval „ADOProblems“
      wscript.echo de „problemen van de DRUKTE!“
      wscript.quit
     geval „ADOProvider“
      wscript.echo „de Problemen van de Leverancier van de DRUKTE!“
      wscript.quit
    uitgezocht eind
   beëindig als

  beëindig als
beëindig sub
Andere oplossingen  
 
programming4us programming4us