以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何获得运行软件的电脑全名？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27364)
--  作者：w2531717
--  发布时间：2012/12/29 16:51:00
--  [求助]如何获得运行软件的电脑全名？

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

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

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

求救各位！！！
--  作者：lin_hailun
--  发布时间：2012/12/29 17:11:00
--  
 在网上搜索到这一段。

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
--  作者：w2531717
--  发布时间：2012/12/29 17:36:00
--  
还真的可以！感谢哈！！