Segue o script....
-------------------------
Const SE_DACL_PROTECTED = 4096
'On Error Resume Next
Dim sDomain
Dim sADsPath
Dim sPDC
Dim oCon
Dim oCmd
Dim oRst
Set oRst = CreateObject("ADODB.Recordset")
Set oCmd = CreateObject("ADODB.Command")
Set oCon = CreateObject("ADODB.Connection")
Dim oRoot
Dim oDomain
Dim oADInfo
Dim oInfo
Set oADInfo = CreateObject("ADSystemInfo")
Set oInfo = CreateObject("WinNTSystemInfo")
sPDC = oInfo.PDC & "." & oADInfo.DomainDNSName
oCon.Provider = "ADSDSOObject"
oCon.Open "Active Directory Provider"
oCmd.ActiveConnection = oCon
oCmd.Properties("Page Size") = 1200
Set oRoot = GetObject("LDAP://rootDSE")
sDomain = oRoot.Get("defaultNamingContext")
Set oDomain = GetObject("LDAP://" & sDomain)
sADsPath = "<" & oDomain.ADsPath & ">"
oCmd.CommandText = sADsPath & ";" & _
"(&(objectCategory=user)(objectClass=user)(samAccountName=*)(!userAccountControl:1.2.840.113556.1.4.803:=2));displayName,sAMAccountName,userPrincipalName;Subtree"
WScript.Echo "Selecionando os objetos no Active Directory..."
Set oRst = oCmd.Execute
If oRst.RecordCount = 0 Then
WScript.Echo "Nenhum objeto foi encontrato!"
WScript.Quit
End If
numTotal = 0
Do While Not oRst.EOF
strPesquisaUsuario = QueryActiveDirectory( oRst.Fields( "sAMAccountName" ) )
If Not ( strPesquisaUsuario = "Nao encontrado" ) Then
Set objUser = GetObject("LDAP://" & strPesquisaUsuario )
Set objMailbox = objUser
If Not ( objMailbox.HomeMDB = "" ) Then
sDisplayName=objUser.Get("DisplayName") & " - TESTEsxxx"
wscript.echo " [-] " & objUser.Get( "sAMAccountName" ) & " -> " & sDisplayName
' Descomentar as duas linhas abaixo apos os seus testes
' objUser.Put "DisplayName", sDisplayName
' objUser.Setinfo
numTotal = numTotal + 1
End If
End If
oRst.MoveNext
Loop
Wscript.echo "Total de Usuários: [" & oRst.RecordCount & "]"
Wscript.echo "Total de Usuários Alterados: [" & numTotal & "]"
Wscript.echo "Total de Usuários Sem Alteração: [" & oRst.RecordCount - numTotal & "]"
'-------------------------------------------------------------
Public Function QueryActiveDirectory(sUserMatricula)
QueryActiveDirectory = "Not Found"
if Len(sUserMatricula) > 0 then
Dim oAD
Dim oGlobalCatalog
Dim oRecordSet
Dim oConnection
Dim strADsPath
Dim strQuery
Dim strUPN
set oRecordSet = CreateObject("ADODB.Recordset")
set oConnection = CreateObject("ADODB.Connection")
Set oAD = GetObject("GC:")
For Each oGlobalCatalog In oAD
strADsPath = oGlobalCatalog.AdsPath
Next
oConnection.Provider = "ADsDSOObject"
oConnection.Open "ADs Provider"
strQuery = "<" & strADsPath & _
">;(&(objectClass=user)(objectCategory=person)(sAMAccountName=" & _
sUserMatricula & "));userPrincipalName,cn,distinguishedName;subtree"
Set oRecordSet = oConnection.Execute(strQuery)
If oRecordSet.EOF And oRecordSet.BOF Then
QueryActiveDirectory = "Not Found"
Else
While Not oRecordSet.EOF
QueryActiveDirectory = oRecordSet.Fields("distinguishedName")
oRecordSet.MoveNext
Wend
End If
End If
End Function
