Questione : Scritto di VBS per non generare utente, se l'utente è attuale nell'indice attivo

Ciao il bisogno di everyone.

I alcuni aiuta here.

I per fare uno scritto dei vbs, quello genererà l'utente nell'indice attivo, ma il problema è, ogni volta che faccio funzionare questo scritto, la parola d'accesso di utente ottiene la risistemazione di nuovo alla vecchia password, è là chiunque che possa aiutarlo briciolo un senso, in modo da non happe??? class= del

Risposta : Scritto di VBS per non generare utente, se l'utente è attuale nell'indice attivo

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

Buona fortuna
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:

SCRITTO: 
'**************************************************************************************
'Ha generato:    04/08/2002 
'Autore:     Yi Helen Wang
'Scopo:    Ricerca degli utenti attraverso un indice attivo (AD) di
'            Windows 2000 da assicurare contro la duplicazione quando 
'            un utente nuovo si aggiunge nell'ANNUNCIO
'Parole chiavi:   La DIFFICOLTÀ e ADSI 2.5 o aumentano
'Ha esaminato:   05/13/2002
'Commento:    Dovete assegnare un permesso ottenere l'indice attivo 
'      informazioni.  Questo programma è funzionato localmente o a distanza
'***************************************************************************************
sul riassunto di errore dopo

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

newuser = falso
cntuser = 0

'per ottenere il namespace di LDAP
regolare il oRoot = GetObject (“LDAP: //RootDSE ")
chiamata ShowError (“edizioni di permesso! ")
strDomainCtrl = oRoot.Get (“defaultNamingContext„)

strOU = InputBox (“prego entrata un nome dell'unità di organizzazione da cercare: „, “cercando„, “legale„)
se Len (disposizione (strOU)) = 0 allora
  msgbox “che nessun'informazione ha scriv dentro!„ 
altrimenti
  strConnect = “LDAP: //OU=„ & strOU &„, “& strDomainCtrl
  regolare il oContainer = GetObject (strConnect)
  denominare ShowError (“OUNameNotExist„)
  
  searchpath = oContainer.ADsPath

  strSearchUser = InputBox (“l'entrata l'utente ha cercato prego l'iniziale: „, “cercare„, “sls„)
  se Len (disposizione (strSearchUser))=0  allora
    msgbox “che nessun'informazione ha scriv dentro!„
  altrimenti
    'Using DIFFICOLTÀ per interrogare l'indice attivo per un utente del particule
    regolare il oConnect = CreateObject (“ADODB.Connection„)
    regolare il oCommand = CreateObject (“ADODB.Command„)
    denominare ShowError (“ADOProblems„)

    'aprendo collegamento
    oConnect.Provider = “ADsDSOObject„    
    oConnect.Open “fornitore attivo dell'indice„
    chiamata ShowError (“ADOProvider„)
     'generando un oggetto di ordine per questo collegamento
     Regolar  oCommand.ActiveConnection = oConnect

     strCN = strSearchUser
     FARE MENTRE newuser <> allineare
  
      oCommand.CommandText = “samAccountName PRESCELTO DA “„ & searchpath & “„ DOVE objectClass='user E samAccountName = ““& strSearchUser &„„ “

      'generando un recordset basato sull'ordine di DIFFICOLTÀ
      regolare i rs = oCommand.Execute
 
      'Traversare registra l'insieme
      se rs.EOF e rs.BOF allora
        msgbox  “nuovo utente„
        il newuser = allinea
      altrimenti
       cntuser = cntuser + 1
       'cambiare titolo ancora e controllare lavorare a nessuna duplicazione
       lo strSearchUser = ha andato (strCN, 1) & di destra (strCN, 1) & cntuser
       il msgbox  “cambia titolo il CN come„ & lo strSearchUser
       regolare i rs = niente
     concluder se

    CICLO
  concluder se
concluder se
    
sub ShowError (strErr)
  se allora <> erra 0

   se allora errano = 432 o err=70
    wscript.echo “permesso pubblica per fare funzionare il programma„
    wscript.quit   
   altrimenti
    selezionare lo strErr di caso
     mettere “OUNameNotExist„
      wscript.echo “nome del OU non è corretto o non esistere!„
      wscript.quit
     caso “ADOProblems„
      wscript.echo “problemi di DIFFICOLTÀ!„
      wscript.quit
     caso “ADOProvider„
      wscript.echo “problemi del fornitore di DIFFICOLTÀ!„
      wscript.quit
    estremità prescelta
   concluder se

  concluder se
concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us