Add Hostname variable in a vbs script

[L4ndyMember]

#151979

Hi there,

I’ve got the following script:

Set objEmail = CreateObject(“CDO.Message”)
objEmail.From = “[EMAIL=”[email protected]”][email protected][/EMAIL]”
objEmail.To = “[EMAIL=”[email protected]”][email protected][/EMAIL]”
objEmail.Subject = “Server down”
objEmail.Textbody = “Server1 is no longer accessible over the network.”
objEmail.Configuration.Fields.Item _
(“[URL]http://schemas.microsoft.com/cdo/configuration/sendusing[/URL]”) = 2
objEmail.Configuration.Fields.Item _
(“[URL]http://schemas.microsoft.com/cdo/configuration/smtpserver[/URL]”) = _
“smarthost”
objEmail.Configuration.Fields.Item _
(“[URL]http://schemas.microsoft.com/cdo/configuration/smtpserverport[/URL]”) = 25
objEmail.Configuration.Fields.Update
objEmail.Send

[/CODE]

I need to put in a variable of the hostname in either the Subject title or in the text body.
I believe strHostName can be used but I don’t know how.

Can anyone help?

Tia[CODE]
Set objEmail = CreateObject(“CDO.Message”)
objEmail.From = “[email protected]“
objEmail.To = “[email protected]“
objEmail.Subject = “Server down”
objEmail.Textbody = “Server1 is no longer accessible over the network.”
objEmail.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendusing“) = 2
objEmail.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserver“) = _
“smarthost”
objEmail.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 25
objEmail.Configuration.Fields.Update
objEmail.Send

[/CODE]

I need to put in a variable of the hostname in either the Subject title or in the text body.
I believe strHostName can be used but I don’t know how.

Can anyone help?

Tia

[vonPryzMember]

#347514

Re: Add Hostname variable in a vbs script

Use Wscript.Network like so,

Code:

Set WshNetwork = WScript.CreateObject(“WScript.Network”)
WScript.Echo WshNetwork.ComputerName

Thus, change your script to catenate computer name into the subject string:

Code:

Set WshNetwork = WScript.CreateObject(“WScript.Network”)
objEmail.Subject = “Server ” & WshNetwork.ComputerName & ” is down”

As usual, thanks go to Guy Thomas.

-vP

[L4ndyMember]

#276915

Re: Add Hostname variable in a vbs script

Thanks -vP,

That worked a treat.

[Author]

Posts