如何使用，以獲得完整的計算機名測試完成

例如獲得完整的計算機名，

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全電腦

來源

2017-04-25 rama krishna

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

來源

2017-04-25 07:31:49

謝謝德米特里，這個被我的目的。你可以請解釋代碼功能或提供任何文章鏈接，幫助我獲得代碼 –

我已經更新了我的回覆的一些細節。如果我的答案能夠解決您的問題，如果您接受它，我將不勝感激。 –

非常感謝德米特里:) –

試試這個，如果有幫助：

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

來源

2017-04-25 12:43:43

如何使用，以獲得完整的計算機名測試完成

回答

相關問題