Which is what I suggested; it would just be a matter of adding a "tag" to messages, for example something like the followingandyp wrote:EventLog.Write would be the right solution, if you like to use the hm log
Code: Select all
Sub LogMsg(sMsg)
Dim sBuffer
sBuffer = "[SCRIPT] " & sMsg
EventLog.Write sBuffer
End Sub
Code: Select all
type logfilename.log|find "[SCRIPT]" >mylog.log
Well... if logging to a DB fits your bill, fine with me, I just wonder how much overhead such an approach may introduce, see, opening a DB connection and writing to a table requires more time than just appending lines to a text file or (better) leveraging the "Eventlog.Write" native function and given that a script should run as fast as possible to avoid slowing down the server and causing issues under heavy load...philg wrote: AndyP's use of a database via an ODBC (or OLEDB I guess) is a good solution because its much easier to maintain data integrity in that environment than in VBScript, and you can use transactions and database locks etc. to protect the data and the user of the data.
No I didn't say logging to the database (I know AndyP said he is doing that)!Well... if logging to a DB fits your bill, fine with me
)
)Well... not sure a "guide" may really be needed, see, the COM API documentation covers most properties/methods exposed by the hMS object model and the scripting section of the forums offers a number of "examples" (ok, working scripts, but those may be used as example); then, a tool like this one may further ease (and speed-up) editing and putting together decent scripts (carefully read the text at the bottom of pagephilg wrote:A simple guide might be good - but I understand that these things take time, and most of us just want to get our individual scripts/servers working! I guess all the information is in the forums (and quite a lot in this thread now) for anyone that knows how to use search
)The new script I am using write the time consumption into the database. The script is running for a year now and takes for each event about one second. Never had any performance issues, but a lot of problems with the file / lock file method.ObiWan wrote: Well... if logging to a DB fits your bill, fine with me, I just wonder how much overhead such an approach may introduce, see, opening a DB connection and writing to a table requires more time than just appending lines to a text file or (better) leveraging the "Eventlog.Write" native function and given that a script should run as fast as possible to avoid slowing down the server and causing issues under heavy load...
Andy, I'm not saying your approach is bad or whatever, but sincerely, 1 second may be too much for a loaded server, consider an instance of hMS getting 200 parallel connections (just an example), the above would mean spending 200 seconds logging messages... I think it's easy to see why I'm talking about "overhead" - what I want to pinpoint here is that a logging function should require milliseconds to avoid it becoming a potential source of "denial of service", that's why I personally prefer using the hMS native logging function, it introduces minimal overhead and deals with all the needed stuff (serialization, lock avoidance...)andyp wrote:The new script I am using write the time consumption into the database. The script is running for a year now and takes for each event about one second. Never had any performance issues, but a lot of problems with the file / lock file method.
Hmm... not sure it may be a good idea, then by the way, it all depends from what you want to achieve; see, if your purpose is to "limit the damage" which may be caused by a compromised machine/account "pumping out junk" through your server, it would be a better idea performing checks at the initial "accept" stage and, if the bulk-send goes over a given "rate limit" (that is, more than "N" emails [or "R" recipients] in a "T" interval) then the script should reject (it would be good issuing a 4xx aka "tempfail" SMTP code) any further send requests from that account/IP for a given amount of time and, at the same time, should raise an alert to the "postmaster"; the whole mechanism should then also include some kind of "whitelisting" so allowing certain senders (addresses or IPs) to bypass the limiter (you probably don't want to limit distribution lists, newsletters or the like)yenanlee wrote: I am looking for a script that put a 'pause' or 'delay' before HMailServer will process next batch.
And will process a long 'pause' / 'delay' after certain amount of sending.
For example:
'Pause' / 'Delay' = 10 sec before process another batch
'Pause' / 'Delay' = 300sec after sending 'x' batches (100 batches)
I will CC 20 emails in a batch, so I am not sure when the script said 'number',
a batch with 20 emails in consider 1 email, or 20 emails.
The simple reason is probably the fact that you are trying to hijack another discussion and posting an issue totally unrelated to the original subject; if you want to get an answer, open a new thread and explain what you are doing or (better) post portions of your script, otherwise, please AVOID hijacking discussions, it's a VERY bad habitindiannic wrote:hi
what could be the reason.
stephenlwells wrote:sorry to raise a thread from the dead
-
I'm trying to get this to work and i have 0 experience with scripting i can change the paths and all of that i'm just not sure where to put what in the script could someone post their eventhandler.vbs for me with this script installed i think i could get it from there with any personal info removed from it of course
thanks in advance!
on a side note im using hmail server to host over a 150+ domains in a production environment for over 5 years and it is f reeking awesome i ran into an issue where one of the accounts got hacked (thats what i get for letting users choose their passwords/could have been a virus too) and was sending out a ton of spam. I need to make sure this doesn't happen again or i'm going to have a lot of people mad at me again.
Code: Select all
# SMTP outgoing storage
41414 2 test@xxxxxx
The first number might be the date. The second number is the times.echoDreamz wrote:How is the times stored in the outboundstore.txt?
They are the same value.echoDreamz wrote:Well it is 5-20-2013. Which is why I am confused at what 41414 is...
Microsoft Office wrote:Microsoft Excel stores dates as sequential numbers that are called serial values. For example, in Microsoft Excel for Windows, January 1, 1900 is serial number 1, and January 1, 2008 is serial number 39448 because it is 39,448 days after January 1, 1900. Excel stores times as decimal fractions because time is considered a portion of a day. The decimal number is a value ranging from 0 (zero) to 0.99999999, representing the times from 0:00:00 (12:00:00 A.M.) to 23:59:59 (11:59:59 P.M.).
Without looking at the script in detail, I'd expect that the txt file is updated for EACH mail message that is sentechoDreamz wrote:Best answer ever. Thank you sir for that explanation!
Is this file updated each day? Or does it create a file per day?
mattg wrote:SystemBackup doesn't seem to have a domain name as part of the recipient address
ie It should be 'SystemBackup@yourDomain.com' rather than 'SystemBackup'
Look where you have set that variable...
mattg wrote:Is this script actually being fired?
Have you enabled scripts?
Have you reloaded scripts?
where did you save this script?
mattg wrote:Is your default domain, the domain that used to send these email notifications?
I appreciate your interest mattg, and no disrespect intended, but you're asking questions that I have already answered in my first post. I'm afraid that you're not really going to be able to help unless you were to dive into this script and understand how it works, which I'm not asking you to do.mattg wrote:And do you have an account called 'systemBackup'?
What happens if you don't use default domain?
(I normally don't use default domain as it creates too much SPAM, and I don't use this script)
I don't believe that this one was answered earlier in your poststtambellini wrote:I appreciate your interest mattg, and no disrespect intended, but you're asking questions that I have already answered in my first post. I'm afraid that you're not really going to be able to help unless you were to dive into this script and understand how it works, which I'm not asking you to do.
mattg wrote:What happens if you don't use default domain?
, but that isn't the same asttambellini wrote:The sender is an account called SystemBackup with an email address of SystemBackup@MYDOMAIN.com and the msg_fromaddress = "emailadmin@MYDOMAIN.com"
Your error message is clearly stating that the script can't find the recipient 'SystemBackup'. My questions are asking if you have such an account on your hMailserver.mattg wrote:do you have an account called 'systemBackup'?
but that doesn't mean you've implemented it properly so if you don't post your eventhandlers script in full we can't tell if you've done it correctly.ttambellini wrote:I can post the full script tomorrow, but it's the one in the first post with no changes except for the constants.
percepts wrote:but that doesn't mean you've implemented it properly so if you don't post your eventhandlers script in full we can't tell if you've done it correctly.ttambellini wrote:I can post the full script tomorrow, but it's the one in the first post with no changes except for the constants.
Code: Select all
Sub outgoing_limitations_send_message(oClient, oMessage, iswarning, nr, max, isdomain)
Dim txt
Dim tmp
If oclient.username <> "" then
tmp = oclient.username
Else
tmp = oMessage.FromAddress
End If
...Code: Select all
Sub outgoing_limitations_send_message(oClient, oMessage, iswarning, nr, max, isdomain)
Dim txt
Dim tmp
If oclient.username <> "" then
tmp = oclient.username
Else
tmp = oMessage.FromAddress
End If
If instr(2, tmp, "@DOMAIN.com") = 0 then tmp=tmp & "@DOMAIN.com"
...Code: Select all
'Force error on undeclared variables
'Option Explicit
'------------------------------------------------------------------
' Global variables and settings
'------------------------------------------------------------------
'General
Public obApp
Public domain_buffer
Public Const ipslocalhost = "0.0.0.0" 'separated by #
Public Const user = "Administrator"
Public Const pw = "password" ' ## enter admin password here
Public Const write_log_active = True
'User and Domain outgoing limitation
Public Const outgoingstore = "c:\program files(x86)\hMailServer\Events\outboundstore.txt"
Public Const outgoingexceptions = "c:\program files(x86)\hMailServer\Events\outboundexceptions.txt"
Public Const outgoingstoreavg = "c:\program files(x86)\hMailServer\Events\outboundstoreavg.txt"
Public Const max_emails_per_user = 1000
Public Const max_emails_per_domain = 10000
Public Const warning_factor = 0.8
Public Const server_average_days = 20 ' 0 will deactivate
Public Const server_average_threshold_factor = 10
Public Const warning_factor_avg = 0.6
Public Const msg_admin_warning = True
Public Const msg_admin_passed = True
Public Const msg_user_warning = True
Public Const msg_user_passed = True
Public Const msg_from = "Email Admin <user@domain.com>"
Public Const msg_fromaddress = "user@domain.com"
Public Const msg_ToAdminName = "Admin User"
Public Const msg_ToAdminEmail = "user@admindomain.com"
Public Const DefaultDomain = "defaultdomain.com"
Sub OnAcceptMessage(oClient, oMessage)
Result.Value = 0
Set obApp = CreateObject("hMailServer.Application")
Call obApp.Authenticate(user, pw)
If has_client_authenticated(oClient) Then
write_log (" User has authenticated. User " & oCLient.username & ", Client " & oClient.IPAddress)
if not check_outgoing_limitations(oClient, oMessage) Then
Result.Message = "Your account/Mailserver has passed SMTP outgoing limits."
Result.Value = 2
End if
End if
End Sub
'------------------------------------------------------------------
' SMTP limit outgoing emails of domain and user
'------------------------------------------------------------------
function check_outgoing_limitations(oClient, oMessage)
check_outgoing_limitations = true
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fs , f
Set fs = CreateObject("scripting.filesystemobject")
Dim idt
Dim content
Dim ln
Dim arr
Dim usern
Dim usernadd
Dim usernnr
Dim usernnrmax
Dim domn
Dim domnadd
Dim domnnr
Dim domnnrmax
Dim reason
Dim rcptscnt
Dim dayamounts(200)
Dim i, k
For i = 0 To 200
dayamounts(i) = 0
Next
Dim pos
Dim avg
Dim minday
minday = 999999
Dim toindex
Dim excptn
write_log(" SMTP outgoing limitations")
If oclient.username <> "" Then
If instr(1,oclient.username,"@") = 0 Then
usern = oclient.username & "@" & obApp.Settings.DefaultDomain
domn = "@" & obApp.Settings.DefaultDomain
Else
usern = oclient.username
domn = Mid(oclient.username,InStr(1,oclient.username,"@"))
End If
ElseIf is_local_domain(omessage.fromaddress) then
usern = omessage.fromaddress
domn = Mid(omessage.fromaddress,InStr(1,omessage.fromaddress,"@"))
Else
usern = "local"
domn = "@local"
End If
content = "# SMTP outgoing storage" & nl & nl
usernadd = true
domnadd = true
usernnr = 1
domnnr = 1
usernnrmax = max_emails_per_user
domnnrmax = max_emails_per_domain
idt = CLng(Date())
rcptscnt = omessage.Recipients.count
write_log(" Number of recipients " & rcptscnt)
write_log(" Reading exceptions file " & outgoingexceptions)
If fs.FileExists(outgoingexceptions) Then
Set f = fs.OpenTextFile(outgoingexceptions, ForReading)
Do While Not f.AtEndOfStream
ln = f.ReadLine
If ln <> "" And Mid(ln,1,1) <> "#" And Len(ln) > 3 Then
arr = Split(ln,Chr(9))
If UBound(arr) = 1 Then
If arr(0) = usern Then
usernnrmax = CLng(arr(1))
write_log (" new user limit " & ln)
End if
If arr(0) = domn Then
domnnrmax = CLng(arr(1))
write_log (" new domain limit " & ln)
End if
Else
write_log (" cannot process line " & Mid(ln,1,25))
End If
ElseIf Len(ln) > 5 And f.Line > 4 + 1 then
write_log (" skipping line " & Mid(ln,1,25))
End If
Loop
Else
Set f = fs.OpenTextFile(outgoingexceptions, ForWriting, true)
f.Write("# Outgoing limitation exceptions tab / chr(9) separated" & nl)
f.Write("# Examples (without # at the beginning)" & nl)
f.Write("# @yourdomain.com 10000" & nl)
f.Write("# address@yourdomain.com 5000" & nl & nl)
f.Close
End If
write_log(" Reading storage file " & outgoingstore)
If fs.FileExists(outgoingstore) Then
Set f = fs.OpenTextFile(outgoingstore, ForReading)
Do While Not f.AtEndOfStream
ln = f.ReadLine
If ln <> "" And Mid(ln,1,1) <> "#" And Len(ln) > 5 Then
arr = Split(ln," ")
If UBound(arr) > 1 Then
If minday > CLng(arr(0)) Then
minday = CLng(arr(0))
End If
End If
If UBound(arr) = 2 Or UBound(arr) = 3 Then
If CLng(arr(0)) = idt And arr(2) = usern Then
usernnr = CLng(arr(1)) + rcptscnt
usernadd = False
write_log (" adding to line " & ln)
If usernnr > usernnrmax Then
If UBound(arr) = 3 Then
If arr(3) = "X" then
write_log (" deny already sent")
Else
write_log (" sending deny")
outgoing_limitations_send_message oClient, oMessage, false, usernnr, usernnrmax, false
End if
Else
write_log (" sending deny")
outgoing_limitations_send_message oClient, oMessage, false, usernnr, usernnrmax, false
End If
content = content & arr(0) & " " & usernnr & " " & arr(2) & " X" & nl
ElseIf usernnr > usernnrmax * warning_factor then
If UBound(arr) = 3 Then
If arr(3) = "W" then
write_log (" warning already sent")
Else
write_log (" sending warning")
outgoing_limitations_send_message oClient, oMessage, true, usernnr, usernnrmax, false
End if
Else
write_log (" sending warning")
outgoing_limitations_send_message oClient, oMessage, true, usernnr, usernnrmax, false
End If
content = content & arr(0) & " " & usernnr & " " & arr(2) & " W" & nl
Else
content = content & arr(0) & " " & usernnr & " " & arr(2) & nl
End if
elseIf CLng(arr(0)) = idt And arr(2) = domn Then
domnnr = CLng(arr(1)) + rcptscnt
domnadd = false
write_log (" adding to line " & ln)
If domnnr > domnnrmax Then
If UBound(arr) = 3 Then
If arr(3) = "X" then
write_log (" deny already sent")
Else
write_log (" sending deny")
outgoing_limitations_send_message oClient, oMessage, false, domnnr, domnnrmax, true
End if
Else
write_log (" sending deny")
outgoing_limitations_send_message oClient, oMessage, false, domnnr, domnnrmax, true
End If
content = content & arr(0) & " " & domnnr & " " & arr(2) & " X" & nl
ElseIf domnnr > domnnrmax * warning_factor then
If UBound(arr) = 3 Then
If arr(3) = "W" then
write_log (" warning already sent")
Else
write_log (" sending warning")
outgoing_limitations_send_message oClient, oMessage, true, domnnr, domnnrmax, true
End if
Else
write_log (" sending warning")
outgoing_limitations_send_message oClient, oMessage, true, domnnr, domnnrmax, true
End If
content = content & arr(0) & " " & domnnr & " " & arr(2) & " W" & nl
Else
content = content & arr(0) & " " & domnnr & " " & arr(2) & nl
End if
ElseIf CLng(arr(0)) < idt - server_average_days Then
write_log (" deleting line " & ln)
Else
content = content & arr(0) & " " & arr(1) & " " & arr(2) & nl
'write_log (" copying line " & ln)
End If
If Mid(arr(2),1,1) <> "@" Then
pos = idt - CLng(arr(0))
dayamounts(pos) = dayamounts(pos) + CLng(arr(1))
End If
Else
write_log (" cannot process line " & Mid(ln,1,25))
End If
ElseIf Len(ln) > 5 And f.Line > 1 + 1 then
write_log (" skipping line " & Mid(ln,1,25))
End If
Loop
f.Close
If usernadd Then
content = content & idt & " " & usernnr & " " & usern & nl
End If
If domnadd Then
content = content & idt & " " & domnnr & " " & domn & nl
End If
Set f = fs.OpenTextFile(outgoingstore, ForWriting, true)
f.Write(content)
f.Close
Else
content = content & idt & " " & usernnr & " " & usern & nl
content = content & idt & " " & domnnr & " " & domn & nl
Set f = fs.OpenTextFile(outgoingstore, ForWriting, true)
f.Write(content)
f.Close
End If
toindex = idt - minday
avg = CDbl(0)
If toindex >=5 then
For i = 1 To toindex
avg = avg + CDbl(dayamounts(i))
Next
avg = CDbl(avg) / CDbl(toindex)
write_log(" Statistic calculation over " & server_average_days & " days")
write_log(" todays amount " & dayamounts(0) & " average " & avg & " maximum " & avg * server_average_threshold_factor)
write_log(" Checking statistics")
End If
If toindex < 5 then
write_log(" Statistic calculation is only done over at least 5 days. Available days: " & toindex)
ElseIf avg < 5 Then
write_log(" average below 5 mails per day, ignoring average statistic")
ElseIf dayamounts(0) > avg * server_average_threshold_factor Then
write_log(" todays amount has passed limit of " & avg * server_average_threshold_factor)
outgoing_limitations_avg_send_admin dayamounts(0),avg * server_average_threshold_factor,false
check_outgoing_limitations = False
ElseIf dayamounts(0) > avg * server_average_threshold_factor * warning_factor_avg Then
write_log(" todays amount has passed warning level of " & avg * server_average_threshold_factor * warning_factor_avg)
outgoing_limitations_avg_send_admin dayamounts(0),avg * server_average_threshold_factor,true
check_outgoing_limitations = False
Else
write_log(" within limits")
End If
write_log(" Checking limits")
If usernnrmax < usernnr Then
check_outgoing_limitations = false
write_log(" max of user passed!")
ElseIf domnnrmax < domnnr Then
check_outgoing_limitations = false
write_log(" max of domain passed!")
Else
write_log(" within limits")
End If
excptn = false
If oMessage.FromAddress = msg_ToAdminEmail Then
excptn = true
Else
For k = 0 To oMessage.recipients.count - 1
If oMessage.recipients(k).OriginalAddress = msg_ToAdminEmail Then
excptn = True
End If
Next
End If
If excptn = True Then
write_log(" Mail from/to admin -> passes lock")
check_outgoing_limitations = true
End if
End function
Sub outgoing_limitations_avg_send_admin(nr, max, iswarning)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fs , f
Set fs = CreateObject("scripting.filesystemobject")
Dim txt
Dim tmp
Dim str
Dim out
Dim snd
If iswarning Then
tmp = "Warning: Todays outgoing emails will reach lock soon"
txt = "Hello " & msg_ToAdminEmail & nl & nl
txt = txt & "todays outgoing email will reach avg limit soon." & nl & nl
txt = txt & "Current amount is " & nr & nl
txt = txt & "Limit is " & max & nl & nl
txt = txt & "Regards" & nl
txt = txt & msg_ToAdminEmail
str = "W" & CLng(Date())
Else
tmp = "Locked: Todays outgoing emails have passed avg limit"
txt = "Hello " & msg_ToAdminEmail & nl & nl
txt = txt & "todays outgoing email have passed avg limit." & nl & nl
txt = txt & "Current amount is " & nr & nl
txt = txt & "Limit is " & max & nl & nl
txt = txt & "Regards" & nl
txt = txt & msg_ToAdminEmail
str = "X" & CLng(Date())
End If
snd = true
If fs.FileExists(outgoingstoreavg) Then
Set f = fs.OpenTextFile(outgoingstoreavg,ForReading)
out = f.ReadAll
f.Close
If out = str Then
snd = false
End If
End If
If snd then
Set nMessage = CreateObject("hMailServer.Message")
nMessage.From = msg_from
nMessage.FromAddress = msg_fromaddress
nMessage.AddRecipient msg_ToAdminName, msg_ToAdminEmail
nMessage.Subject = tmp
nMessage.Body = txt
nMessage.Save
Set f = fs.OpenTextFile(outgoingstoreavg,ForWriting,True)
f.Write(str)
f.Close
End If
End Sub
Sub outgoing_limitations_send_message(oClient, oMessage, iswarning, nr, max, isdomain)
Dim txt
Dim tmp
Dim nMessage
If oclient.username <> "" then
tmp = oclient.username
Else
tmp = oMessage.FromAddress
End If
If instr(2, tmp, DefaultDomain) = 0 then
tmp=tmp & "@" & DefaultDomain
End If
If iswarning Then
txt = "Hello " & tmp & nl & nl
txt = txt & "you will soon reach your account limits." & nl & nl
txt = txt & "Current amount is " & nr & nl
txt = txt & "Limit is " & max & nl & nl
If isdomain Then
txt = txt & "This is a limit of the your domain." & nl & nl
Else
txt = txt & "This is a limit of the your account." & nl & nl
End If
txt = txt & "Regards" & nl
txt = txt & msg_ToAdminEmail
If msg_admin_warning then
End If
If msg_user_warning then
Set nMessage = CreateObject("hMailServer.Message")
nMessage.From = msg_from
nMessage.FromAddress = msg_fromaddress
nMessage.AddRecipient tmp, tmp
nMessage.Subject = "Warning: Account limits will be reached soon"
nMessage.Body = txt
nMessage.Save
End if
Else
txt = "Hello " & tmp & nl & nl
txt = txt & "you have passed your account limits." & nl & nl
txt = txt & "Current amount is " & nr & nl
txt = txt & "Limit is " & max & nl & nl
If isdomain Then
txt = txt & "This is a limit of the your domain." & nl & nl
Else
txt = txt & "This is a limit of the your account." & nl & nl
End If
txt = txt & "Regards" & nl
txt = txt & msg_ToAdminEmail
If msg_admin_passed then
Set nMessage = CreateObject("hMailServer.Message")
nMessage.From = msg_from
nMessage.FromAddress = msg_fromaddress
nMessage.AddRecipient msg_ToAdminName, msg_ToAdminEmail
nMessage.Subject = "Locked: Account limits passed"
nMessage.Body = txt
nMessage.Save
End If
If msg_user_passed then
Set nMessage = CreateObject("hMailServer.Message")
nMessage.From = msg_from
nMessage.FromAddress = msg_fromaddress
nMessage.AddRecipient tmp, tmp
nMessage.Subject = "Locked: Account limits passed"
nMessage.Body = txt
nMessage.Save
End if
End If
End Sub
'------------------------------------------------------------------
' General functions of all scripts
'------------------------------------------------------------------
Sub write_log(txt)
If write_log_active then
EventLog.Write("Limit SMTP Script:"+txt)
End if
End Sub
Function get_date
Dim tmp
Dim erg
tmp = Year(Date)
erg = CStr(tmp)
If Month(Date) < 10 Then
tmp = "0" & Month(Date)
Else
tmp = Month(Date)
End If
erg = erg & "-" & tmp
If day(Date) < 10 Then
tmp = "0" & day(Date)
Else
tmp = day(Date)
End If
erg = erg & "-" & tmp
get_date = erg
End Function
Function nl
nl = Chr(13) & Chr(10)
End function
Function is_local_domain(domain_or_email)
is_local_domain = False
Dim domain
Dim doms
Dim alss
Dim i
Dim j
If InStr(1," " & domain_or_email,"@") > 0 Then
domain = Mid(domain_or_email, InStr(1,domain_or_email,"@") + 1)
Else
domain = domain_or_email
End If
If domain_buffer = "" then
i = 0
Set doms = obapp.Domains
Do While i <= doms.Count - 1
Set dom = doms.Item(i)
domain_buffer = domain_buffer & "#" & dom.Name
j = 0
Set alss = dom.DomainAliases
Do While j <= alss.Count - 1
Set als = alss.item(j)
domain_buffer = domain_buffer & "#" & als.AliasName
j = j + 1
Loop
i = i + 1
Loop
End If
If InStr(1, " " & domain_buffer, domain) > 0 Then
is_local_domain = True
End If
End Function
Function has_client_authenticated(oclient)
has_client_authenticated = false
If oCLient.username <> "" Or InStr(1," " & ipslocalhost, oClient.IPAddress) > 0 Then
has_client_authenticated = true
End if
End Function
Code: Select all
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set oLog = CreateObject("hMailServer.Logging")
Set oApp = CreateObject("hMailServer.Application")
Set oFSO = CreateObject("Scripting.FileSystemObject")
LogDate = DateAdd("d", -0, Now)
LogDate = Replace (LogDate, " ", "_")
LogDate = Replace (LogDate, ":", ".")
OldName = oLog.CurrentEventLog
NewName = Left(oldName,(Len(OldName) - 4)) + "_" + LogDate + ".log"
Call oApp.Authenticate("Administrator", "password") ' ## set password here
Call oApp.Stop
oFSO.MoveFile OldName , NewName
Call oApp.Start
Set WshShell = Nothing
Code: Select all
Sub outgoing_limitations_send_message(oClient, oMessage, iswarning, nr, max, isdomain)
Dim txt
Dim tmp
Dim nMessage
If oclient.username <> "" then
tmp = oclient.username
Else
tmp = oMessage.FromAddress
End If
If instr(2, tmp, DefaultDomain) = 0 then
tmp=tmp & "@" & DefaultDomain
End If
Code: Select all
Sub outgoing_limitations_send_message(oClient, oMessage, iswarning, nr, max, isdomain)
Dim txt
Dim tmp
Dim nMessage
If oclient.username <> "" then
tmp = oclient.username
Else
tmp = oMessage.FromAddress
End If
If instr(1, tmp, DefaultDomain) = 0 then
tmp=tmp & "@" & DefaultDomain
End If