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


SET objFSO = CreateObject("Scripting.FileSystemObject")
'SET objOutputfile = objFSO.CreateTextFile("log.txt", True)

Set objMessage = CreateObject("CDO.Message")
objMessage.From = """Gilmer ISD"" <no-reply@gilmerisd.org>"
'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.gilmerisd.org"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "boggsm"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "battlenet"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==
 
 
SET objShell = CreateObject("WScript.Shell")
SET objExec = objShell.Exec("ping -n 2 -w 1000 " & "www.mcafee.com")
strPingResults = UCase(objExec.StdOut.ReadAll)

IF InStr(strPingResults, "TTL") THEN
        'objOutputfile.writeline strComputer & " PING = YES "
	MsgBox "Your Computer is not infected with Conficker."
ELSE
      objShell.Run "\\adm-sysrestore\drobo1\boggsm\RemConficker.bat"

END IF