none
Validar usuário em outro servidor pelo “Active Directory” - Filipe - RJ - SoftCorp / Vinicius Canto - MVP RRS feed

  • Pergunta

  • Rio, 13/11/07
    Validar usuário em outro servidor pelo “Active Directory” - Filipe - RJ - SoftCorp / Vinicius Canto - MVP

    Estou rodando uma aplicação ASP em um servidor. Pela maquina cliente o usuário realiza seu login (chave de rede/senha).

    Estou precisando validar no “Active Directory” em outro servidor se sua chave é válida neste catálogo.

     

    Lendo uma matéria em que o “Filipe - RJ – SoftCorp” e “Vinicius Canto – MVP” acho que poderia aproveitar algo.

     

    Preciso de ajuda para saber pelo ASP1 e VB 6.0, como posso fazer para acessar este catálogo e realizar a validação do usuário no servidor utilizando o “Active Directory”.

     

     

    Assunto: Trocar nomes da rede 300 maquinas (urgente)

     

    //---------------RETORNA TODOS OS PCs DO AD. -----------/ /

    Const ADS_SCOPE_SUBTREE = 2

    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand =   CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"

    Set objCOmmand.ActiveConnection = objConnection
    objCommand.CommandText = "Select Name, Location from 'LDAP://DC=hd,DC=local' Where objectClass='computer'" 
    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
    Set objRecordSet = objCommand.Execute
    objRecordSet.MoveFirst

    exclude = "pc01, pc02, pc03"

    Do Until objRecordSet.EOF

        strComputer = objRecordSet.Fields("Name").Value
        arrComputer = split(objRecordSet.Fields("Name").Value, "-")
        strComputer2 = arrComputer(0) & "-"

        if instr(exclude, strComputer)=0 then

            On Error Resume Next
            Set objWMIService = GetObject("winmgmts:" _
            & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

            if err=0 then
                Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
                For Each objComputer in colComputers

                tmpArray = split(objComputer.username,"\")
                Username = tmpArray(1)

                    objComputer.Rename("strComputer2 & Username")
                    Wscript.Echo "Computer Renamed, OLD: " & strComputer & " NEW: " & strComputer2 & Username
                Next
            end if
        end if

        objRecordSet.MoveNext
        err.clear
    Loop


    Corrigido.. tinha 2 For each....

    Testa ao agora.....

    A parte vermelha ali é onde vc muda pra fazer o testa na OU.

    o.0

    ->>>>>>>>>>>>>

    terça-feira, 13 de novembro de 2007 21:27

Respostas

  • Olá,

    creio que a forma mais fácil de fazer isso é usar a autenticação integrada do AD no servidor. Já tentou essa configuração?


    []s,


    --
    Vinicius Canto
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com
    terça-feira, 25 de dezembro de 2007 15:28
    Moderador

Todas as Respostas

  •  

    Post movido para Scripts Administrativos.
    domingo, 16 de dezembro de 2007 21:14
  • Olá,

    creio que a forma mais fácil de fazer isso é usar a autenticação integrada do AD no servidor. Já tentou essa configuração?


    []s,


    --
    Vinicius Canto
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com
    terça-feira, 25 de dezembro de 2007 15:28
    Moderador