This is my script:

Dim Test VBA

fullUrl As String = "10.4.106.102:8080" & “/servlets/RequestServlet”

Dim oWeb As New System.Net.WebClient()

Dim Params As New NameValueCollection()

Params.Add(

“operation”, "ADD_REQUEST")

Params.Add(

“priority”, "High")

Params.Add(

“subject”, "Test VBA")

Params.Add(

“description”, "ADD request by way VBA")

Params.Add(

“category”, "Hardware")

Params.Add(

“username”, "George Washington")

Params.Add(

“logonDomainName”, "2525")

Params.Add(

“password”, "2525")

Params.Add(

“mode”, “System Generated”)

Dim responseArray As Byte() = oWeb.UploadValues(fullUrl, Params)

MsgBox(System.Text.

Encoding.ASCII.GetString(responseArray))