Visual FoxPro Requires Chilkat v11.7.0+

Authenticode Sign a VBScript File (.vbs)

See more Code Signing Examples

Demonstrates how to Authenticode sign a VBScript file (.vbs). Signing VBScript files requires Chilkat v11.7.0 or later. The signature is appended to the file as a comment block. Visual FoxPro

LOCAL lnSuccess
LOCAL loCert
LOCAL loJson
LOCAL lcScriptPath
LOCAL loSigner
LOCAL loSigInfo
LOCAL lnValid

lnSuccess = 0

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

*  Signing a VBScript file (.vbs) requires Chilkat v11.7.0 or later.

*  Load the code signing certificate.  It must have access to its private key.
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("C:/someDir/myCodeSigningCert.pfx","pfx password")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

*  Sign with SHA256, and ask a timestamp authority for a timestamp.  A timestamp lets the
*  signature continue to validate after the code signing certificate has expired.
*  
*  {
*    "hashAlg": "sha256",
*    "timestampToken": {
*      "enabled": true,
*      "tsaUrl": "http://timestamp.digicert.com",
*      "requestTsaCert": true,
*      "hashAlg": "sha256"
*    }
*  }
loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("hashAlg","sha256")
loJson.UpdateBool("timestampToken.enabled",1)
loJson.UpdateString("timestampToken.tsaUrl","http://timestamp.digicert.com")
loJson.UpdateBool("timestampToken.requestTsaCert",1)
loJson.UpdateString("timestampToken.hashAlg","sha256")

lcScriptPath = "C:/someDir/Backup.vbs"

loSigner = CreateObject('Chilkat.CodeSign')

*  The script is modified in place.  The signature is appended to the end of the file as a comment block:
*  
*    '' SIG '' Begin signature block
*    '' SIG '' MIIoKgYJKoZIhvcNAQcCoIIoGzCCKBcCAQExDzANBglg
*    '' SIG '' ...
*    '' SIG '' End signature block
*  
*  If the script is already signed, the new signature block replaces the existing one.
lnSuccess = loSigner.AddSignature(lcScriptPath,loCert,loJson)
IF (lnSuccess = 0) THEN
    ? loSigner.LastErrorText
    RELEASE loCert
    RELEASE loJson
    RELEASE loSigner
    CANCEL
ENDIF

? "Signed the VBScript file."

*  Verify the signature that was just added.
loSigInfo = CreateObject('Chilkat.JsonObject')
lnValid = loSigner.VerifySignature(lcScriptPath,loSigInfo)
IF (lnValid = 0) THEN
    ? loSigner.LastErrorText
    RELEASE loCert
    RELEASE loJson
    RELEASE loSigner
    RELEASE loSigInfo
    CANCEL
ENDIF

? "The signature is valid."

*  Note: Other script types, such as JScript (.js), are not supported.
*  AddSignature returns false for an unsupported file type and does not modify the file.

RELEASE loCert
RELEASE loJson
RELEASE loSigner
RELEASE loSigInfo