get-FQDN.vbs
StrRegKeyCompName = "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\" StrRegKeyTCPIP = "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\" Set WSHShell = CreateObject("WScript.Shell") StrHostname = WSHShell.RegRead (StrRegKeyTCPIP & "Hostname") StrDomainName = WSHShell.RegRead (StrRegKeyTCPIP & "Domain") StrFQDN = StrHostName & "." & StrDomainName msgbox StrFQDN