主题：[求助]如何获得运行软件的电脑全名？

最近需要做一个验证代码，需要获得电脑的全名full computer name

使用output.show（computername）显示的仅仅是电脑名字，没有电脑的工作组或者域名字

使用output.show（fullcomputername）或者output.show（domain）都显示是未声明名称

求救各位！！！

 在网上搜索到这一段。

Dim strComputer As String = "."
Dim objWMIService As Object = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Dim colSettings As Object = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
Dim objComputer As Object
For Each objComputer In colSettings
    MsgBox("System Name: " & objComputer.Name)
    MsgBox("Domain: " & objComputer.Domain)
Next

还真的可以！感谢哈！！