用时间戳数字签名Vbscript

Question

strComputer = "."
Set objWMIService = GetObject("winmgmts:" &_ 
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objSigner=CreateObject("Scripting.Signer")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("F:\\Code\\signedscripts")
Set colListOfFiles = objFolder.Files
Cert = "Example"
Store = "ROOT"
For each objFile in colListOfFiles
objSigner.SignFile objFile, Cert, Store
Next

我使用上面的脚本对vbscripts进行数字签名，现在我需要为签名的脚本添加时间戳。如何在此脚本中使用时间戳？