VBScript

SugarCRM Logout

See more SugarCRM Examples

Demonstrates how to logout of a session. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set rest = CreateObject("Chilkat.Rest")

success = rest.Connect("your.site.domain",443,1,1)
If (success <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

success = rest.AddHeader("Cache-Control","no-cache")
success = rest.AddHeader("OAuth-Token","<access_token>")

set sbReq = CreateObject("Chilkat.StringBuilder")

set sbJson = CreateObject("Chilkat.StringBuilder")
success = rest.FullRequestSb("POST","/rest/v10/oauth2/logout",sbReq,sbJson)
If (success <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

If (rest.ResponseStatusCode <> 200) Then
    outFile.WriteLine("Received error response code: " & rest.ResponseStatusCode)
    outFile.WriteLine("Response body:")
    outFile.WriteLine(sbJson.GetAsString())
    WScript.Quit
End If

set json = CreateObject("Chilkat.JsonObject")
success = json.LoadSb(sbJson)

' The following code parses the JSON response.
' A sample JSON response is shown below the sample code.

success = json.BoolOf("success")

' A sample JSON response body that is parsed by the above code:

' {
'   "success": true
' }

outFile.WriteLine("Example Completed.")

outFile.Close