Помогите разобраться как запустить этот скрипт из cmd
Private Function SignedMessage (
ByVal sFrom As String,
ByVal sTo As String,
ByVal sSubject As String,
ByVal sBody As String,
ByVal sAttachmentName As String,
ByVal sAttachmentFile As String,
ByVal sCertificateSerialNumber As String As CDO.Message )
Const csAttachment As String = "attachment;filename=""<FileName>"""
Const csAttachmentFileName As String = "<FileName>"
Const csContentDisposition As String = "urn:schemas:mailheader:content-
disposition"
Dim abSignatureData() As Byte
Dim oSignature As CDO.IBodyPart
Dim oSignedData As CAPICOM.SignedData
Dim oStream As ADODB.Stream
Set SignedMessage = New CDO.Message
With SignedMessage
.ReplyTo = sFrom
.From = sFrom
.To = sTo
.Subject = sSubject
'Create main body (= text + attachment).
With .BodyPart
.ContentMediaType = "multipart/signed;protocol=""application/x-
pkcs7-signature"";micalg=SHA1"
With .AddBodyPart
.ContentMediaType = "multipart/mixed"
With .AddBodyPart
.ContentMediaType = "text/plain;charset=""iso-8859-1"""
Set oStream = .GetDecodedContentStream
With oStream
.WriteText sBody
.Flush
.Close
End With
Set oStream = Nothing
End With
With .AddBodyPart
.ContentMediaType = "application/pdf"
.ContentTransferEncoding = "base64"
With .Fields
.Item(csContentDisposition) = Replace(csAttachment,
csAttachmentFileName, sAttachmentName)
.Update
End With
Set oStream = .GetDecodedContentStream
With oStream
.LoadFromFile sAttachmentFile
.Flush
.Close
End With
Set oStream = Nothing
End With
End With
'Now add the signature.
'Don't get content to sign until the message's structure is
complete.
Set oSignature = .AddBodyPart
With oSignature
.ContentMediaType = "application/x-pkcs7-signature"
.ContentTransferEncoding = "base64"
With .Fields
.Item(csContentDisposition) = Replace(csAttachment,
csAttachmentFileName, "smime.p7s")
.Update
End With
'Now create the signature as a byte array.
'Doing this with a byte array variable otherwise
Stream.Write will report an error.
Set oSignedData = New CAPICOM.SignedData
With oSignedData
.Content = MessageContent
(SignedMessage.GetStream.ReadText)
abSignatureData = .Sign(CertificateSigner
(sCertificateSerialNumber), True, CAPICOM_ENCODE_BINARY)
End With
Set oSignedData = Nothing
Set oStream = .GetDecodedContentStream
With oStream
.Write abSignatureData
.Flush
.Close
End With
Set oStream = Nothing
End With
End With
End With
End Function

Спасибо Настенька

возможно ли заставить работать из cmd ??