Edit the first 3 lines of code for the locations change extention to V B S
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Patrick Moss - Technical Support Group - Assistant Systems Administrator
CyberLink, Inc.� - Featuring SurfPure Filtered Internet Access
http://support.cyberlink.com
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
(888)Plug-in2
(219)235-1400
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of mike delp
Sent: Wednesday, July 19, 2000 10:30 AM
To: '[EMAIL PROTECTED]'
Subject: RE: [IMail Forum] FW: MS vulnerability
We are going to implement a temporary filter, and education program for our
users. We will announce that for one week, we will filter all html e-mails,
and then release the filter. We will be broadcasting the problem and fixes
to our users, and give them a chance to get protected before \we open it up
again.
QUESTION: There is a utility that will distribute the forward file to all
users mail boxes, does anybody have that link??
My .02
Mike Delp
Director of Technical Services
Database Computer Group, Inc.
(515) 564-0150
FAX- (515) 564-0152
[EMAIL PROTECTED]
-----Original Message-----
From: Ryan C. LaMarre [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, July 19, 2000 10:12 AM
To: [EMAIL PROTECTED]
Subject: RE: [IMail Forum] FW: MS vulnerability
I think filtering out ALL html mail is a little harsh, don't you think?
Wouldn't a little user education and disabling the preview pane be a more
user-friendly approach?
Just my 2 bits.
Ryan LaMarre
Computer Support Specialist
Unity College
Unity, ME 04988
(207) 948-3131 x298
[EMAIL PROTECTED]
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of Dan Shadix
Sent: Tuesday, July 18, 2000 7:06 PM
To: IMail_Forum
Subject: [IMail Forum] FW: MS vulnerability
I thought that this was important enough to post on the forum and I haven't
seen it mentioned here.
SANS Issued a FLASH message today describing a vulnerability that is
probably the most dangerous programming error in Windows workstation (all
varieties -- 95, 98, 2000, NT 4.0) that Microsoft has made.
You are vulnerable to total compromise simply by previewing or reading an
email (without opening any attachments) if you have one of the affected
operating systems and have the following installed:
Microsoft Access 97 or 2000
Internet Explorer 4.0 or higher, including 5.5 (Windows 2000 includes IE 5)
Go to http://www.sans.org/newlook/resources/win_flaw.htm for complete
details.
I have started filtering out HTML mail by looking for the html tag and head
tag (brackets removed so my filter doesn't block this) in message bodies.
Am I correct that this will catch all HTML e-mail, and if not what do I need
to look for?
Please visit http://www.ipswitch.com/support/mailing-lists.html
to be removed from this list.
An Archive of this list is available at:
http://www.mail-archive.com/imail_forum%40list.ipswitch.com/
Please visit http://www.ipswitch.com/support/mailing-lists.html
to be removed from this list.
An Archive of this list is available at:
http://www.mail-archive.com/imail_forum%40list.ipswitch.com/
Please visit http://www.ipswitch.com/support/mailing-lists.html
to be removed from this list.
An Archive of this list is available at:
http://www.mail-archive.com/imail_forum%40list.ipswitch.com/
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Written By Patrick Moss For Cyberlink, Inc. '
' Creates a Forward for all users of all Domains '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim fso, strFile,FileToCheck,rootdirectory, rc
Const ForReading = 1, ForWriting = 2, ForAppending = 8
strFile = "d:\imail\mailfilter_scripts\virus.fwd"
FileToCheck = "\virus.fwd"
RootDirectory = "d:\imail\domains"
'RootDirectory = InputBox("Please Enter the Root Directory" & vbCrLf
"d:\imail\domains" )
folderlist(RootDirectory)
Set WshShell = WScript.CreateObject("WScript.Shell")
Wscript.Echo "All Done"
Set WshShell = nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function fileexist(filespec)
On Error Resume Next
dim msg, fso
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
if (fso.FileExists(filespec)) Then
msg = 1
else
msg = 0
end if
fileexist = msg
set fso = Nothing
end Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub folderlist(folderspec)
On Error Resume Next
dim f,f1,sf, fso
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
set f = fso.GetFolder(folderspec)
set sf = f.SubFolders
For Each f1 in sf
findusersfldr(f1)
Next
Set F = NOTHING
Set sf = NOTHING
set fso = NOTHING
end Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub findusersfldr(folderspec)
Dim f3,f2,sf1,fso
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
set f2 = fso.GetFolder(folderspec)
set sf1 = f2.SubFolders
For Each f3 in sf1
If LCase(f3.name) ="users" Then
filemanip(f3.path)
End If
Next
Set F3 = NOTHING
set sf1 = NOTHING
set fso = nothing
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub filemanip(fldr)
Dim filelocate,f4,f5,sf2,fso
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
set f4 = fso.GetFolder(fldr)
set sf2 = f4.SubFolders
For Each f5 in sf2
If fileexist(f5.path & filetocheck) = 0 Then
CreateFile(f5.path & filetocheck)
Else
End If
Next
set f4 = NOTHING
Set sf2 = Nothing
Set fso = Nothing
end Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub CreateFile(file)
Dim TextFile,fso
On Error Resume Next
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set TextFile = fso.GetFile(strFile)
textFile.Copy file
Set textfile = Nothing
Set FSO = Nothing
End Sub
virus.fwd
