PCNAME eines Benutzers aus ADsDSOObject auslesen

Ich möchte den PC NAmen ausgegeben bekommen, an dem ein Benutzer angemeldet ist.
Und das über das ActiveDirectory.
Es geht hier NICHT um den localen user und den localen pc.

Das könnte ich ja so realisieren:

Set objSysInfo = CreateObject("ADSystemInfo")

Set objUser = GetObject("LDAP:" & objSysInfo.Username)
Set objComputer = GetObject("LDAP:" & objSysInfo.ComputerName)

strmessage = objUser.cn & " logged on to " & objComputer.cn & " " & Now & "."


Aber ich muß eine Funktion bauen, der ich einen username angeben kann, und die funktion gibt mir den PC namen zurück, falls der User angemeldet ist.


Grund: ich will mit net send meldungen an angemeldetet user versenden, und benötige hierfür den PC namen .......

net send /?
Die Syntax dieses Befehls lautet:


NET SEND
{Name|*|/DOMAIN[:Name]|/USERS} Nachricht