Swyx-Client SDK Erreichbarkeit setzen VB-Script

Hallo Community,
ich hätte gern die Möglichkeit, mittels zweier VB-Scripte den Status
'Away', bzw. 'Available' pro User (die eigene Anmeldung) zu setzen;
Kann mir dabei jemand behilflich sein, und ein funktionierendes Code-Snippet zugänglich machen?
(Unter Benutzung der Methode SetRichpresentStatus)
Option Explicit
Dim LineCfg : Set LineCfg = Nothing
Dim d : Date : d=now
Set LineCfg= Wscript.CreateObject("CLMgr.ClientConfig")
'Away true, Da false
LineCfg.SetRichPresenceStatus true, false, d
Set LineCfg = Nothing
Wscript.Quit
Funktioniert so irgendwie leider nicht; sollte aber so simpel gefaßt sein...
Kann mir da jemand sagen, wie es richtig lauten muß?
Vielen Dank!
Grüße Chris.