VBScript

CardConnect Test API Credentials

To test and validate site-level credentials, you can make a GET request with no body to the base URL.

Chilkat VBScript Downloads

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)

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' The CardConnect REST Web Service base URL includes a protocol, host, port and servlet specification.
' 
' For example:
' https://<site>.cardconnect.com:<port>/cardconnect/rest/
' 
' This represents an HTTPS request to the REST web service base URL. 
' The servlet name is fixed within the application; the host and port are assigned by CardConnect. 

set http = CreateObject("Chilkat.Http")

http.BasicAuth = 1
http.Login = "API_USERNAME"
http.Password = "API_PASSWORD"

url = "https://<site>.cardconnect.com:<port>/cardconnect/rest/"
responseStr = http.QuickGetStr(url)

If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

' If we get a 200 response status and an HTML response saying "CardConnect REST Servlet", then our credentials are correct.
outFile.WriteLine("response status code = " & http.LastStatus)

outFile.WriteLine("response string:")
outFile.WriteLine(responseStr)

' Sample output:

' response status code = 200
' response string:
' <html lang="en"><body><h1>CardConnect REST Servlet</h1></body></html

outFile.Close