Frage : VBS Index, zum des Benutzers nicht herzustellen, wenn Benutzer im aktiven Verzeichnis vorhanden ist

Hallo everyone.

I helfen Notwendigkeit einige here.

I, einen vbs Index gebildet zu haben, herstellt die Benutzer im aktiven Verzeichnis en, aber das Problem, jedes Mal wenn ich diesen Index laufen lasse, ist das Benutzerkennwort erhalten Zurückstellen zurück zu dem alten Kennwort, ist dort jemand, das mir helfen kann Whit eine Weise, also wird sie nicht happe???

Antwort : VBS Index, zum des Benutzers nicht herzustellen, wenn Benutzer im aktiven Verzeichnis vorhanden ist

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

Viel Glueck
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:
6:
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:

INDEX: 
'**************************************************************************************
'Verursachte:    04/08/2002 
'Autor:     Yi Helen Wang
'Zweck:    Suchen der Benutzer durch ein aktives Verzeichnis (AD) von
'            Gegen die Verdoppelung zu versichern Windows 2000, wenn 
'            ein neuer Benutzer hinzugefügt in ANZEIGE ügt
'Schlüsselwörter:   AUFHEBEN und ADSI 2.5 oder up
'Wiederholte:   05/13/2002
'Anmerkung:    Sie müssen eine Erlaubnis zuweisen, aktives Verzeichnis zu erhalten 
'      Informationen.  Dieses Programm laufen gelassen am Ort oder entfernt
'***************************************************************************************
auf Störungszusammenfassung zunächst

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

newuser = falsch
cntuser = 0

'LDAP namespace erhalten
oRoot = GetObject einstellen („LDAP: //RootDSE ")
Anruf ShowError („Erlaubnisausgaben! ")
strDomainCtrl = oRoot.Get („defaultNamingContext“)

strOU = InputBox („bitte Eintragung ein Organisations-Maßeinheits-Name zum Suchen: “, „suchend“, „zugelassen“)
wenn Len (Ordnung (strOU)) = 0 dann
  msgbox, „, das keine Informationen eintippten!“ 
sonst
  strConnect = „LDAP: //OU=“ u. strOU u.“, „u. strDomainCtrl
  oContainer = GetObject (strConnect) einstellen
  ShowError („OUNameNotExist“) benennen
  
  searchpath = oContainer.ADsPath

  strSearchUser = InputBox („bitte suchte Eintragung der Benutzer Initiale: “, „Suchen“, „sls“)
  wenn Len (Ordnung (strSearchUser))=0  dann
    msgbox, „, das keine Informationen eintippten!“
  sonst
    'Using das AUFHEBEN, zum des aktiven Verzeichnisses für einen Partikelbenutzer zu fragen
    oConnect = CreateObject („ADODB.Connection“) einstellen
    oCommand = CreateObject („ADODB.Command“) einstellen
    ShowError („ADOProblems“) benennen

    ', den Anschluss öffnend
    oConnect.Provider = „ADsDSOObject“    
    oConnect.Open „aktiver Verzeichnis-Versorger“
    Anruf ShowError („ADOProvider“)
     ', einen Befehlsgegenstand für diesen Anschluss verursachend
     Einstellen  oCommand.ActiveConnection = oConnect

     strCN = strSearchUser
     TUN WÄHREND das zutreffende <> newuser
  
      oCommand.CommandText = „AUSERWÄHLTES samAccountName VON „“ u. searchpath u. „“, WO objectClass='user UND samAccountName = „„u. strSearchUser u.““ „

      ', ein recordset verursachend basiert auf dem AUFHEBEN-Befehl
      rs = oCommand.Execute einstellen
 
      'Die Steuerung Satzgruppe
      wenn rs.EOF und rs.BOF dann
        msgbox  „neuer Benutzer“
        newuser = ausrichten en
      sonst
       cntuser = cntuser + 1
       'bis keine Verdopplung wieder umbenennen und überprüfen
       strSearchUser = verließ (strCN, 1) u. rechtes (strCN, 1) u. cntuser
       msgbox  „umbenennen KN wie“ u. strSearchUser.
       rs einstellen = nichts
     beenden wenn

    SCHLEIFE
  beenden wenn
beenden wenn
    
sub ShowError (strErr)
  wenn 0 <> dann irren

   wenn = 432 oder err=70 dann irren
    wscript.echo „Erlaubnis herausgibt amm, um das Programm laufen zu lassen“
    wscript.quit   
   sonst
    Fall strErr vorwählen
     „OUNameNotExist“ umkleiden
      wscript.echo „OU-Name ist nicht korrekt oder nicht zu existieren!“
      wscript.quit
     Fall „ADOProblems“
      wscript.echo „AUFHEBEN-Probleme!“
      wscript.quit
     Fall „ADOProvider“
      wscript.echo „AUFHEBEN Versorger-Probleme!“
      wscript.quit
    Ende auserwählt
   beenden wenn

  beenden wenn
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us