Provides access to a string containing the name of the domain or workgroup to which the computer belongs.
SystemManager.Domain
Read only.
String.
To access the domain for the local computer, enter:
Set obj = CreateObject("OpScrUtil.SystemManager") strDomain = obj.Domain