如何使用测试完成获取完整的计算机名称答案

【问题标题】：How to get the full computer name using Test Complete如何使用测试完成获取完整的计算机名称
【发布时间】：2017-04-25 06:08:51
【问题描述】：

如何使用 Test Complete 获取完整的计算机名称

例如，

Computer Name : RAMAKRISHNA
Full Computer Name  : RAMAKRISHNA.XYZ.COM
Domain Name : XYZ.COM

使用 TestComplete，我尝试了以下方法：

log.Message sys.HostName    'Gives "RAMAKRISHNA"
log.Message sys.DomainName  'Gives "XYZ"

在这里，我缺少使用 TestComplete 获取“.COM”

请帮助我获得完整的计算机，例如 RAMAKRISHNA.XYZ.COM

【问题讨论】：

标签： vbscript environment-variables testcomplete

【解决方案1】：

您可以使用 WMI 做到这一点。

Sub Test
  Log.Message getFullPCName  
End Sub 

Function getFullPCName
  Set cSystem = WMI.Service.InstancesOf("Win32_ComputerSystem").ItemIndex(0)
  getFullPCName = cSystem.Name & "." & cSystem.Domain
End Function

Windows Management Instrumentation 技术提供了管理 Windows 设置和操作的方法。您可以使用Win32_ComputerSystem WMI 类来获取有关系统的信息。 TestComplete 提供了一种使用相应对象来使用 WMI 的简单方法。在WMI Object 帮助主题中查找更多信息。

【讨论】：

谢谢德米特里，这符合我的目的。您能否解释一下代码功能或提供任何有助于我获取代码的文章链接
我已经用一些细节更新了我的回复。如果我的回答解决了您的问题，如果您接受，我将不胜感激。
非常感谢德米特里 :)
@rama-krishna，我很高兴能提供帮助！您能否通过单击答案文本左侧的复选图标将我的答案标记为已接受？ :)

【解决方案2】：

如果有帮助，试试这个：

Set wshShell = CreateObject( "WScript.Shell" ) 
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
WScript.Echo "Computer Name: " & strComputerName & "." & GetDomainName

Function GetDomainName()
  Dim Info 
  Set Info = CreateObject("AdSystemInfo") 
  GetDomainName = Info.DomainDNSName
End Function

【讨论】：