Hi, I have installed Exchange server in my machine and I try to make a log file when new mail comes to my exchange. For that I have created a file called SMTPMsgCheck.vbs, which contains the following code. -------------------------------------------------------------------------- <SCRIPT LANGUAGE="VBScript"> On Error Resume Next Const cdoRunNextSink = 0 Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") Dim file Set file = fs.OpenTextFile("c:\Eventsink\log.txt", 8, True ) file.Write "------- New mail arrived ----------" & vbCrLf file.Close EventStatus = cdoRunNextSink End Sub </SCRIPT> ------------------------------------------------------------------------------- and I registered this script as Cscript smtpreg.vbs /add 1 onarrival SMTPMessageCheck CDO.SS_SMTPOnArrivalSink "mail from=*" Cscript smtpreg.vbs /setprop 1 onarrival SMTPMessageCheck Sink ScriptName "C:\EventSink\SMTPMsgCheck.vbs" I have created a log.text file in "c:\Eventsink\" folder. I restart my smtp protocols in exchange server. I am sending and receiving mails in the server. but my 'log' file is not getting updated. any problem in my code? Please help me. Aambal
