How to get the full computer name using Test Complete

Question

For example,

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

Using TestComplete, I have tried the following:

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

Here, I am missing to get ".COM" using TestComplete

Please help me to get the full computer like RAMAKRISHNA.XYZ.COM

Dmitry Nikolaev · Accepted Answer · 2017-04-25 11:34:45Z

2

You can do this using 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 technology provides ways to manage Windows settings and operations. You can use the Win32_ComputerSystem WMI class to get information on the system. TestComplete provides an easy way to work with WMI using the corresponding object. Find more information in the WMI Object help topic.

edited Apr 25, 2017 at 11:34

answered Apr 25, 2017 at 7:31

Dmitry Nikolaev

3,9582 gold badges21 silver badges24 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

rama krishna Over a year ago

Thank you Dmitry, This served my purpose. Can you please explain the code functionality or provide any article links that helps me to get the code

Dmitry Nikolaev Over a year ago

I have updated my response with some details. If my answer resolves your question, I would appreciate if you accept it.

rama krishna Over a year ago

Thanks a lot Dmitry :)

Dmitry Nikolaev Over a year ago

@rama-krishna, I am glad that I was able to help! Could you please mark my answer as accepted by clicking the check icon to the left of the answer text? :)

user692942 · Accepted Answer · 2017-04-25 14:34:06Z

0

Try this if it helps:

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

edited Apr 25, 2017 at 14:34

user692942

16.4k8 gold badges85 silver badges196 bronze badges

answered Apr 25, 2017 at 12:43

Santosh Singh

217 bronze badges

Collectives™ on Stack Overflow

How to get the full computer name using Test Complete

2 Answers 2

4 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

4 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related