Question

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

例如，

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"

在这里，我很遗憾得到＆＃34; .COM＆＃34;使用TestComplete

请帮我拿一台完整的电脑，如RAMAKRISHNA.XYZ.COM

Answer 1

您可以使用WMI执行此操作。

#{}

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

Answer 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

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

2 个答案: