以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]computerid是RB6Q8C2DE9PW，怎么获取计算机名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108515)
--  作者：zhjun2017
--  发布时间：2017/10/24 12:56:00
--  [求助]computerid是RB6Q8C2DE9PW，怎么获取计算机名
或者获取硬盘信息，主板信息，CPU信息。
--  作者：有点甜
--  发布时间：2017/10/24 14:55:00
--  
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
--  作者：有点甜
--  发布时间：2017/10/24 14:59:00
--  

计算机名，参考

 

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