如何使用，以获得完整的计算机名测试完成

问题描述：

例如获得完整的计算机名，

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全电脑

答

您可以使用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帮助主题中查找更多信息。

谢谢德米特里，这个被我的目的。你可以请解释代码功能或提供任何文章链接，帮助我获得代码 –

我已经更新了我的回复的一些细节。如果我的答案能够解决您的问题，如果您接受它，我将不胜感激。 –

非常感谢德米特里:) –

答

试试这个，如果有帮助：

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

如何使用，以获得完整的计算机名测试完成

相关推荐