 |
 |
 |
| | What's New? |
 | Offline
Logging |
| WhiteLists |
| Centralized Control |
| Mass Remote Deployment Wizard |
| | Alerts |
| 'Save Energy' |
| Insert/ Mount / Removal o |
| Files Copied / Modified |
| |
| | USB Devices monitored |
| USB Memory Sticks |
| USB Card Readers |
| Mobile Phones |
| Digital Cameras |
| iPODs via USB |
| External USB Hard Drives |
| External USB CD Drives |
| | Supported OS |
| Windows XP SP2 |
| Windows Vista |
| Windows 2003 |
|
|
|
|
|
 |
 |
 |
 |
|
|
|
<%
Dim strFrom, strSubject, strBody 'Strings for fromaddress, subject, body
Dim objCDOMail 'The CDO object
sch = "http://schemas.microsoft.com/cdo/configuration/"
'sch = ""
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
'cdoSendUsingPort
.Item(sch & "sendusing") = 2
'Email Server
.Item(sch & "smtpserver") = "smtp.cyspl.com"
'Basic authentication
.Item(sch & "smtpauthenticate") = 1
'Type your email account below
.Item(sch & "sendusername") = "usbcopynotify@cyspl.com"
'Type your email password below
.Item(sch & "sendpassword") = "nari_MAN"
.Item(sch & "smtpserverport") = 465
'SSL connection enabled
.Item(sch & "smtpusessl") = true
.update
End With
'First we'll read in the values entered
strFrom = Request.Form("from")
'These would read the message subject and body if we let you enter it
strSubject = Request.Form("nameOFSender")
strBody = "USB CopyNotify! Downloaded by " + strSubject
str1 = "Hello"
str2 = " "
str3 = "We are happy to note that you have downloaded a 30 day evaluation copy of USB CopyNotify!."
str4 = " "
str5 = "Please do visit our support page ( http://www.usbcopynotify.com/support.html ) should you require an explaination of any of its features, configuration & installation and do not hesitate to contact us should you require further assistance."
str6 = " "
str8 = "Looking forward to hearing from you."
str9 = " "
str10 = "Regards & have a wonderful day"
str11 = " "
str12 = "Z. M. Karbhari"
str13 = "http://www.usbcopynotify.com"
str14 = "We help you protect your DATA."
strBody = str1 & vbCrLf & str2 & vbCrLf & str3 & vbCrLf & str4 & vbCrLf & str5 & vbCrLf & str6 & vbCrLf & str8 & vbCrLf & str9 & vbCrLf & str10 & vbCrLf & str11 & vbCrLf & str12 & vbCrLf & str13 & vbCrLf & str14
' Some spacing
strBody = strBody & vbCrLf & vbCrLf
' Initiate Is email valid sub function
If strFrom = "" Or Not IsValidEmail(strFrom) Then
' Create Form
%>
<%
Else
'-------------sending email to download person --------------
' Create an instance of the NewMail object.
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = cdoConfig
' Set the properties of the object
'objMessage.From = strFrom
objMessage.From = "usbcopynotify@gmail.com"
objMessage.To = strFrom 'The recipient of the form data
objMessage.Subject = "USB CopyNotify! Downloaded from www.usbcopynotify.com"
objMessage.TextBody = strBody
' Some useful extra variables
'objMessage.Cc = ""
' Send the message!
objMessage.Send
Set objMessage = Nothing
' Create an instance of the NewMail object.
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = cdoConfig
' Set the properties of the object
objMessage.From = strFrom
'objMessage.From = "usbcopynotify@gmail.com"
'objMessage.To = strSubject 'The recipient of the form data
objMessage.To = "usbcopynotify@gmail.com" 'The recipient of the form data
'objMessage.Bcc = "usbcopynotify@gmail.com"
'objMessage.Subject = strSubject
objMessage.Subject = "USB CopyNotify! Downloaded from www.usbcopynotify.com"
objMessage.TextBody = strBody
' Some useful extra variables
'objMessage.Cc = ""
' Send the message!
objMessage.Send
' Set the object to nothing because it immediately becomes
' invalid after calling the Send method.
Set objMessage = Nothing
' Set your Response after the Send Mail button is pushed.
'Response.Write "Your Message was sent!"
Response.Redirect "ucnDownload.html"
End if
' End page logic
%>
<% ' Only functions and subs follow!
' A quick email syntax checker.
Function IsValidEmail(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
IsValidEmail = bIsValid
End Function
%>
@
support@usbcopynotify.com | |
|
|
|
Privacy Assurance.
If you choose to give us your e-mail address, it will be used only to initiate
communication with you with regards to USB CopyNotify!.
CygNET Systems Pvt. Ltd will not pass your personal Information to marketing
companies or any other 3rd party companies.
| |
|
|
|
| |
|
