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

 在网上搜索到这一段。

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