This might not seem that usefull
What you need is ADSI downloadable from Microsofts web site.
With ADSI you can look at a network like a directory you can create new users look at user permissions etc.
The following code shows how you could map all the PC's and the users profiles set on the PCs that are on a Domain
Set WshNetwork = CreateObject("WScript.Network")
Set WshGroups = CreateObject("Scripting.Dictionary")
WshGroups.CompareMode=vbTextCompare
DomName = WshNetwork.UserDomain
Set DomComp = GetObject("WinNT://" & DomName)
DomComp.filter = Array("computer")
For each Computer in DomComp
msgbox Computer.Name
Set ComputerLogon = GetObject("WinNT://" & DomName & "/" & Computer.Name)
ComputerLogon.filter = Array("user")
For each User in ComputerLogon
msgbox Computer.Name & "-" & User.Name
Next
Next
There is lots of information available on this subject
Hope this helps