Importere fra Active Directory

Har du de fornødne rettigheder til jeres AD?

Selv bruger jeg Hyena til at hente Ad-oplysninger ind i Excel. Hyena kan hentes i en 30-dages gratis evalueringsversion her:

http://www.systemtools.com/hyena/index.html?gclid=CPHj1ei9ia4CFQXwzAodVFQY2Q

Jeg forestillede mig egentlig, at jeg kunne lave en forespørgsel i Visual Basic... Eller det kan man måske ikke?
Det er lykkedes mig at hente alle data ved hjælp af en .vbs fil, så mon ikke jeg har de rettigheder der er behov for?

Please!
Jeg har fundet scriptet nedenfor, men jeg kan ikke få det til at virke... Er der virkelig ikke nogen der kan hjælpe mig?


Function GetAdsProp(ByVal SearchField As String, ByVal SearchString As String, ByVal ReturnField As String) As String
    ‘ Get the domain string ("dc=domain, dc=local")
    Dim strDomain As String
    strDomain = GetObject("LDAP://rootDSE").Get("defaultNamingContext")
   
    ‘ ADODB Connection to AD
    Dim objConnection As ADODB.Connection
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open "Provider=ADsDSOObject;"
       
    ‘ Connection
    Dim objCommand As ADODB.Command
    Set objCommand = CreateObject("ADODB.Command")
    objCommand.ActiveConnection = objConnection
       
    ‘ Search the AD recursively, starting at root of the domain
    objCommand.CommandText = _
        "<LDAP://" & strDomain & ">;(&(objectCategory=User)" & _
        "(" & SearchField & "=" & SearchString & "));" & SearchField & "," & ReturnField & ";subtree"

    ‘ RecordSet
    Dim objRecordSet As ADODB.Recordset
    Set objRecordSet = objCommand.Execute
         
   
    If objRecordSet.RecordCount = 0 Then
        GetAdsProp = "not found"  ‘ no records returned
    Else
        GetAdsProp = objRecordSet.Fields(ReturnField)  ‘ return value
    End If
     
    ‘ Close connection
    objConnection.Close
   
    ‘ Cleanup
    Set objRecordSet = Nothing
    Set objCommand = Nothing
    Set objConnection = Nothing
End Function

ØV ØV ØV - Ingen brugbare svar... Lukker :(