option explicit
dim strSMTPTo, strSMTPFrom, strSMTPSubject, strBody, strSMTPNARelay dim sHostname, objArgs dim objMessage Set objArgs = WScript.Arguments Set objMessage = CreateObject("CDO.Message") sHostname = objArgs.Item(0) strSMTPNARelay = "test.relay" strSMTPFrom = "solarwinds@domain.com" strSMTPTo = "admin@domain.com" strSMTPSubject = "Solarwinds Test Message" strBody = "This is the hostname or something... " & sHostname objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPNARelay objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update objMessage.From = strSMTPFrom objMessage.To = strSMTPTo objMessage.Subject = strSMTPSubject objMessage.TextBody = strBody objMessage.Send |