gistfile1.vb

Option Explicit
 
Dim strMode
Dim strRTUserName
Dim strRTPassword
Dim strRTURL
Dim strRTAuthData
Dim objNetwork
Dim strComputerName
Dim strCurrentUser
Dim strQuery
Dim strPost 
Dim objXMLHTTP
Dim strParams
Dim strMethod
Dim regExp
Dim result
Dim strResult
 
strMode = WScript.Arguments.Item(0)
strRTUserName = "rttest"
strRTPassword = "password"
strRTURL = "http://support.oit.pdx.edu/NoAuthCAS/REST/1.0/"
strPost = ""
strParams = ""
strRTAuthData = "?user=" & strRTUsername & "&pass=" & strRTPassword
strMode = LCase(strMode)
strMethod = "POST"
select case strMode
  case "create"
		WScript.Echo "Create"
	case "update"
		Wscript.Echo "Update"
	case "query"
		strRTURL = strRTURL & "search/ticket"
		Set objNetwork = CreateObject("Wscript.Network")
		strComputerName = objNetwork.ComputerName
    'strComputerName = "USS-Xenon"
		strCurrentUser =  objNetwork.UserName
		strQuery = "Subject LIKE '[Win7Mig]' AND Subject LIKE '" & strComputerName & "'"
    strQuery = Replace(strQuery," ","+")
		strParams = "&query=" & strQuery
    strMethod = "GET"
		Wscript.Echo strParams
	case else
		Wscript.Echo "None"
end select
'content = "Queue: uss-lct" & vbLf & "Requestor: [email protected]" & vbLf & "Subject: REST test 1" & vbLf & "Owner: " & vbLf & "Text: This is a REST test" & vbLf & "Cc: " & vbLf
'url = "https://" & server & "/REST/1.0/ticket/"
 
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
WScript.Echo strRTURL & strRTAuthData & strParams
objXMLHTTP.open strMethod, strRTURL & strRTAuthData & strParams, false
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.send strPost
Set regExp = New RegExp
regExp.Pattern = "([0-9]*):"
Set result = regExp.Execute(objXMLHTTP.responseText)
If (result.count <> 0) Then
  strResult = result(0)
  strResult = Left(strResult,Len(strResult)-1)
End If
WScript.echo strResult