Verifies that all the scripts in the C:\Scripts folder have been digitally signed.

Visual Basic
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."
            WScript.Echo objFile.Name & " has not been signed."
        End If
    End If