主题：[求助]computerid是RB6Q8C2DE9PW，怎么获取计算机名

If HardWareInfo.Ready = False '如果没有初始化
    HardWareInfo.Initialize '初始化HardWareInfo,提取硬件信息
End If
Output.Show("CPU信息")
With HardWareInfo.CPU
    Output.Show("制造商:" & .Manufacturer)
    Output.Show("品名:" & .Name)
    Output.Show("型号:" & .Description)
    Output.Show("序列号:" & .ProcessorId)
End With
Output.Show(Chr(13) & Chr(10))
Output.Show("主板信息")
With HardWareInfo.BaseBoard
    Output.Show("制造商:" & .Manufacturer)
    Output.Show("型号:" & .Product)
    Output.Show("序列号:" & .SerialNumber)
End With
Output.Show(Chr(13) & Chr(10))
Output.Show("硬盘信息")
With HardWareInfo.Disk
    Output.Show("型号:" & .Model)
    Output.Show("序列号:" & .Signature)
End With
Output.Show(Chr(13) & Chr(10))
Output.Show("硬盘信息2")
With HardWareInfo.Disk2
    Output.Show("型号:" & .Model)
    Output.Show("序列号:" & .Signature)
End With
Output.Show(Chr(13) & Chr(10))
Output.Show("BIOS信息")
With HardWareInfo.Bios
    Output.Show("厂商:" & .Manufacturer)
    Output.Show("序列号:" & .SerialNumber)
End With

计算机名，参考

 

Dim n = System.Net.Dns.GetHostName '获得本机的机器名
msgbox(n)