Ich lese bei uns den Client Namen über folgende Funktion aus:
'***** Funktion Clientnamen ermitteln für Betriebssysteme höher als Windows Server 2003 R2 *****'
Function clientName
const HKEY_LOCAL_MACHINE = &H80000002
const HKEY_CURRENT_USER = &H80000001
Dim oShell
Set oShell = CreateObject("WScript.Shell")
strComputer = WshNetwork.Computername
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Volatile Environment"
oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
sSessionID=subkey
Next
On Error Resume Next
clientName = UCase(oShell.RegRead("HKCU\Volatile Environment\" & sSessionID & "\CLIENTNAME"))
'WScript.Echo "clientName: " & clientName
If Err.Number<>0 Then
clientName = "unknown"
End If
End Function
'***** Funktion Ende *****
Office auf Terminalserver
in Microsoft Lizenzen
Geschrieben
Ich lese bei uns den Client Namen über folgende Funktion aus: