ActiveXperts Network Monitor
Monitor servers, workstations, devices and applications in your network

Quicklinks

Scripts to manage Security

Programmatically Verifying a Script Signature
Signing All the Scripts in a Folder
Signing a Script Programmatically
Verifying Signatures for All the Scripts in a Folder

Programmatically Verifying a Script Signature


Verifies that an individual script has been digitally signed.
blnShowGUI = False
set objSigner = WScript.CreateObject("Scripting.Signer")
blnShowGUI = False
blnIsSigned = objSigner.VerifyFile("C:\Scripts\CreateUser.vbs", blnShowGUI)
If blnIsSigned then
    WScript.Echo "Script has been signed."
Else
   WScript.Echo " Script has not been signed."
End If

Signing All the Scripts in a Folder


Uses the Scripting Runtime Signer object to digitally sign all the scripts in a folder. Requires a valid digital certificate.
set objSigner = WScript.CreateObject("Scripting.Signer")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("c:\scripts")
Set colListOfFiles = objFolder.Files
For each objFile in colListOfFiles
    objSigner.SignFile objFile.Path, "IT Department"
Next

Signing a Script Programmatically


Uses the Scripting Runtime Signer object to digitally sign a script. Requires a valid digital certificate.
set objSigner = WScript.CreateObject("Scripting.Signer")
objSigner.SignFile "C:\Scripts\CreateUsers.vbs", "IT Department"

Verifying Signatures for All the Scripts in a Folder


Verifies that all the scripts in the C:\Scripts folder have been digitally signed.
blnShowGUI = False
set objSigner = WScript.CreateObject("Scripting.Signer")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Scripts\")
Set colListOfFiles = objFolder.Files
For each objFile in colListOfFiles
If Right(objFile.Name, 3) = "vbs" Then
    blnIsSigned = objSigner.VerifyFile(objFile.Path, blnShowGUI)
    If blnIsSigned then
        WScript.Echo objFile.Name & " has been signed."
        Else
            WScript.Echo objFile.Name & " has not been signed."
    End If
End If
Next