Pergunta : Certificado de VBS para não criar o usuário, se o usuário é existente no diretório ativo

Olá! a necessidade de everyone.

I alguns ajuda here.

I a ter feito um certificado dos vbs, aquela criará o usuário no diretório ativo, mas o problema é, cada vez que eu funciono este certificado, a senha de usuário começ a restauração de volta à senha velha, é lá qualquer um que pode me ajudar whit uma maneira, assim que não happe??? class= do

Resposta : Certificado de VBS para não criar o usuário, se o usuário é existente no diretório ativo

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

Boa sorte
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:

CERTIFICADO: 
'**************************************************************************************
'Criou:    04/08/2002 
'Autor:     Yi Helen Wang
'Finalidade:    Procurarando usuários através de um diretório ativo (AD) de
'            Windows 2000 a segurar de encontro à duplicação quando 
'            um usuário novo é adicionado no ANÚNCIO
'Palavras-chaves:   A DEMORA e ADSI 2.5 ou levantam
'Reviu:   05/13/2002
'Comentário:    Você tem que atribuir uma permissão começ o diretório ativo 
'      informação.  Este programa é funcionado localmente ou remotamente
'***************************************************************************************
no resumo do erro em seguida

oContainer não ofuscante, searchpath
oRoot não ofuscante
oConnect não ofuscante, oCommand, rs
strConnect não ofuscante, strDomainCtrl, strOU
cntuser não ofuscante, newuser, strCN, strSearchUser

newuser = falso
cntuser = 0

'para começ o namespace de LDAP
ajustar o oRoot = o GetObject (“LDAP: //RootDSE ")
chamada ShowError (da “edições permissão! ")
strDomainCtrl = oRoot.Get (“defaultNamingContext”)

strOU = InputBox (“por favor entrada um nome da unidade da organização a procurarar: ”, “procurarando”, “legal”)
se Len (guarnição (strOU)) = 0 então
  msgbox “que nenhuma informação datilografou dentro!” 
mais
  strConnect = “LDAP: //OU=” & strOU &”, “& strDomainCtrl
  ajustar o oContainer = o GetObject (o strConnect)
  chamar ShowError (“OUNameNotExist”)
  
  searchpath = oContainer.ADsPath

  strSearchUser = InputBox (“por favor a entrada o usuário procurarou a inicial: ”, “pesquisa”, “sls”)
  se Len (guarnição (strSearchUser))=0  então
    msgbox “que nenhuma informação datilografou dentro!”
  mais
    'Using a DEMORA para perguntar o diretório ativo para um usuário do particule
    ajustar o oConnect = o CreateObject (“ADODB.Connection”)
    ajustar o oCommand = o CreateObject (“ADODB.Command”)
    chamar ShowError (“ADOProblems”)

    'abrindo a conexão
    oConnect.Provider = “ADsDSOObject”    
    oConnect.Open “fornecedor ativo do diretório”
    chamada ShowError (“ADOProvider”)
     'criando um objeto do comando para esta conexão
     Ajustar  oCommand.ActiveConnection = oConnect

     strCN = strSearchUser
     FAZER QUANDO newuser <> verdadeiro
  
      oCommand.CommandText = “samAccountName SELETO DE “” & searchpath & “” ONDE objectClass='user E samAccountName = ““& strSearchUser &”” “

      'criando um recordset baseado no comando da DEMORA
      ajustar rs = oCommand.Execute
 
      'Navegar grava o jogo
      se rs.EOF e rs.BOF então
        msgbox  “usuário novo”
        o newuser = retifica
      mais
       cntuser = cntuser + 1
       'rebatizar e verific outra vez até nenhuma duplicação
       o strSearchUser = saiu (strCN, 1) & direito (strCN, 1) & cntuser
       o msgbox  “rebatiza a NC como” & o strSearchUser
       ajustar rs = nada
     terminar se

    LAÇO
  terminar se
terminar se
    
sub ShowError (o strErr)
  se erram <> 0 então

   se erram = 432 ou err=70 então
    wscript.echo “permissão emite para funcionar o programa”
    wscript.quit   
   mais
    selecionar o strErr do caso
     encaixotar “OUNameNotExist”
      wscript.echo da “nome OU não está correto ou para não existir!”
      wscript.quit
     caso “ADOProblems”
      wscript.echo da “problemas DEMORA!”
      wscript.quit
     caso “ADOProvider”
      wscript.echo da “problemas do fornecedor DEMORA!”
      wscript.quit
    extremidade seleta
   terminar se

  terminar se
terminar o submarino
Outras soluções  
 
programming4us programming4us