Citrix client IP-addr eller AD site

HEJ.
Vi har flere kontorer, og folk rejser ofte mellem den.
Hvert kontor har sit IP-addr range, og tilhørende Site-name i Active Directory.

Alle kontor PC'er er i samme AD-domain, og brugere anvender egen logon-konto over alt.(Folk låner stationære PC eller bruger medbragt bærbare).
Ved logon startes et .VBS der tildeler printer og default-printer, som passer på kontoret.

PC'en IP chekces sådan:

.Set objWshNet = CreateObject("Wscript.Network")
.strComputerName = objWshNet.ComputerName
.strWinMgt = "winmgmts://" & strComputerName
.Set IPConfigSet = GetObject(strWinMgt).ExecQuery("select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
.For Each IPConfig In IPConfigSet
.  If Not IsNull(IPConfig.IPAddress) Then
.      For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
.        strSite = ""
.        strAddrx = IPConfig.IPAddress(i)
.        If InStr(strAddrx, "10.1.12") = 1 Then strSite = "CPH"
.        If InStr(strAddrx, "10.1.13") = 1 Then strSite = "ODE"
.        If InStr(strAddrx, "10.1.14") = 1 Then strSite = "AAR"
.      Next
.    End If
.  Next

PC'en SiteName i AD findes sådan:

.Set objADSysInfo = CreateObject("ADSystemInfo")
.  strSite = objADSysInfo.SiteName

jeg har brugt begge metoder, den sidste virker kun ved Win2000 og XP.

Nu kommer problemmet.
Vi har nu fået TerminalServer2003 med Citrix XP FR3.
Efter som TS/Citrix-serverne står på hovedkontoret, bliver det altid dette IP-net eller SiteName jeg får frem.

Kan man med VB finde den IP-addr eller helst SiteName som
"Citrix Program Neighborhood Agent" kører fra ??

mvh