Please use the below code to add request using VB script:
Dim
fullUrl As String = My.Settings.ServiceDeskURL & "/servlets/RequestServlet"
Dim oWeb As New System.Net.WebClient()
Dim Params As New NameValueCollection()
Params.Add(
"operation", NewTicket.Operation)
Params.Add(
"priority", NewTicket.Priority)
Params.Add(
"subject", NewTicket.Subject)
Params.Add(
"description", NewTicket.Description)
Params.Add(
"category", NewTicket.Category)
Params.Add(
"username", NewTicket.Username)
Params.Add(
"logonDomainName", NewTicket.LogonDomainName)
Params.Add(
"password", NewTicket.Password)
Params.Add(
"mode", "System Generated")
Dim responseArray As Byte() = oWeb.UploadValues(fullUrl, Params)
MsgBox(System.Text.
Encoding.ASCII.GetString(responseArray))