VB中如何编程实现获取所在域的域名和服务器名？

[smartgkk]

各位仁兄：
VB中如何编程实现获取所在域的域名和服务器名？请多指教。
[e-mail]

[hydnoahark]

要求支持ADSI
Dim ntsys As New WinNTSystemInfo
Debug.print "User: " & ntsys.UserName
Debug.print "Computer: " & ntsys.ComputerName
Debug.print "Domain: " & ntsys.DomainName
Debug.print "PDC: " & ntsys.PDC