SalemGrafix
IS-IT--Management
I have the domain name populating in a list box. What I need to do is not only the domain name, but also populate the full name. (ie. Not just tek-tips, but tek-tips and the .com part as well).
This is for LAN access only, this is not something I'm looking to use on the internet (not sure if that's important or not).
This populates a listbox with the domains on our LAN, and also that they are a domain (I believe it should represent workgroup if it's a workgroup, but we don't have any on our LAN to test that with).
Any help with this is greatly appreciated.
This is for LAN access only, this is not something I'm looking to use on the internet (not sure if that's important or not).
Code:
Dim objNameSpace
Dim Domain
Set objNameSpace = GetObject("WinNT:")
For Each objdomain In objNameSpace
List1.AddItem objdomain.Name & " | " & objdomain.Class
Next
This populates a listbox with the domains on our LAN, and also that they are a domain (I believe it should represent workgroup if it's a workgroup, but we don't have any on our LAN to test that with).
Any help with this is greatly appreciated.