Citrix og terimal server Client PC Name

Fandt mit svar her:
http://social.technet.microsoft.com/Forums/en-US/winserverTS/thread/a6ea878a-8377-4baa-afaf-0a918991c4b3

strComputer = "."
Const ForAppending = 8
Set oNetwork = wscript.CreateObject("wscript.network") 'Create network object
Set objShell = Wscript.CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
strUserName  = oNetwork.userName
strComputerName  = oNetwork.computerName
strClientName = objShell.ExpandEnvironmentStrings("%clientname%")