Listando usuários do Servidor NT

[rickonvb 0]

Existe alguma maneira de listar os usuários/contas de usuários que estão cadastradas no Win NT? Se tiver, posso resgatar a senha de ambos também?Sou o administrador da rede, por tanto não teria problemas com permissões, correto?Muito Obrigado!

[tiagoborges.net 0]

Saka só, tem uns scripts dentro do site da microsoft/technet que é mão na roda pra administrar domínio via IIS/ASP.

 

Link Technet: http://download.microsoft.com/download/c/a..._repository.exe

 

Em Users and Groups > Local Users > Enumerating All the User Accounts in an NT 4.0 Domain:

 

Ele tem padrão .vbs, o f* do vbs é q mostra um por um usuário:

 

Set objDomain = GetObject("WinNT://fabrikam,domain")objDomain.Filter = Array("User")For Each objUser In objDomain    Wscript.Echo objUser.Name Next

Enquanto qnd você muda .asp você pode listar todos:

 

Set objDomain = GetObject("WinNT://fabrikam,domain")objDomain.Filter = Array("User")For Each objUser In objDomain    response.write(objUser.Name &"<br>")Next

Usei <br> pra poder lista cada usuário em uma linha.

 

Com o ScriptCenter você consegue CODE pra poder inserir, deletar, renomear, descrever e inumeras opções com usuários e grupos, em principal se você migrar pra 2003, dae c v que pauleira usar com AD.

 

* Só lembrando, fabricam é o nome do domínio usado no exemplo assima.

 

 

Att,

[rickonvb 0]

Vou fazer um teste ainda hoje! Obrigado mesmo!

[tiagoborges.net 0]

Depois postae pra dizer se funcionou.

[rickonvb 0]

Achei a idéia bem legal, mas não consegui fazer o servidor reconhecer o .. "domínio"?Usei os comandos indicados:<%Set objDomain = GetObject("WinNT://dbhrsys,domain")objDomain.Filter = Array("User")For Each objUser In objDomain response.write(objUser.Name &"<br>")Next%>Onde o domínio onde trabalho é "dbhrsys"O erro retornado é:error '800401e4' /gep/usrnt.asp, line 2 Procurei a respeito deste erro e parece que ele acusa erro em caminhos.Alguma idéia!?Obrigado!!

[tiagoborges.net 0]

Bloco de notas:

 

Set objDomain = GetObject("WinNT://dbhrsys,domain")objDomain.Filter = Array("User")For Each objUser In objDomain   Wscript.Echo objUser.Name Next

Salvar como algumacoisa.vbs

 

Roda

 

Ve se passa, se passar pra não ter que ver todos os usuário CTRL + SHIFT + ESC e finaliza a aplicação.

 

Testa e me passa.