Check User Directories Script

This is a multi-part message in MIME format.

------=_NextPart_000_0006_01C5CDB0.E696D530
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

I have this script working as a .vbs script but was trying to make an =
HTA and I've succeeded in doing so, but I am having trouble trying to =
call a sub from a sub. It worked as an HTA but apparently it does not =
work. The sub I am trying to call is "SearchSubFolders" and I just want =
to search the subfolders for the following information. This script =
does a lot for an administrator. It provides the administrator with =
results as the User directories are associated with a user in the =
domain. I am wanting it to search the user directories for the .exe or =
other file types. Like I said I have it working as a VBScript but as an =
HTA it just isn't working correctly. I am not an expert but I can =
figure things out. Please help if you can, I've tried making a =
function, and doing a call and neither seem to work. If you have any =
other ideas I'd appreciate it. Thanks.

<html>
<head>
<title>Check User Directories</title>

<HTA:APPLICATION=20
ID=3D"CHKUSRDIR"
APPLICATIONNAME=3D"CHKUSRDIR"
SCROLL=3D"no"
SINGLEINSTANCE=3D"no"
BORDER=3D"Thin"
BORDERSTYLE=3D"COMPLEX"
MAXIMIZEBUTTON=3D"NO"
ICON =3D "app.ico"
>

</head>

<SCRIPT Language=3D"VBScript">

Sub RunScript

'Created by PO Larry Overman @ ESD San Pedro

On Error Resume Next

Minimize

Dim DomainString, FolderString, FilenameString
Dim numargs, QUOTE, Count
Dim objFSO, OutputFile
Dim NTuserDat, NTuserDatMod
Dim PSTFile, PSTFileSize, PSTFileMod
Dim SubFolderName, SubFolderPath
Dim MB
Dim DomainObj, oUser
Dim UserDisabled, UserDisabledhtm
Dim UProfile, UserName
Dim Folder, UserLastLoginTime, UserLastLogin
Dim GoodCount, BadCount
dim jpgcount, jpgsize
dim pptcount, pptsize
dim mpgcount, mpgsize
dim mpegcount, mpegsize
dim mp3count, mp3size=20
dim wmvcount, wmvsize
dim wavcount, wavsize
dim execount, exesize
=20
set args =3D WScript.Arguments
Set objFSO =3D CreateObject("Scripting.FileSystemObject")
set msg =3D Createobject("MSG.WSC")

QUOTE =3D CHR(34)
Count=3D0
BadCount=3D0
GoodCount=3D0

msg.title =3D SharePath.value

DomainString =3D Domain.Value
if DomainString =3D "" then
DataArea.InnerHTML =3D "No Domain Specified"
Exit Sub
end if
=20
FolderString =3D SharePath.Value
if FolderString =3D "" then
DataArea.InnerHTML =3D "No Folder Specified"
Exit Sub
else
If objFSO.FolderExists(FolderString) Then
Set objFolder =3D objFSO.GetFolder(FolderString)
Else
DataArea.InnerHTML =3D FolderString & " - Path Not Found"
Exit Sub
End If
End If

FilenameString =3D OutputCSV.Value
if FilenameString =3D "" then
FilenameString =3D "OUTPUT.CSV"
end if
=20
Set OutputFile =3D objFSO.CreateTextFile(FilenameString, True)
=20
Set DomainObj =3D GetObject("WinNT://" & DomainString)
Set objUserList =3D CreateObject("Scripting.Dictionary")

DomainObj.Filter =3D Array("User")

msg.show

msg.color =3D "white"
msg.background =3D "black"
msg.font =3D "System"

msg.writehtml("<font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Generating User List...</font><p>")

dim test
test=3D0

For Each oUser in DomainObj
If Test > 30 Then
Exit For
End If=20
objUserList.Add UCase(OUser.Profile), UCase(oUser.Name)
msg.writehtml("<font face=3D" & QUOTE & "System" & QUOTE & ">" & =
oUser.Name & "</font>")
test=3Dtest+1
Next

msg.writehtml("<p><p><font color=3Dcyan face=3D" & QUOTE & "System" & =
QUOTE & ">Done.</font>" & VbCrLf)
=20
msg.clear
=20
msg.writehtml("<font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Domain: " & DomainString & "</font>")
msg.writehtml("<font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Folder: " & FolderString & "</font>")
msg.writehtml("<font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Filename: " & FilenameString & "</font>")
msg.writehtml("<font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Domain Users: " & objUserList.Count & "</font><p><p>")
OutputFile.WriteLine("Domain: " & DomainString)=20
OutputFile.WriteLine("Folder: " & FolderString)=20
OutputFile.WriteLine("Filename: " & FilenameString)
OutputFile.WriteLine("Domain Users: " & objUserList.Count & VBCrLf)=20
=20
colUsers =3D objUserList.Items

OutputFile.WriteLine("Folder Name,Size (MB),User Name,Full =
Name,Description,Last Login,Disabled,Profile Date,PST Size (MB),PST =
Date,JPG's,JPG's Size (MB),PPT's,PPT's Size (MB),MPG's,MPG's Size =
(MB),MPEG's,MPEG's Size (MB),MP3's,MP3's Size (MB),WMV's,WMV's Size =
(MB),WAV's,WAV's Size (MB),EXE's,EXE's Size (MB)")

Set colSubfolders =3D objFolder.Subfolders

For Each Subfolder in colSubfolders
msg.writehtml("")
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE & " =
border><tr><td width=3D" & QUOTE & "50%" & QUOTE & " valign=3D" & QUOTE =
& "top" & QUOTE & "><font size=3D" & QUOTE & "4" & QUOTE & " =
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & ">Folder Name: =
</font><font size=3D" & QUOTE & "4" & QUOTE & " face=3D" & QUOTE & =
"System" & QUOTE & ">" & SubFolder.Name & "</font></td><td width=3D" & =
QUOTE & "50%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE & "><font =
size=3D" & QUOTE & "4" & QUOTE & " color=3Dcyan face=3D" & QUOTE & =
"System" & QUOTE & ">" & "SIZE: </font><font size=3D" & QUOTE & "4" & =
QUOTE & " face=3D" & QUOTE & "System" & QUOTE & ">" & =
MegaBytes(Subfolder.Size) & " MB</font></tb></tr></table>")
if objFSO.FileExists(UCase(SubFolder.Path & =
"\Profile\Profile.pds\NTUSER.DAT")) Then
Set NTuserDat =3D objFSO.GetFile(UCase(SubFolder.Path & =
"\Profile\Profile.pds\NTUSER.DAT"))
NTuserDatMod =3D NTuserDat.DateLastModified
else
NTuserDatMod =3D ""
End If
If objFSO.FileExists(UCase(SubFolder.Path & =
"\HOME\MAIL\MESSAGES.PST")) =3D True Then
Set PSTFile =3D objFSO.GetFile(UCase(SubFolder.Path & =
"\HOME\MAIL\MESSAGES.PST"))
PSTFileSize =3D MegaBytes(PSTFile.Size)
PSTFileMod =3D PSTFile.DateLastModified
Else
PSTFileSize =3D "0"
PSTFileMod =3D ""
End If
=20
jpgcount=3D0
jpgsize=3D0
pptcount=3D0
pptsize=3D0
mpgcount=3D0
mpgsize=3D0
mpegcount=3D0
mpegsize=3D0
mp3count=3D0
mp3size=3D0
wmvcount=3D0
wmvsize=3D0
wavcount=3D0
wavsize=3D0
execount=3D0
exesize=3D0

Set objFolderS =3D objFSO.GetFolder(Subfolder.Path)
Set colFilesS =3D objFolderS.Files

For Each objFileS in colFilesS
if LCase(Right(objFileS.Name, 4)) =3D ".jpg" then
jpgcount=3Djpgcount+1
jpgsize=3Djpgsize+objFileS.Size
end if
if LCase(Right(objFileS.Name, 4)) =3D ".ppt" then
pptcount=3Dpptcount+1
pptsize=3Dpptsize+objFileS.Size
end if
if LCase(Right(objFileS.Name, 4)) =3D ".mpg" then
mpgcount=3Dmpgcount+1
mpgsize=3Dmpgsize+objFileS.Size
end if
if LCase(Right(objFileS.Name, 5)) =3D ".mpeg" then
mpegcount=3Dmpegcount+1
mpegsize=3Dmpegsize+objFileS.Size
end if
if LCase(Right(objFileS.Name, 4)) =3D ".mp3" then
mp3count=3Dmp3count+1
mp3size=3Dmp3size+objFileS.Size
end if
if LCase(Right(objFileS.Name, 4)) =3D ".wmv" then
wmvcount=3Dwmvcount+1
wmvsize=3Dwmvsize+objFileS.Size
end if
if LCase(Right(objFileS.Name, 4)) =3D ".wav" then
wavcount=3Dwavcount+1
wavsize=3Dwavsize+objFileS.Size
end if
if LCase(Right(objFileS.Name, 4)) =3D ".exe" then
execount=3Dexecount+1
exesize=3Dexesize+objFileS.Size
end if
Next
=20
SearchSubfolders(objFSO.GetFolder(Subfolder.Path))

If objUserList.Exists(UCase(SubFolder.Path & "\Profile\Profile.pds")) =
Then
Set oUserAccount =3D GetObject("WinNT://" & DomainString & "/" & =
objUserLIst.Item(UCase(SubFolder.Path & "\Profile\Profile.pds")) & =
",user")
If oUserAccount.AccountDisabled Then
UserDisabledhtm =3D "<font color=3Dred face=3D" & QUOTE & "System" & =
QUOTE & ">-YES-</font>"
UserDisabled =3D "-Yes-"
Else=20
UserDisabledhtm =3D "No"
UserDisabled =3D "No"
End If
UserLastLoginTime =3D oUserAccount.LastLogin
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE & "><tr><td =
width=3D" & QUOTE & "50%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE =
& "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & ">USER ID: =
</font><font face=3D" & QUOTE & "System" & QUOTE & ">" & =
oUserAccount.Name & "</font></td><td width=3D" & QUOTE & "50%" & QUOTE & =
" valign=3D" & QUOTE & "top" & QUOTE & "><font color=3Dcyan face=3D" & =
QUOTE & "System" & QUOTE & ">Full Name: </font><font face=3D" & QUOTE & =
"System" & QUOTE & ">" & oUserAccount.FullName & =
"</font></tb></tr></table>")
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE & =
"><tr><td width=3D" & QUOTE & "100%" & QUOTE & " valign=3D" & QUOTE & =
"top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE =
& ">DESCRIPTION: </font><font face=3D" & QUOTE & "System" & QUOTE & ">" =
& OUserAccount.Description & "</font></tb></tr></table>")
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE & "><tr><td =
width=3D" & QUOTE & "50%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE =
& "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & ">DISABLED: =
</font><font face=3D" & QUOTE & "System" & QUOTE & ">" & UserDisabledhtm =
& "</font></td><td width=3D" & QUOTE & "50%" & QUOTE & " valign=3D" & =
QUOTE & "top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE & "System" =
& QUOTE & ">Last Login: </font><font face=3D" & QUOTE & "System" & QUOTE =
& ">" & UserLastLoginTime & " MB</font></tb></tr></table>")
OutputFile.WriteLine(SubFolder.Name & "," & MegaBytes(Subfolder.Size) =
& "," & oUserAccount.Name & "," & oUserAccount.FullName & "," & =
oUserAccount.Description & "," & UserLastLoginTime & "," & UserDisabled =
& "," & NTuserDatMod & "," & PSTFileSize & "," & PSTFileMod & "," & =
jpgcount & "," & MegaBytes(jpgsize) & "," & pptcount & "," & =
MegaBytes(pptsize) & "," & mpgcount & "," & MegaBytes(mpgsize) & "," =
& mpegcount & "," & MegaBytes(mpegsize) & "," & mp3count & "," & =
MegaBytes(mp3size) & "," & wmvcount & "," & MegaBytes(wmvsize) & "," & =
wavcount & "," & MegaBytes(wavsize) & "," & execount & "," & =
MegaBytes(exesize))
GoodCount=3DGoodCount+1
else
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE & "><tr><td =
width=3D" & QUOTE & "100%" & QUOTE & " align=3D" & QUOTE & "Center" & =
QUOTE & " valign=3D" & QUOTE & "top" & QUOTE & "><font size=3D" & QUOTE =
& "6" & QUOTE & " color=3Dred face=3D" & QUOTE & "System" & QUOTE & =
">------ NO USER ID ATTACHED ------</font></td></tr></table>")
OutputFile.WriteLine(SubFolder.Name & "," & MegaBytes(Subfolder.Size) =
& ", , , , , ," & NTuserDatMod & "," & PSTFileSize & "," & PSTFileMod & =
"," & jpgcount & "," & MegaBytes(jpgsize) & "," & pptcount & "," & =
MegaBytes(pptsize) & "," & mpgcount & "," & MegaBytes(mpgsize) & "," =
& mpegcount & "," & MegaBytes(mpegsize) & "," & mp3count & "," & =
MegaBytes(mp3size) & "," & wmvcount & "," & MegaBytes(wmvsize) & "," & =
wavcount & "," & MegaBytes(wavsize) & "," & execount & "," & =
MegaBytes(exesize))
BadCount=3DBadCount+1
=20
End If
Count=3DCount+1
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE & =
"><tr><td width=3D" & QUOTE & "100%" & QUOTE & " valign=3D" & QUOTE & =
"top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE =
& ">PROFILE DATE: </font><font face=3D" & QUOTE & "System" & QUOTE & ">" =
& NTuserDatMod & "</font></tb></tr></table>")
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE & "><tr><td =
width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE =
& "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">MESSAGES.PST: </font></font></td><td width=3D" & QUOTE & "25%" & QUOTE =
& " valign=3D" & QUOTE & "top" & QUOTE & "><font color=3Dcyan face=3D" & =
QUOTE & "System" & QUOTE & ">" & "SIZE: </font><font face=3D" & QUOTE & =
"System" & QUOTE & ">" & PSTFileSize & " MB</font></tb><td width=3D" & =
QUOTE & "50%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE & "><font =
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & ">LAST MODIFIED: =
</font><font face=3D" & QUOTE & "System" & QUOTE & ">" & PSTFileMod & =
"</font></tb></tr></table>")
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE & "><tr><td =
width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE =
& "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & ">JPG's : =
</font><font face=3D" & QUOTE & "System" & QUOTE & ">" & jpgcount & =
"</font></td><td width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & =
QUOTE & "top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE & "System" =
& QUOTE & ">" & " Size: </font><font face=3D" & QUOTE & "System" & QUOTE =
& ">" & MegaBytes(jpgsize) & " MB</font></tb><td width=3D" & QUOTE & =
"25%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE & "><font =
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & ">PPT's : =
</font><font face=3D" & QUOTE & "System" & QUOTE & ">" & pptcount & =
"</tb><td width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & QUOTE & =
"top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE =
& ">Size: </font><font face=3D" & QUOTE & "System" & QUOTE & ">" & =
MegaBytes(pptsize) & " MB</font></tb></tr></table>")
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE & "><tr><td =
width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE =
& "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & ">MPG's : =
</font><font face=3D" & QUOTE & "System" & QUOTE & ">" & mpgcount & =
"</font></td><td width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & =
QUOTE & "top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE & "System" =
& QUOTE & ">" & " Size: </font><font face=3D" & QUOTE & "System" & QUOTE =
& ">" & MegaBytes(mpgsize) & " MB</font></tb><td width=3D" & QUOTE & =
"25%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE & "><font =
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & ">MPEG's : =
</font><font face=3D" & QUOTE & "System" & QUOTE & ">" & mpegcount & =
"</tb><td width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & QUOTE & =
"top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE =
& ">Size: </font><font face=3D" & QUOTE & "System" & QUOTE & ">" & =
MegaBytes(mpegsize) & " MB</font></tb></tr></table>")
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE & "><tr><td =
width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE =
& "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & ">MP3's : =
</font><font face=3D" & QUOTE & "System" & QUOTE & ">" & mp3count & =
"</font></td><td width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & =
QUOTE & "top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE & "System" =
& QUOTE & ">" & " Size: </font><font face=3D" & QUOTE & "System" & QUOTE =
& ">" & MegaBytes(mp3size) & " MB</font></tb><td width=3D" & QUOTE & =
"25%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE & "><font =
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & ">WMV's : =
</font><font face=3D" & QUOTE & "System" & QUOTE & ">" & wmvcount & =
"</tb><td width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & QUOTE & =
"top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE =
& ">Size: </font><font face=3D" & QUOTE & "System" & QUOTE & ">" & =
MegaBytes(wmvsize) & " MB</font></tb></tr></table>") =20
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE & "><tr><td =
width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE =
& "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & ">WAV's : =
</font><font face=3D" & QUOTE & "System" & QUOTE & ">" & wavcount & =
"</font></td><td width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & =
QUOTE & "top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE & "System" =
& QUOTE & ">" & " Size: </font><font face=3D" & QUOTE & "System" & QUOTE =
& ">" & MegaBytes(wavsize) & " MB</font></tb><td width=3D" & QUOTE & =
"25%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE & "><font =
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & ">EXE's : =
</font><font face=3D" & QUOTE & "System" & QUOTE & ">" & execount & =
"</tb><td width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & QUOTE & =
"top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE =
& ">Size: </font><font face=3D" & QUOTE & "System" & QUOTE & ">" & =
MegaBytes(exesize) & " MB</font></tb></tr></table><p>")
Next

msg.writehtml("")
msg.writehtml(VbCrLf & "<font color=3Dcyan face=3D" & QUOTE & "System" =
& QUOTE & ">Folders Listed: " & Count & "</font>")
msg.writehtml("<font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Folders Listed w/ Users Attached: " & GoodCount & "</font>")
msg.writehtml("<font color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Folders Listed w/o Users Attached: " & BadCount & "</font>")
OutputFile.WriteLine(VbCrLf & "Folders Listed: " & Count)
OutputFile.WriteLine("Folders Listed w/ Users Attached: " & GoodCount)
OutputFile.WriteLine("Folders Listed w/o Users Attached: " & BadCount)
OutputFile.Close

msg.complete
DataArea.InnerHTML =3D "Complete"
window.close

End Sub

Sub SearchSubFolders(Folder)
msg.write("it made it here to subfolders")
For Each SubfolderS in Folder.SubFolders
Set objFolderS =3D objFSO.GetFolder(SubfolderS.Path)
Set colFilesS =3D objFolderS.Files
For Each objFileS in colFilesS
msg.write("it made it here to subfolders")
if LCase(Right(objFileS.Name, 4)) =3D ".jpg" then
jpgcount=3Djpgcount+1
jpgsize=3Djpgsize+objFileS.Size
end if
if LCase(Right(objFileS.Name, 4)) =3D ".ppt" then
pptcount=3Dpptcount+1
pptsize=3Dpptsize+objFileS.Size
end if
if LCase(Right(objFileS.Name, 4)) =3D ".mpg" then
mpgcount=3Dmpgcount+1
mpgsize=3Dmpgsize+objFileS.Size
end if
if LCase(Right(objFileS.Name, 5)) =3D ".mpeg" then
mpegcount=3Dmpegcount+1
mpegsize=3Dmpegsize+objFileS.Size
end if
if LCase(Right(objFileS.Name, 4)) =3D ".mp3" then
mp3count=3Dmp3count+1
mp3size=3Dmp3size+objFileS.Size
end if
if LCase(Right(objFileS.Name, 4)) =3D ".wmv" then
wmvcount=3Dwmvcount+1
wmvsize=3Dwmvsize+objFileS.Size
end if
if LCase(Right(objFileS.Name, 4)) =3D ".wav" then
wavcount=3Dwavcount+1
wavsize=3Dwavsize+objFileS.Size
end if
if LCase(Right(objFileS.Name, 4)) =3D ".exe" then
execount=3Dexecount+1
exesize=3Dexesize+objFileS.Size
end if
Next
SearchSubFolders(SubfolderS)
Next
End Sub

Function MegaBytes(MB)
MegaBytes =3D MB / 1048576
MegaBytes =3D Int(MegaBytes)
End Function

Function Minimize
window.blur
moveTo 2000,2000
End Function

</SCRIPT>
<body STYLE=3D"font:14 pt arial; color:white;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=3D1, StartColorStr=3D'#000000', EndColorStr=3D'#0000FF')">

<table width=3D"100%"><tr><td width=3D"25%" valign=3D"top"><font =
size=3D"3">Domain: </font></td><td width=3D"75%" valign=3D"top"><input =
type=3D"text" name=3D"Domain" value=3D"ESUALAMEDA" =
size=3D"100"></td></tr></table>
<table width=3D"100%"><tr><td width=3D"25%" valign=3D"top"><font =
size=3D"3">Share: </font></td><td width=3D"75%" valign=3D"top"><input =
type=3D"text" name=3D"SharePath" value=3D"\\SANPEDROBDCF\USERSESD" =
size=3D"100"></td></tr></table>
<table width=3D"100%"><tr><td width=3D"25%" valign=3D"top"><font =
size=3D"3">Output Filename: </font></td><td width=3D"75%" =
valign=3D"top"><input type=3D"text" name=3D"OutputCSV" =
value=3D"OUTPUT.CSV" size=3D"100"></td></tr></table>
<p>
<center><input type=3D"button" value=3D"Start" name=3D"run_button" =
onClick=3D"RunScript">
<p>
<span id =3D "DataArea"></span>
<p>

</body>
</html>

------=_NextPart_000_0006_01C5CDB0.E696D530
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2722" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>I have this script working as a .vbs =
script but was=20
trying to make an HTA and I've succeeded in doing so, but I am having =
trouble=20
trying to call a sub from a sub.  It worked as an HTA but =
apparently it=20
does not work.  The sub I am trying to call is "SearchSubFolders" =
and I=20
just want to search the subfolders for the following information.  =
This=20
script does a lot for an administrator.  It provides the =
administrator with=20
results as the User directories are associated with a user in the =
domain. =20
I am wanting it to search the user directories for the .exe or other =
file=20
types.  Like I said I have it working as a VBScript but as an HTA =
it just=20
isn't working correctly.  I am not an expert but I can figure =
things=20
out.  Please help if you can, I've tried making a function, and =
doing a=20
call and neither seem to work.  If you have any other ideas I'd =
appreciate=20
it.  Thanks.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial =
size=3D2><html><BR><head><BR><title>Check=20
User Directories</title></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><HTA:APPLICATION=20
<BR> ID=3D"CHKUSRDIR"<BR> APPLICATIONNAME=3D"CHKUSRDIR"<BR>&nbs=
p;SCROLL=3D"no"<BR> SINGLEINSTANCE=3D"no"<BR> BORDER=3D"Thin"<B=
R> BORDERSTYLE=3D"COMPLEX"<BR> MAXIMIZEBUTTON=3D"NO"<BR> I=
CON=20
=3D "app.ico"<BR>></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2></head></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><SCRIPT =
Language=3D"VBScript"></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Sub RunScript</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> 'Created by PO Larry Overman @ =
ESD San=20
Pedro</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> On Error Resume Next</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> Minimize</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> Dim DomainString, FolderString,=20
FilenameString<BR> Dim numargs, QUOTE, Count<BR> Dim objFSO,=20
OutputFile<BR> Dim NTuserDat, NTuserDatMod<BR> Dim PSTFile,=20
PSTFileSize, PSTFileMod<BR> Dim SubFolderName, =
SubFolderPath<BR> Dim=20
MB<BR> Dim DomainObj, oUser<BR> Dim UserDisabled,=20
UserDisabledhtm<BR> Dim UProfile, UserName<BR> Dim Folder,=20
UserLastLoginTime, UserLastLogin<BR> Dim GoodCount, =
BadCount<BR> dim=20
jpgcount, jpgsize<BR> dim pptcount, pptsize<BR> dim mpgcount,=20
mpgsize<BR> dim mpegcount, mpegsize<BR> dim mp3count, mp3size=20
<BR> dim wmvcount, wmvsize<BR> dim wavcount, =
wavsize<BR> dim=20
execount, exesize<BR> <BR> set args =3D =
WScript.Arguments<BR> Set=20
objFSO =3D CreateObject("Scripting.FileSystemObject")<BR> set msg =
=3D=20
Createobject("MSG.WSC")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> QUOTE =3D=20
CHR(34)<BR> Count=3D0<BR> BadCount=3D0<BR> GoodCount=3D0</=
FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> msg.title =3D =
SharePath.value</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> DomainString =3D =
Domain.Value<BR> if=20
DomainString =3D "" then<BR>  DataArea.InnerHTML =3D "No =
Domain=20
Specified"<BR>  Exit Sub<BR> end=20
if<BR> <BR> FolderString =3D SharePath.Value<BR> if =
FolderString =3D=20
"" then<BR>  DataArea.InnerHTML =3D "No Folder=20
Specified"<BR>  Exit Sub<BR> else<BR>  If=20
objFSO.FolderExists(FolderString) Then<BR>   Set =
objFolder =3D=20
objFSO.GetFolder(FolderString)<BR>  Else<BR>   D=
ataArea.InnerHTML=20
=3D FolderString & " - Path Not Found"<BR>   Exit=20
Sub<BR>  End If<BR> End If</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> FilenameString =3D =
OutputCSV.Value<BR> if=20
FilenameString =3D "" then<BR>  FilenameString =3D=20
"OUTPUT.CSV"<BR> end if<BR> <BR> Set OutputFile =3D=20
objFSO.CreateTextFile(FilenameString, True)<BR> <BR> Set =
DomainObj =3D=20
GetObject("WinNT://" & DomainString)<BR> Set objUserList =3D=20
CreateObject("Scripting.Dictionary")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> DomainObj.Filter =3D =
Array("User")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> msg.show</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> msg.color =3D =
"white"<BR> msg.background =3D=20
"black"<BR> msg.font =3D "System"</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> msg.writehtml("<font =
color=3Dcyan face=3D"=20
& QUOTE & "System" & QUOTE & ">Generating User=20
List...</font><p>")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> dim =
test<BR> test=3D0</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> For Each oUser in =
DomainObj<BR>  If=20
Test > 30 Then<BR>   Exit For<BR>  End If=20
<BR>  objUserList.Add UCase(OUser.Profile),=20
UCase(oUser.Name)<BR>  msg.writehtml("<font face=3D" & =
QUOTE=20
& "System" & QUOTE & ">" & oUser.Name &=20
"</font>")<BR>  test=3Dtest+1<BR> Next</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial =
size=3D2> msg.writehtml("<p><p><font=20
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE &=20
">Done.</font>" &=20
VbCrLf)<BR> <BR> msg.clear<BR> <BR> msg.writehtml("&l=
t;font=20
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Domain: "=20
& DomainString & =
"</font>")<BR> msg.writehtml("<font=20
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Folder: "=20
& FolderString & =
"</font>")<BR> msg.writehtml("<font=20
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Filename: "=20
& FilenameString & =
"</font>")<BR> msg.writehtml("<font=20
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Domain=20
Users: " & objUserList.Count &=20
"</font><p><p>")<BR> OutputFile.WriteLine("Domain:=
"=20
& DomainString) <BR> OutputFile.WriteLine("Folder: " &=20
FolderString) <BR> OutputFile.WriteLine("Filename: " &=20
FilenameString)<BR> OutputFile.WriteLine("Domain Users: " &=20
objUserList.Count & VBCrLf) <BR> <BR> colUsers =3D=20
objUserList.Items</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> OutputFile.WriteLine("Folder =
Name,Size=20
(MB),User Name,Full Name,Description,Last Login,Disabled,Profile =
Date,PST Size=20
(MB),PST Date,JPG's,JPG's Size (MB),PPT's,PPT's Size (MB),MPG's,MPG's =
Size=20
(MB),MPEG's,MPEG's Size (MB),MP3's,MP3's Size (MB),WMV's,WMV's Size=20
(MB),WAV's,WAV's Size (MB),EXE's,EXE's Size (MB)")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> Set colSubfolders =3D=20
objFolder.Subfolders</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> For Each Subfolder in=20
colSubfolders<BR>  msg.writehtml("")<BR>  msg.writeht=
ml("<table=20
width=3D" & QUOTE & "100%" & QUOTE & " =
border><tr><td=20
width=3D" & QUOTE & "50%" & QUOTE & " valign=3D" & =
QUOTE &=20
"top" & QUOTE & "><font size=3D" & QUOTE & "4" =
& QUOTE=20
& " color=3Dcyan face=3D" & QUOTE & "System" & QUOTE =
&=20
">Folder Name: </font><font size=3D" & QUOTE & "4" =
& QUOTE=20
& " face=3D" & QUOTE & "System" & QUOTE & ">" =
&=20
SubFolder.Name & "</font></td><td width=3D" & =
QUOTE &=20
"50%" & QUOTE & " valign=3D" & QUOTE & "top" & QUOTE =
&=20
"><font size=3D" & QUOTE & "4" & QUOTE & " =
color=3Dcyan face=3D"=20
& QUOTE & "System" & QUOTE & ">" & "SIZE:=20
</font><font size=3D" & QUOTE & "4" & QUOTE & " =
face=3D"=20
& QUOTE & "System" & QUOTE & ">" &=20
MegaBytes(Subfolder.Size) & "=20
MB</font></tb></tr></table>")<BR>  if=20
objFSO.FileExists(UCase(SubFolder.Path & =
"\Profile\Profile.pds\NTUSER.DAT"))=20
Then<BR>   Set NTuserDat =3D =
objFSO.GetFile(UCase(SubFolder.Path=20
& =
"\Profile\Profile.pds\NTUSER.DAT"))<BR>   NTuserDatMod =
=3D=20
NTuserDat.DateLastModified<BR>  else<BR>   NTuse=
rDatMod=20
=3D ""<BR>  End If<BR>  If=20
objFSO.FileExists(UCase(SubFolder.Path & "\HOME\MAIL\MESSAGES.PST")) =
=3D True=20
Then<BR>   Set PSTFile =3D =
objFSO.GetFile(UCase(SubFolder.Path=20
& "\HOME\MAIL\MESSAGES.PST"))<BR>   PSTFileSize =3D=20
MegaBytes(PSTFile.Size)<BR>   PSTFileMod =3D=20
PSTFile.DateLastModified<BR>  Else<BR>   PSTFile=
Size =3D=20
"0"<BR>   PSTFileMod =3D ""<BR>  End=20
If<BR> <BR>  jpgcount=3D0<BR>  jpgsize=3D0<BR>&n=
bsp; pptcount=3D0<BR>  pptsize=3D0<BR>  mpgcount=
=3D0<BR>  mpgsize=3D0<BR>  mpegcount=3D0<BR> &nb=
sp;mpegsize=3D0<BR>  mp3count=3D0<BR>  mp3size=3D0<BR=
>  wmvcount=3D0<BR>  wmvsize=3D0<BR>  wavco=
unt=3D0<BR>  wavsize=3D0<BR>  execount=3D0<BR> &=
nbsp;exesize=3D0</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial =
size=3D2>        Set=20
objFolderS =3D=20
objFSO.GetFolder(Subfolder.Path)<BR>      &=
nbsp;=20
Set colFilesS =3D objFolderS.Files</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>  For Each objFileS in=20
colFilesS<BR>   if LCase(Right(objFileS.Name, 4)) =3D =
".jpg"=20
then<BR>    jpgcount=3Djpgcount+1<BR>  &nbs=
p; jpgsize=3Djpgsize+objFileS.Size<BR>   end=20
if<BR>   if LCase(Right(objFileS.Name, 4)) =3D ".ppt"=20
then<BR>    pptcount=3Dpptcount+1<BR>  &nbs=
p; pptsize=3Dpptsize+objFileS.Size<BR>   end=20
if<BR>   if LCase(Right(objFileS.Name, 4)) =3D ".mpg"=20
then<BR>    mpgcount=3Dmpgcount+1<BR>  &nbs=
p; mpgsize=3Dmpgsize+objFileS.Size<BR>   end=20
if<BR>   if LCase(Right(objFileS.Name, 5)) =3D ".mpeg"=20
then<BR>    mpegcount=3Dmpegcount+1<BR>  &n=
bsp; mpegsize=3Dmpegsize+objFileS.Size<BR>   end=20
if<BR>   if LCase(Right(objFileS.Name, 4)) =3D ".mp3"=20
then<BR>    mp3count=3Dmp3count+1<BR>  &nbs=
p; mp3size=3Dmp3size+objFileS.Size<BR>   end=20
if<BR>   if LCase(Right(objFileS.Name, 4)) =3D ".wmv"=20
then<BR>    wmvcount=3Dwmvcount+1<BR>  &nbs=
p; wmvsize=3Dwmvsize+objFileS.Size<BR>   end=20
if<BR>   if LCase(Right(objFileS.Name, 4)) =3D ".wav"=20
then<BR>    wavcount=3Dwavcount+1<BR>  &nbs=
p; wavsize=3Dwavsize+objFileS.Size<BR>   end=20
if<BR>   if LCase(Right(objFileS.Name, 4)) =3D ".exe"=20
then<BR>    execount=3Dexecount+1<BR>  &nbs=
p; exesize=3Dexesize+objFileS.Size<BR>   end=20
if<BR>       =20
Next<BR> <BR>  SearchSubfolders(objFSO.GetFolder(Subfolder=
.Path))</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>  If=20
objUserList.Exists(UCase(SubFolder.Path & "\Profile\Profile.pds"))=20
Then<BR>   Set oUserAccount =3D GetObject("WinNT://" =
&=20
DomainString & "/" & objUserLIst.Item(UCase(SubFolder.Path & =

"\Profile\Profile.pds")) & ",user")<BR>   If=20
oUserAccount.AccountDisabled =
Then<BR>    UserDisabledhtm =3D=20
"<font color=3Dred face=3D" & QUOTE & "System" & QUOTE =
&=20
">-YES-</font>"<BR>    UserDisabled =3D=20
"-Yes-"<BR>   Else <BR>    UserDi=
sabledhtm=20
=3D "No"<BR>    UserDisabled =3D =
"No"<BR>   End=20
If<BR>   UserLastLoginTime =3D=20
oUserAccount.LastLogin<BR>   msg.writehtml("<table =
width=3D"=20
& QUOTE & "100%" & QUOTE & "><tr><td =
width=3D" &=20
QUOTE & "50%" & QUOTE & " valign=3D" & QUOTE & "top" =
&=20
QUOTE & "><font color=3Dcyan face=3D" & QUOTE & =
"System" &=20
QUOTE & ">USER ID: </font><font face=3D" & QUOTE =
&=20
"System" & QUOTE & ">" & oUserAccount.Name &=20
"</font></td><td width=3D" & QUOTE & "50%" & =
QUOTE=20
& " valign=3D" & QUOTE & "top" & QUOTE & =
"><font=20
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Full Name:=20
</font><font face=3D" & QUOTE & "System" & QUOTE =
& ">"=20
& oUserAccount.FullName &=20
"</font></tb></tr></table>")<BR>  &nbsp=
;     =20
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE =
&=20
"><tr><td width=3D" & QUOTE & "100%" & QUOTE =
& "=20
valign=3D" & QUOTE & "top" & QUOTE & "><font =
color=3Dcyan=20
face=3D" & QUOTE & "System" & QUOTE & ">DESCRIPTION:=20
</font><font face=3D" & QUOTE & "System" & QUOTE =
& ">"=20
& OUserAccount.Description &=20
"</font></tb></tr></table>")<BR>  &nbsp=
;msg.writehtml("<table=20
width=3D" & QUOTE & "100%" & QUOTE & =
"><tr><td width=3D"=20
& QUOTE & "50%" & QUOTE & " valign=3D" & QUOTE & =
"top"=20
& QUOTE & "><font color=3Dcyan face=3D" & QUOTE & =
"System"=20
& QUOTE & ">DISABLED: </font><font face=3D" & =
QUOTE &=20
"System" & QUOTE & ">" & UserDisabledhtm &=20
"</font></td><td width=3D" & QUOTE & "50%" & =
QUOTE=20
& " valign=3D" & QUOTE & "top" & QUOTE & =
"><font=20
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">Last Login:=20
</font><font face=3D" & QUOTE & "System" & QUOTE =
& ">"=20
& UserLastLoginTime & "=20
MB</font></tb></tr></table>")<BR>  &nbs=
p;OutputFile.WriteLine(SubFolder.Name=20
& "," & MegaBytes(Subfolder.Size) & "," & =
oUserAccount.Name=20
& "," & oUserAccount.FullName & "," & =
oUserAccount.Description=20
& "," & UserLastLoginTime & "," & UserDisabled & "," =
&=20
NTuserDatMod & "," & PSTFileSize & "," & PSTFileMod =
& ","=20
& jpgcount & "," & MegaBytes(jpgsize) & "," & =
pptcount &=20
","  & MegaBytes(pptsize) & ","  & mpgcount &=20
","  & MegaBytes(mpgsize) & ","  & mpegcount & =

","  & MegaBytes(mpegsize) & ","  & mp3count & =

","  & MegaBytes(mp3size) & ","  & wmvcount &=20
","  & MegaBytes(wmvsize) & "," & wavcount & "," =
&=20
MegaBytes(wavsize) & "," & execount & "," &=20
MegaBytes(exesize))<BR>   GoodCount=3DGoodCount+1<BR>&nbsp=
; else<BR>   msg.writehtml("<table=20
width=3D" & QUOTE & "100%" & QUOTE & =
"><tr><td width=3D"=20
& QUOTE & "100%" & QUOTE & " align=3D" & QUOTE & =
"Center"=20
& QUOTE & " valign=3D" & QUOTE & "top" & QUOTE & =

"><font size=3D" & QUOTE & "6" & QUOTE & " =
color=3Dred face=3D"=20
& QUOTE & "System" & QUOTE & ">------ NO USER ID =
ATTACHED=20
------</font></td></tr></table>")<BR>  =
 OutputFile.WriteLine(SubFolder.Name=20
& "," & MegaBytes(Subfolder.Size) & ", , , , , ," & =
NTuserDatMod=20
& "," & PSTFileSize & "," & PSTFileMod & "," & =
jpgcount=20
& "," & MegaBytes(jpgsize) & "," & pptcount & =
"," =20
& MegaBytes(pptsize) & ","  & mpgcount & ","  =
&=20
MegaBytes(mpgsize) & ","  & mpegcount & ","  & =

MegaBytes(mpegsize) & ","  & mp3count & ","  & =

MegaBytes(mp3size) & ","  & wmvcount & ","  &=20
MegaBytes(wmvsize) & "," & wavcount & "," & =
MegaBytes(wavsize)=20
& "," & execount & "," &=20
MegaBytes(exesize))<BR>   BadCount=3DBadCount+1<BR> &=
nbsp;<BR>  End=20
If<BR>  Count=3DCount+1<BR>      =
 =20
msg.writehtml("<table width=3D" & QUOTE & "100%" & QUOTE =
&=20
"><tr><td width=3D" & QUOTE & "100%" & QUOTE =
& "=20
valign=3D" & QUOTE & "top" & QUOTE & "><font =
color=3Dcyan=20
face=3D" & QUOTE & "System" & QUOTE & ">PROFILE DATE: =

</font><font face=3D" & QUOTE & "System" & QUOTE =
& ">"=20
& NTuserDatMod &=20
"</font></tb></tr></table>")<BR>  msg.w=
ritehtml("<table=20
width=3D" & QUOTE & "100%" & QUOTE & =
"><tr><td width=3D"=20
& QUOTE & "25%" & QUOTE & " valign=3D" & QUOTE & =
"top"=20
& QUOTE & "><font color=3Dcyan face=3D" & QUOTE & =
"System"=20
& QUOTE & ">MESSAGES.PST: =
</font></font></td><td=20
width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & =
QUOTE &=20
"top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE =
&=20
"System" & QUOTE & ">" & "SIZE: </font><font =
face=3D"=20
& QUOTE & "System" & QUOTE & ">" & PSTFileSize =
& "=20
MB</font></tb><td width=3D" & QUOTE & "50%" & =
QUOTE=20
& " valign=3D" & QUOTE & "top" & QUOTE & =
"><font=20
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">LAST=20
MODIFIED: </font><font face=3D" & QUOTE & "System" =
& QUOTE=20
& ">" & PSTFileMod &=20
"</font></tb></tr></table>")<BR>  msg.w=
ritehtml("<table=20
width=3D" & QUOTE & "100%" & QUOTE & =
"><tr><td width=3D"=20
& QUOTE & "25%" & QUOTE & " valign=3D" & QUOTE & =
"top"=20
& QUOTE & "><font color=3Dcyan face=3D" & QUOTE & =
"System"=20
& QUOTE & ">JPG's : </font><font face=3D" & =
QUOTE &=20
"System" & QUOTE & ">" & jpgcount &=20
"</font></td><td width=3D" & QUOTE & "25%" & =
QUOTE=20
& " valign=3D" & QUOTE & "top" & QUOTE & =
"><font=20
color=3Dcyan face=3D" & QUOTE & "System" & QUOTE & =
">" & "=20
Size: </font><font face=3D" & QUOTE & "System" & =
QUOTE &=20
">" & MegaBytes(jpgsize) & " MB</font></tb><td =
width=3D"=20
& QUOTE & "25%" & QUOTE & " valign=3D" & QUOTE & =
"top"=20
& QUOTE & "><font color=3Dcyan face=3D" & QUOTE & =
"System"=20
& QUOTE & ">PPT's : </font><font face=3D" & =
QUOTE &=20
"System" & QUOTE & ">" & pptcount & =
"</tb><td=20
width=3D" & QUOTE & "25%" & QUOTE & " valign=3D" & =
QUOTE &=20
"top" & QUOTE & "><font color=3Dcyan face=3D" & QUOTE =
&=20
"System" & QUOTE & ">Size: </font><font face=3D" =
& QUOTE=20
& "System" & QUOTE & ">" & MegaBytes(pptsize) & " =

MB</font></tb></tr></table>")<BR>  msg.=
writehtml("<table=20
width=3D" & QUOTE & "100%" & QUOTE & =
"><tr><td width=3D"=20
& QUOTE & "25%" & QUO