感谢您使用微软产品。您可以使用ADSI方式得到当前计算机所登录的域名。
IADsADSystemInfo接口的DomainShortName,ForestDNSName,DomainDNSName属性分别提供了本机域名的简要或详细信息。如下例:Private Sub Form_Load()
    Set adSys = CreateObject("ADSystemInfo")
   Debug.Print "Forest DNS Name: " & adSys.ForestDNSName
   Debug.Print "Domain NetBIOS Name: " & adSys.DomainShortName
   Debug.Print "Domain DNS Name: " & adSys.DomainDNSNameEnd Sub详细信息请参考:
IADsADSystemInfo
http://msdn.microsoft.com/library/en-us/netdir/adsi/iadsadsysteminfo.asp
IADsADSystemInfo Property Methods
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netdir/adsi/iadsadsysteminfo_property_methods.asp-  微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境,请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。