Cuestión : Escritura de VBS para no crear a usuario, si el usuario es existente en directorio activo

¿Hola la necesidad de everyone.

I algunos ayuda a here.

I para haber hecho una escritura de los vbs, ésa creará a usuario en directorio activo, pero el problema es, cada vez que funciono con esta escritura, la contraseña de usuario consigue reajuste de nuevo a la vieja contraseña, es allí cualquier persona que puede ayudarme pizca una manera, así que no happe??? class= del

Respuesta : Escritura de VBS para no crear a usuario, si el usuario es existente en directorio activo

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

Buena suerte
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:

ESCRITURA: 
'**************************************************************************************
'Creó:    04/08/2002 
'Autor:     Yi Helen Wang
'Propósito:    Búsqueda de usuarios a través de un directorio activo (AD) de
'            Windows 2000 a asegurar contra la duplicación cuando 
'            agregan a un nuevo usuario en ANUNCIO
'Palabras claves:   La DIFICULTAD y ADSI 2.5 o suben
'Repasó:   05/13/2002
'Comentario:    Usted tiene que asignar un permiso para conseguir el directorio activo 
'      información.  Este programa se funciona con localmente o remotamente
'***************************************************************************************
en curriculum vitae del error después

oContainer dévil, searchpath
oRoot dévil
oConnect dévil, oCommand, rs
strConnect dévil, strDomainCtrl, strOU
cntuser dévil, newuser, strCN, strSearchUser

newuser = falso
cntuser = 0

'para conseguir el namespace de LDAP
fijar el oRoot = GetObject (“LDAP: //RootDSE ")
¡llamada ShowError (“ediciones del permiso! ")
strDomainCtrl = oRoot.Get (“defaultNamingContext”)

strOU = InputBox (“por favor entrada un nombre de la unidad de la organización a buscar: ”, “buscando”, “legal”)
si Len (ajuste (strOU)) = 0 entonces
  msgbox “que ninguna información mecanografió adentro!” 

  strConnect = “LDAP: //OU=” y strOU y”, “y strDomainCtrl
  fijar el oContainer = GetObject (el strConnect)
  llamar ShowError (“OUNameNotExist”)
  
  searchpath = oContainer.ADsPath

  strSearchUser = InputBox (“la entrada el usuario buscó por favor inicial: ”, “búsqueda”, “sls”)
  si Len (ajuste (strSearchUser))=0  entonces
    msgbox “que ninguna información mecanografió adentro!”
  
    'Usar la DIFICULTAD para preguntar el directorio activo para un usuario de la partícula
    fijar el oConnect = CreateObject (“ADODB.Connection”)
    fijar el oCommand = CreateObject (“ADODB.Command”)
    llamar ShowError (“ADOProblems”)

    'abriendo la conexión
    oConnect.Provider = “ADsDSOObject”    
    oConnect.Open “abastecedor activo del directorio”
    llamada ShowError (“ADOProvider”)
     'creando un objeto del comando para esta conexión
     Fijar  oCommand.ActiveConnection = oConnect

     strCN = strSearchUser
     HACER MIENTRAS QUE newuser <> verdad
  
      oCommand.CommandText = “samAccountName SELECTO DE “” y searchpath y “” DONDE objectClass='user Y samAccountName = ““y strSearchUser y”” “

      'creando un recordset basado en el comando de la DIFICULTAD
      fijar los rs = oCommand.Execute
 
      La 'navegación registra el sistema
      si rs.EOF y rs.BOF entonces
        msgbox  “nuevo usuario”
        el newuser = verdad
      
       cntuser = cntuser + 1
       'retitular y comprobar otra vez hasta ninguna duplicación
       el strSearchUser = se fue (strCN, 1) y derecho (strCN, 1) y cntuser
       el msgbox  “retitula el NC como” y el strSearchUser
       fijar los rs = nada
     terminar si

    LAZO
  terminar si
terminar si
    
sub ShowError (el strErr)
  si entonces <> yerra 0

   si entonces yerran = 432 o err=70
    wscript.echo “permiso publica para funcionar con el programa”
    wscript.quit   
   
    seleccionar el strErr del caso
     encajonar “OUNameNotExist”
      wscript.echo “nombre del OU no está correcto o no existir!”
      wscript.quit
     caso “ADOProblems”
      wscript.echo “problemas de la DIFICULTAD!”
      wscript.quit
     caso “ADOProvider”
      wscript.echo “problemas del abastecedor de la DIFICULTAD!”
      wscript.quit
    extremo selecto
   terminar si

  terminar si
terminar el submarino
Otras soluciones  
 
programming4us programming4us