Как получить полное имя компьютера с помощью Test Complete

Как получить полное имя компьютера с помощью 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"

Здесь мне не хватает ".COM" с помощью TestComplete

Пожалуйста, помогите мне получить полный компьютер, например RAMAKRISHNA.XYZ.COM.


environment-variables vbscript testcomplete
person rama krishna    schedule 25.04.2017    source источник

Ответы (2)


arrow_upward
3
arrow_downward

Это можно сделать с помощью 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 позволяет управлять настройками и операциями Windows. Вы можете использовать класс WMI Win32_ComputerSystem. получить информацию о системе. TestComplete предоставляет простой способ работы с WMI с использованием соответствующего объекта. Дополнительную информацию можно найти в разделе справки Объект WMI.

person Dmitry Nikolaev    schedule 25.04.2017
comment
Спасибо, Дмитрий, это послужило моей цели. Не могли бы вы объяснить функциональность кода или предоставить ссылки на статьи, которые помогут мне получить код - person rama krishna; 25.04.2017
comment
Я обновил свой ответ некоторыми деталями. Если мой ответ разрешает ваш вопрос, я был бы признателен, если бы вы его приняли. - person Dmitry Nikolaev; 25.04.2017
comment
Спасибо большое Дмитрий :) - person rama krishna; 25.04.2017
comment
@rama-krishna, я рада, что смогла помочь! Не могли бы вы отметить мой ответ как принятый, щелкнув значок галочки слева от текста ответа? :) - person Dmitry Nikolaev; 25.04.2017

arrow_upward
0
arrow_downward

Попробуйте это, если это поможет:

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
person Santosh Singh    schedule 25.04.2017