How do you grab information with VB from Active Directory?

[anoble1]

Hi,

I have a program that I made that can grab all kinds of information from a PC using WMI thanks to Rabbit. I can just type in the remote PC's name or IP and I can get all kinds of info. But now I am looking to get the userID's information. I know very little about Active Directory, but that is where I am told all the user's info is located. Can anyone help me get started on some code that can access the active directory and pull user info? Such as Phone, Location, Manager, Name etc..

[ADezii]

Just subscribing for now. I have some sample Code that I can show you but unfortunately I am at work right now. As soon as I get a chance, I'll post the relevant information.

[zmbd]

Insights Article #122
Scroll to the bottom of this page, click on the VBA Insights Sitmap link, find the above...

[ADezii]

The following Code will illustrate the basic concepts on how to extract Information from Active Directory. I cal also supply additional AD Variables if you so desire.

'First, you must set a Reference to the Active DS Type Library
Dim sysInfo As Object
Dim oUser As Object
Dim oPath As Object         'Path Class in the ActiveDs Library
Dim intUser As Integer
Dim strLName As String
Dim strFName As String
Dim strUserName As String
'Dim strEMail As String
 
Set sysInfo = CreateObject("ADSystemInfo")
Set oPath = CreateObject("Path")    'Create a Path Object
Set oUser = GetObject("LDAP://" & sysInfo.UserName & "")
 
strUserName = sysInfo.UserName
 
Debug.Print "User Name: " & strUserName
Debug.Print "User Phone#: " & oUser.TelephoneNumber
Debug.Print "User E-Mail Address: " & oUser.EmailAddress
 
Debug.Print "Computer Name: " & sysInfo.ComputerName
Debug.Print "Site Name: " & sysInfo.SiteName
Debug.Print "Domain DNS Name: " & sysInfo.DomainDNSName
 
'Retrieve Properties of the Path Object
Debug.Print "Path: " & oPath.Path
Debug.Print "Type: " & oPath.Type
Debug.Print "Volume Name: " & oPath.VolumeName
 
Set sysInfo = Nothing
Set oUser = Nothing

[anoble1]

So, the only information I will need to grab this info is my Company Domain? What is the siteName reffering to?