VB.NET 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. VB.NET

Dim success As Boolean = False

'  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.
Dim cert As New Chilkat.Cert
success = cert.LoadPfxFile("C:/someDir/myCodeSigningCert.pfx","pfx password")
If (success = False) Then
    Debug.WriteLine(cert.LastErrorText)
    Exit Sub
End If


'  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"
'    }
'  }
Dim json As New Chilkat.JsonObject
json.UpdateString("hashAlg","sha256")
json.UpdateBool("timestampToken.enabled",True)
json.UpdateString("timestampToken.tsaUrl","http://timestamp.digicert.com")
json.UpdateBool("timestampToken.requestTsaCert",True)
json.UpdateString("timestampToken.hashAlg","sha256")

Dim scriptPath As String = "C:/someDir/Backup.vbs"

Dim signer As New 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.
success = signer.AddSignature(scriptPath,cert,json)
If (success = False) Then
    Debug.WriteLine(signer.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Signed the VBScript file.")

'  Verify the signature that was just added.
Dim sigInfo As New Chilkat.JsonObject
Dim valid As Boolean = signer.VerifySignature(scriptPath,sigInfo)
If (valid = False) Then
    Debug.WriteLine(signer.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("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.