Call LogEntry()
Sub LogEntry()
On Error Resume Next
Dim objRequest
Dim URL
URL = "http://pbx:8123/" & WScript.Arguments(0) & "/" & WScript.Arguments(1) & "/" & WScript.Arguments(2)
Set objRequest = CreateObject("Microsoft.XMLHTTP")
objRequest.open "GET", URL , false
objRequest.Send
Set objRequest = Nothing
End Sub