Vbscript 使用vbs将文本从监控系统传递到电子邮件

对.vbs脚本相对较新

我正在使用监控系统生成警报，并希望使用.vbs将它们发送到电子邮件中。如果我将警报写入文本文件，我会得到以下结果：

用户配置文件禁用SLOGIC:KA4 CPF1393用户配置文件测试已禁用。原因……：已禁用设备QPADEV000P或网络地址x.x.x.x上的用户配置文件测试，因为已达到为系统指定的最大登录尝试次数

我正在使用以下代码收集这些信息，并将其发送到我们的帮助台的电子邮件中

Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

SITNAME= wscript.arguments.item(0)
SITTIME= (time()) & " " & (date())
SITNODE= wscript.arguments.item(1)
MSGID= wscript.arguments.item(2)
DATAINFO= wscript.arguments.item(3)
HDATAINFO= wscript.arguments.item(4)

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Tivoli Generated an Alert for: " & SITNAME
objMessage.From = """Monitoring System"" <system@xyz.com>"
objMessage.To = "email@helpdesk.com"
objMessage.TextBody = "Alert for: " & SITNAME & vbCRLF &"Occured At: "& SITTIME & "   On: "& SITNODE & vbCRLF &"Message ID: "& MSGID & vbCRLF & "Data: "& DATAINFO & vbCRLF & "Help Data: "& HDATAINFO

如何修改代码，使数据和帮助数据显示所有文本，尤其是禁用的用户

---

提前感谢。

您应该调整监控系统，将必要的参数传递给VBScript。