Search found 3003 matches

by SorenR
2019-05-24 16:59
Forum: General discussions
Topic: Code: HM4403
Replies: 25
Views: 289

Re: Code: HM4403

Hmm... HM4403 is used in PersistentMessage::LoadHeader and PersistentMessage::LoadBody ...
Both are called from DKIM at different times.

Wonder if the error goes away if DKIM check is removed?
by SorenR
2019-05-24 16:18
Forum: General discussions
Topic: Code: HM4403
Replies: 25
Views: 289

Re: Code: HM4403

I still fail to see why a 20 second wait would cause this. The script trigger is done and control is returned to core. If a supposed 20 second delay is delayed for 40 seconds I can not see why the issue is not within that call :mrgreen: The error occurs _between_ triggers, neither OnSMTPData nor On...
by SorenR
2019-05-24 15:45
Forum: General discussions
Topic: Code: HM4403
Replies: 25
Views: 289

Re: Code: HM4403

So we can conclude the issue you had was indeed introduced by using the Wait(20) and caused by some incompatibilities with sleep/timeout on Server Core? Or with this change, the issue still is not resolved? I'm not sure you are getting off that easy ;-) I still fail to see why a 20 second wait woul...
by SorenR
2019-05-24 14:28
Forum: General discussions
Topic: Code: HM4403
Replies: 25
Views: 289

Re: Code: HM4403

I made a new function to test. Function Wait(tSec) Dim dtWait dtWait = DateAdd("s", tSec, Now()) Do Until (Now() > dtWait) Loop End Function That should work fine. Sort of. My AMD Athlon(tm) II P340 Dual-Core 2.19 GHz doing absolutely Nothing else spikes to 60% CPU for the duration... With this I c...
by SorenR
2019-05-24 01:19
Forum: General discussions
Topic: Code: HM4403
Replies: 25
Views: 289

Re: Code: HM4403

SorenR wrote:
2019-05-24 00:24
Anyways, in the meantime I have verified that oMessage.Filename do have a value when OnSMTPData() is triggered.
Also verified that oMessage.Filename do not exist on disk at this point. It does when OnAcceptMessage is triggered and file can be read as text file...
by SorenR
2019-05-24 00:24
Forum: General discussions
Topic: Code: HM4403
Replies: 25
Views: 289

Re: Code: HM4403

Don't get me wrong here, it is the only change between the two triggers there is between your code and the released code... Anyways, there are plenty others using the 20 second delay without problems... I fail to see what SURBL has to do with it - it's a missing header or something. I run 5.4.2 with...
by SorenR
2019-05-23 20:56
Forum: Scripting
Topic: Regex problem
Replies: 2
Views: 27

Re: Regex problem

Use https://regex101.com/

Click on the 3 lines top left and choose ECMAScript...

Change .IgnoreCase = True to False :mrgreen:

One thing though... Copy oLookup to a new function or you will break all previous use of the function :!:
by SorenR
2019-05-23 17:52
Forum: General discussions
Topic: Code: HM4403
Replies: 25
Views: 289

Re: Code: HM4403

EDIT: !! Hmm... Could this be the temporary file sent to SA that is not supposed to exist yet ?? Weird, investigation needed! Ruud (RvdH) is playing with "Return-Path" before sending mail to SpamAssassin and that is at that exact place where your HM4403 error occurs. You might want to give him a pi...
by SorenR
2019-05-23 14:34
Forum: General discussions
Topic: Code: HM4403
Replies: 25
Views: 289

Re: Code: HM4403

Something is not right here... You get the HM4403 error between OnSMTPData and OnAcceptMessage ... From what I have been able to decode in the (released) code nothing is written to file until AFTER OnAcceptMessage execute. (!!) EDIT: !! Hmm... Could this be the temporary file sent to SA that is not ...
by SorenR
2019-05-22 09:15
Forum: Scripting
Topic: Mail Header Received from Unknown via GMAIL
Replies: 9
Views: 106

Re: Mail Header Received from Unknown via GMAIL

The Unknown client is NOT the issue. When I send to gmail I get this: Authentication-Results: mx.google.com; dkim=pass header.i=@acme.inc header.s=key1 header.b=UiL+0uR2; spf=pass (google.com: domain of soren@acme.inc designates 123.123.123.123 as permitted sender) smtp.mailfrom=soren@acme.inc; dmar...
by SorenR
2019-05-22 08:19
Forum: User-submitted tutorials
Topic: Hardening hMailServer - The ongoing saga!
Replies: 43
Views: 1740

Re: Hardening hMailServer - The ongoing saga!

By the way, after implementing your event handlers, i went from 20 to 30 spam per day to 1 to 3. Very nice! When i get some time, I'll try to figure out how to knock that down even further. There's a pattern I've noticed for spam addresses that make it through is "Somefirstname <DifferentfirstnameL...
by SorenR
2019-05-21 23:32
Forum: User-submitted tutorials
Topic: Hardening hMailServer - The ongoing saga!
Replies: 43
Views: 1740

Re: Hardening hMailServer - The ongoing saga!

Nice mower. Do you bale it? Or stack it like the old days? :mrgreen: I'm hosting horses for a friend from time to time so 6 of the 12 acres I don't have to touch, the rest is kept short. Working the wood chipper clearing up years of dead wood. I've owned the place since 2005 and last year we moved ...
by SorenR
2019-05-21 21:25
Forum: User-submitted tutorials
Topic: Hardening hMailServer - The ongoing saga!
Replies: 43
Views: 1740

Re: Hardening hMailServer - The ongoing saga!

the only other machine I have spare is a Acer Aspire 5552 with an AMD Athlon II Did you drag that thing out of a time capsule or something? Those antiques might be worth something today if you throw a couple of kroner inside the case. LOL I think my ProTools mixing station in 2000 was on an Athlon ...
by SorenR
2019-05-21 14:36
Forum: User-submitted tutorials
Topic: Hardening hMailServer - The ongoing saga!
Replies: 43
Views: 1740

Re: Hardening hMailServer - The ongoing saga!

' Disconnect all others connecting to port 25. Call idsAddIP(oClient.IPAddress, oClient.Port) Result.Value = 1 Call AutoBan(oClient.IPAddress, "GeoIP - " & oClient.IpAddress, 7, "d") EventLog.Write(strPort & " Connection REJECTED" & Chr(34) & vbTab & oClient.IPAddress & vbTab & Chr(34) & oGeoip("co...
by SorenR
2019-05-21 11:49
Forum: Scripting
Topic: Mail Header Received from Unknown via GMAIL
Replies: 9
Views: 106

Re: Mail Header Received from Unknown via GMAIL

Mattg, Thanks so much for your thoughts. I really appreciate your feedback. But again, I think you are missing the point... Gmail detects the actual ISP IP Number that the email sender is using beside the server IP where the HMailServer is running. If Gmail detects the IP having NO PTR Record then ...
by SorenR
2019-05-18 00:11
Forum: General discussions
Topic: Delete noreply still showing in queue
Replies: 32
Views: 543

Re: Delete noreply still showing in queue

oMessages.DeleteByDBID is not an option until the message have arrived in the mailbox - after completing rule handling and the EventHandlers script. The alternative is to "do your stuff" and then send the email to a wastebasket or tag it with a header value and delete it by rule. I did a test at the...
by SorenR
2019-05-17 13:52
Forum: General discussions
Topic: Time to say good bye ...
Replies: 20
Views: 505

Re: Time to say good bye ...

If you wonder who Martin is and what he does for a living...

https://www.linkedin.com/in/martin-knafve-99187a2/
by SorenR
2019-05-14 23:28
Forum: Scripting
Topic: Can't delete message by calling function from ACCOUNT rule
Replies: 9
Views: 129

Re: Can't delete message by calling function from ACCOUNT rule

Been experimenting... Reading the DB Table hm_messages from the Account Rule (Run Function) and it shows that the ID of the message (oMessage.ID) do exist BUT (!) "messageaccountid" and "messagefolderid" are 0, so it appears the message is owned by "nobody" in folder "nowhere" and this is probably w...
by SorenR
2019-05-14 21:38
Forum: Scripting
Topic: Can't delete message by calling function from ACCOUNT rule
Replies: 9
Views: 129

Re: Can't delete message by calling function from ACCOUNT rule

ID is written in table long before message hits inbox. You should be able to find oMessage.ID already in OnDeliveryStart(). .eml file is in .\hMailServer\Data at this stage. hmm, my approach was: ... strLocalSender = oMessage.Recipients(0).Address '<--- account from which the function is called by ...
by SorenR
2019-05-14 18:53
Forum: Scripting
Topic: Can't delete message by calling function from ACCOUNT rule
Replies: 9
Views: 129

Re: Can't delete message by calling function from ACCOUNT rule

my problem is "Subscript out of range". it seems ID isn't written in table unless file is saved on disk. and then it means message has already landed in inbox. too late for anything. am i right? if yes, no need to waste further time. i already have workarounds but it's a shame that calling a "delet...
by SorenR
2019-05-14 10:31
Forum: Scripting
Topic: Can't delete message by calling function from ACCOUNT rule
Replies: 9
Views: 129

Re: Can't delete message by calling function from ACCOUNT rule

In the ideal world you would use something like: Dim oApp : Set oApp = CreateObject("hMailServer.Application") Call oApp.Authenticate(ADMIN, PASSWORD) Dim oMessages : Set oMessages = CreateObject("hMailServer.Messages") Call oMessages.DeleteByDBID(oMessage.ID) Set oMessages = Nothing Set oApp = Noth...
by SorenR
2019-05-13 17:54
Forum: General discussions
Topic: Authentication / Hacking concerns
Replies: 4
Views: 116

Re: Authentication / Hacking concerns

Unfortunately - the log viewer does not let me copy and paste and there appears to be no export button. Anyway - think it is resolved - found the account they were using to connect. FYI - I was not obfuscating any spam e-mail addresses, I was obfuscating the domain where my server is hosted. Where ...
by SorenR
2019-05-12 18:02
Forum: General discussions
Topic: Blocking hackers gaining user names via "550 Unknown user"
Replies: 4
Views: 141

Re: Blocking hackers gaining user names via "550 Unknown user"

You could try this... 1: You will delay anything they do. 2: BOT's and general SPAM is all about time, if you delay them they skip your server. 3: Any LEGIT SMTP server WILL ignore the 20 sec delay and proceed to deliver mail. 4: Disable AUTH on port 25, move your clients to port 587 TLS or 465 SSL ...
by SorenR
2019-05-12 17:45
Forum: User-submitted tutorials
Topic: Hardening hMailServer - The ongoing saga!
Replies: 43
Views: 1740

Re: Hardening hMailServer - The ongoing saga!

FYI - running Handler.vbs from task manager will "wake up" hmailserver service. I found that from running Jimi's backup script which shuts down hmailserver service during the backup. Something was turning on the service before the backup completed. I finally nailed it down to Handler.vbs running ev...
by SorenR
2019-05-12 12:17
Forum: General discussions
Topic: Blocking hackers gaining user names via "550 Unknown user"
Replies: 4
Views: 141

Re: Blocking hackers gaining user names via "550 Unknown user"

Is there a way to Auto Ban an IP from consecutive attempts to gain valid email addresses via the 550 error, similar to the login attempt Auto Ban Have been getting an excessive amount of attempts like this.. "SMTPD" 5108 3342 "2019-05-12 00:33:10.846" "185.222.211.30" "RECEIVED: RCPT TO:<ihk7o11olb...
by SorenR
2019-05-12 10:58
Forum: User-submitted tutorials
Topic: Hardening hMailServer - The ongoing saga!
Replies: 43
Views: 1740

Re: Hardening hMailServer - The ongoing saga!

SorenR Thank you for posting this, I'm very interested in trying it out Unfortunately, with all the discussions that have gone on in the thread I can't work out what the latest EventHandler.vbs and Handler.vbs is (I'm really only interested in bloacking the failed login attempts at the mopment) The...
by SorenR
2019-05-12 10:49
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

Well its been a success. Had a log of 250 items, sent my priority email and got it within seconds. I always do. I thought this thing ran every minute, which I setup, but it seems its kinda instant , not sure why. In any case we have successfully moved items up the queue! Nice job guys! You just got...
by SorenR
2019-05-10 16:25
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

I missed the FileCopy and RefreshContent methods being used as a work-around for the missing load-from-file method on the Message object. I'd also suggest you run the code using the cscript.exe interpreter and not the default wscript.exe interpreter. As you've seen, wscript will throw a modal dialo...
by SorenR
2019-05-10 15:18
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

I think it all comes down to the DB-Field "messagenexttrytime" for delaying outgoing mails. UPDATE `hmailserver`.`hm_messages` SET messagenexttrytime = '2019-05-10 08:03:59' WHERE messagefilename = '{C6C3D5C8-8820-4BE0-923B-CD4C02708AD8}.eml'; If you run it via COM API Database Object, you can trig...
by SorenR
2019-05-10 12:11
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

This line: Set oMail = CreateObject("hMailServer.Message") Creates a new message object instance. But this line: strFilename = oMail.Filename Assigns the filename for the new message to the strFilename variable. It does not load the the contents of the message in the queue to the instance. So the s...
by SorenR
2019-05-10 11:47
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

Dravion, that is food for thought ... Good point but very risky if you are not 112% certain of what you are doing! I am actually already using the COM DB object for updating a custom table in the hm database so maybe I should have a look at it. The rest of you! Windows can present multiple errors fr...
by SorenR
2019-05-09 09:12
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

I hold all my hMailserver script/shell script code in the Events folder.

CInt (16bit) or CLng (32bit) dont care. It should really be LongLong (64bit) but VBScript is weird that way.
by SorenR
2019-05-08 18:10
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

New version, no need to restart delivery if nobody is moved ... Dim b, Match, Matches, oMail, LiveVIP : LiveVIP = False Dim oApp : Set oApp = CreateObject( "hMailServer.Application" ) Call oApp.Authenticate( "Administrator", "BIG SECRET" ) Matches = Split( oApp.status.UndeliveredMessages, vbNewLine ...
by SorenR
2019-05-08 17:12
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

I believe this should do it... Try it out on a test system first and if it breaks something - Hey, I warned you! Filename: queue.vbs Dim b, Match, Matches, oMail Dim oApp : Set oApp = CreateObject( "hMailServer.Application" ) Call oApp.Authenticate( "Administrator", "BIG SECRET" ) Matches = Split( o...
by SorenR
2019-05-08 16:17
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

cblaze22 wrote:
2019-05-08 15:18
I like this

Code: Select all

ID = Left(Match,InStr(Match," ")-12)
Can you explain how it works real quick. If I want to grab the .eml column, I assume that would work the same way.
Hey Programmer !! Done that already for you in the thread about reading eml's from disk. And it works too...
by SorenR
2019-05-08 15:53
Forum: Scripting
Topic: Read headers from .eml on disk
Replies: 5
Views: 96

Re: Read headers from .eml on disk

Well... I'm a genius... Dim a, b, i, Match, Matches, Done, oMail Dim oApp : Set oApp = CreateObject("hMailServer.Application") Call oApp.Authenticate("Administrator", "BIG SECRET") Done = False Do Until Done ' ' List all messages in queue ' Matches = Split(oApp.status.UndeliveredMessages, vbNewLine)...
by SorenR
2019-05-08 14:23
Forum: Scripting
Topic: Read headers from .eml on disk
Replies: 5
Views: 96

Re: Read headers from .eml on disk

Try this For i = 1 To oMessage.Headers.Count txt = "Message Subject is: " & oMessage.Subject & " Header #" & i & " name is: " & oMessage.Headers.Item(i-1).Name txt = txt & " value is: " & oMessage.Headers.Item(i-1).Value EventLog.write txt Next 'i That's not what he want... He want us to write the ...
by SorenR
2019-05-08 00:49
Forum: General discussions
Topic: Attack by SYN_RCVD
Replies: 19
Views: 374

Re: Attack by SYN_RCVD

Jokes aside i would still like to address: a, who these address belong to? Some of them resolved to 'askalo .info', and all are located in Germany. b, Why do they sit at SYN_RCVD and not move to any other state? c, Why, at that state, are they seriously screwing around with the performance of the h...
by SorenR
2019-05-07 23:53
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

Well that is neat, but where do you think the best place to call this? From a CMD window in Windows... On the server... It's a test... It does not really do anything but list the messages in queue - I hope - I usually never have any messages in my queue so I have only done limited testing. It's a c...
by SorenR
2019-05-07 23:47
Forum: General discussions
Topic: Attack by SYN_RCVD
Replies: 19
Views: 374

Re: Attack by SYN_RCVD

Image

Who did you piss off lately ?? :mrgreen:
by SorenR
2019-05-07 23:31
Forum: General discussions
Topic: Attack by SYN_RCVD
Replies: 19
Views: 374

Re: Attack by SYN_RCVD

Yalwa GmbH
Bahnstraße 2
65205 Wiesbaden
GERMANY
phone: +49 611 448875 0
fax:
e-mail: ripe (at) yalwa (dot) com

Nothing here, I don't share port 587 :wink:
by SorenR
2019-05-07 23:22
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

Just mocking something together... This should list the content of the delivery queue. VBScript stand-alone script to test on server in CMD window. Dim Match, Matches, Done Dim oApp : Set oApp = CreateObject("hMailServer.Application") Call oApp.Authenticate("Administrator", "VERY SECRET") ' Prelimin...
by SorenR
2019-05-07 17:44
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

Im a programmer, already programmed a VBScript to remove bounced messages within HMailServer so I know what I am doing. I however dont know the logistics of how HMailServer flows. You just said its written in c++ but the admin panel IS NOT written in just c++, https://github.com/nberardi/hMailServe...
by SorenR
2019-05-07 16:51
Forum: Scripting
Topic: OnDeliverMessage placement of call
Replies: 11
Views: 165

Re: OnDeliverMessage placement of call

What do you mean by "And yes, if you want this to happen you need to create a stand-alone script to monitor the queue and act accordingly."? Also there has to be a method hook for this. I cant believe we cant do anything to a message before it goes into the queue or right after. Should be an easy t...
by SorenR
2019-05-07 16:46
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

Ok I feel like I am getting contradictory responeses with these methods. So OnDeliverMessage is when it goes INTO the queue. Meaning it has a Message ID, meaning I can run the code below to put it at the top of the queue. Please confirm. WaitCursor waitCursor = new WaitCursor(); hMailServer.Deliver...
by SorenR
2019-05-07 15:51
Forum: Scripting
Topic: OnDeliverMessage placement of call
Replies: 11
Views: 165

Re: OnDeliverMessage placement of call

You say that but you were incorrect about the OnDeliveryFailed method. The code below sends an email right away. So you are telling me there is no place in the HMailServer scripting this can happen? private void menuItemSendNow_Click(object sender, EventArgs e) { WaitCursor waitCursor = new WaitCur...
by SorenR
2019-05-07 15:45
Forum: General discussions
Topic: Firing Order
Replies: 5
Views: 810

Re: Firing Order

cblaze22 wrote:
2019-05-07 14:07
Does Global Rules after Accept Message get executed before going in Queue? Also does it have a Message ID at that point?
I believe it has been answered elsewhere.
by SorenR
2019-05-07 15:42
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

Ok work with me here. I have posted that exact code you did multiple times without much luck on a good response. If I wanted to use that code to send something right away, based on say a header, where would I put it? The OnAcceptMessage doesnt have a ID and that is when its placed in the queue righ...
by SorenR
2019-05-07 15:28
Forum: Scripting
Topic: Saving oMessage in OnAcceptMessage to Get MessageID
Replies: 3
Views: 75

Re: Saving oMessage in OnAcceptMessage to Get MessageID

Is there a method that is available , that has the ID, but is called before it goes into the queue or right after it goes in the queue. My goal is to send the email immediately based on a header instead of say waiting in the queue for a hour to be processed because an important email is backed up. ...
by SorenR
2019-05-07 13:12
Forum: General discussions
Topic: Masquerade
Replies: 14
Views: 305

Re: Masquerade

Thank you that seems to have cured the issue with the scripts not running. However, I am now seeing messages corrupted by the time they get to Outlook (flow is appliance -> hMailServer->Office 365->Outlook). It looks like they are being truncated - I got a large email that Outlook left in Base64 en...
by SorenR
2019-05-07 12:54
Forum: Scripting
Topic: Move emails to top of the queue based on certain priority header flags
Replies: 45
Views: 574

Re: Move emails to top of the queue based on certain priority header flags

It appears that the "Send Now" button in the Delivery Queue window resets delivery time for the specific oMessage.ID and then restarts the delivery engine. private void menuItemSendNow_Click(object sender, EventArgs e) { WaitCursor waitCursor = new WaitCursor(); hMailServer.DeliveryQueue deliveryQue...
by SorenR
2019-05-07 12:33
Forum: Scripting
Topic: Saving oMessage in OnAcceptMessage to Get MessageID
Replies: 3
Views: 75

Re: Saving oMessage in OnAcceptMessage to Get MessageID

I found this in the code base below. The Message ID is not available in the OnAcceptMessage, however if you hit .Save like it shows below, will that assign an ID to the message so we can send it out for delivery right away. PLEASE SOMEONE CONFIRM! [Test] public void TestAddTextDuringSending() { hMa...
by SorenR
2019-05-07 10:58
Forum: Scripting
Topic: VBScript Regex to Grab Status Code and Test If 500 or higher.
Replies: 7
Views: 127

Re: VBScript Regex to Grab Status Code and Test If 500 or higher.

cblaze22 wrote:
2019-05-07 06:54
Missing

Code: Select all

regex.MultiLine = True
of course it does... sorry.
by SorenR
2019-05-06 16:55
Forum: User-submitted tutorials
Topic: Hardening hMailServer - The ongoing saga!
Replies: 43
Views: 1740

Re: Hardening hMailServer - The ongoing saga!

palinka wrote:
2019-05-06 14:01

As far as I'm concerned, HELO = IP is spam even if its presented in brackets per the "code".
The HELO check for [IPv4], [IPv6] or FQDN is to satisfy RFC, not anti-SPAM. It will however filter out various bots using malformed FQDN or simple IP greetings.
by SorenR
2019-05-06 16:38
Forum: Scripting
Topic: VBScript Regex to Grab Status Code and Test If 500 or higher.
Replies: 7
Views: 127

Re: VBScript Regex to Grab Status Code and Test If 500 or higher.

Sub OnDeliveryFailed(oMessage, sRecipient, sErrorMessage) Dim regex, matches, match, strResult, sURL Set regex = New RegExp regex.IgnoreCase = True regex.Pattern = "^(?:.*Remote server replied:\s)([0-9]{3})(?:\s.*)$" Set matches = regex.Execute(sErrorMessage) If matches.Count >= 1 Then Set match = ...
by SorenR
2019-05-06 14:06
Forum: Scripting
Topic: VBScript Regex to Grab Status Code and Test If 500 or higher.
Replies: 7
Views: 127

Re: VBScript Regex to Grab Status Code and Test If 500 or higher.

I need a VBScript to Grab Status Code and Test If 500 or higher. I can do this in .NET no problem but VBScript syntax is a little harder for me. The pattern is below but how would i test the string below to grab the 421, then do an IF statement on it (statusCode >= 500)? ^.*Remote server replied: (...
by SorenR
2019-05-06 11:59
Forum: User-submitted tutorials
Topic: Hardening hMailServer - The ongoing saga!
Replies: 43
Views: 1740

Re: Hardening hMailServer - The ongoing saga!

Todays flavor :mrgreen: Disclaimer. Not all variables are declared in the sample code.... Line 583 is Dim... Sub OnHELO(oClient) Dim oXML : Set oXML = LoadXML(XMLDATA) Line 667 is the Dim... Sub OnAcceptMessage(oClient, oMessage) Dim oXML : Set oXML = LoadXML(XMLDATA) No longer needed. When you rem...