' Remember to register WCIntegrator first :
' regsvr32 WCIntegrator.dll


dim Integrator 

set Integrator = CreateObject("WCIntegrator.Communicator")
Integrator.ServerIP = "127.0.0.1"
Integrator.ServerPort ="5400"
Integrator.Login "test2","test2", 0, "I'm out of office"

' Waiting for connection
WScript.Sleep 1000 

Integrator.PrivateMessage "test", "Hello test"

MsgBox "Message sent"