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
->>>>>>>>>>>>>
