Users/Groups
Delete Disabled Users
Delete Disabled Users
Enum. Users
Enum. Users
Delete Users
Add Users
Enum. Groups
Enum. Groups
Change Groups
Add Group
Active Directory
Enum. AD Groups
Enum. AD Users
List AD Users w/Prop
Join AD Users
NIC/IP Addresses
Get IP Addresses
Get IP Addresses
Backup and Restore IP's
Add IP's
NIC Settings
OS/Hardware
OS Info Script
OS Info Script All
OS Info Script All
OS System Count
Hardware Info Script
Hardware Info Script #1
Hardware Info Script #2
CPU Settings
Enum. Printers
Disk Quotas
Disable Disk Quota
Enable Disk Quota
Disk Quota Query
Disk Quota Update
Shares/Files/Sessions
Enum. Shares
Enum. Shares
Enum. All Shares
Enum. Open Files
Enum. Open Files
Enum. Open Sessions
Others
Servers Uptime
DNS Stuff
Services Enum
Services Enum
Enum Processes
Enum Hot Fixes
MS FTP Server
FTP VD Query
FTP VD Delete
FTP Site Enum.
MS WWW Server
WWW Site Enum.
Enum Mime Types
Enum Mime Types
Application Pools
Application Pool Enum
Application Pool Enum
Create Application Pool
Create Application Pool
Delete Application Pool
Enum Apps in App Pool
Enum App Pool Settings
Move Apps Between App Pools
Others
IIS Component Probe
IIS Status
Enum SQL Dbases
Backup SQL Dbases
Orphan SQL Users
List AD/WG
My AD/WG Name
My PC Name
Enum AD Computers
Contact Us Form
SM Login Form Code
Imail Login Form Code
Enum. Domains in Imail
Enum. Users in Imail
CDONTS Component
CDOSYS Component
SA SMTP Component
App Pool Monitor
Ping and Tracert
Hard Drive Monitoring
Uptime Monitoring
Desktop Lock
CD Key Revealer
MIK Restarter
Site Map
About the Site
RSS Feeds I Read
Custom Scripts
Visitor #:
windowsadminscripts.com
www
Script:
Enumerate Mime Types
This script will enumerate all Mime Types on a computer.
Email Address To Send Sample Code To:
@
<% '**************************************************** ' Script Witten by Larry Heintz ' April 2006 www.windowsadminscripts.com ' This asp page will enumerate all Mime Types on a ' computer. '**************************************************** Dim cmd cmd = Request.Form ("cmd") Select Case cmd Case "enummimes" enumMimes Case Else showForm End Select%> <%Function showForm%> <html> <head> <title>Enumerate Mime Type's</title> </head> <body> <table align="center"> <form action="<%=request.ServerVariables ("Script_Name")%>" method="post"> <input type="hidden" name="cmd" value="enummimes"> <tr> <td><b>Server:</b></td> <td><input type="text" name="computer"></td> <td><input type="submit" value="Submit"></td> </tr> </form> </table> </body> </html> <%End Function%> <%Function enumMimes On Error Resume Next Dim computer,trbgcolor Dim objMime,MimeMapping,count count = 0 trbgcolor = "#FFFAF0" computer = Request.Form ("computer") Set objMime = GetObject("IIS://" & computer & "/MimeMap") if not (errorChecking (computer)) then%> <html> <head> <title>Enumerate Mime Type's</title> </head> <body> <% Call showForm%> <table border="1" bordercolor="black" align="center" cellpadding="0" cellspacing="0"> <tr> <td> <table align="center" cellspacing="0" cellpadding="0"> <tr bgcolor="<%=trbgcolor%>"> <td colspan="2" align="center"><b>Registered File Types on <%=ucase(computer)%></b></td> </tr> <%For Each MimeMapping in objMime.MimeMap count = count + 1%> <tr bgcolor="<%=trbgcolor%>"> <td>Extension: <%=MimeMapping.Extension%></td> <td>Content Type: <%=MimeMapping.MimeType%></td> </tr> <%if trbgcolor = "#FFFAF0" then trbgcolor = "#FDF8FF" else trbgcolor = "#FFFAF0" end if%> <%Next if count <> 0 then%> <tr bgcolor="<%=trbgcolor%>"> <td colspan="2" align="center">There are <%=count%> different Mime Types on <%=ucase(computer)%></td> </tr> <%else%> <tr bgcolor="<%=trbgcolor%>"> <td colspan="2" align="center">I am sorry there no Mime Types on <%=ucase(computer)%></td> </tr> <%end if%> </table> </td> </tr> </table> </body> </html> <%end if Set objMime = nothing End Function%> <%Function errorChecking(ComputerName) errorChecking = False if err.number <> 0 then%> <html> <head> <title>Enumerate Mime Type's</title> </head> <body> <% Call showForm%> <center>Unable to connect to <%=ucase(ComputerName)%></center> </body> </html> <%err.Clear () errorChecking = True end if end Function%>
Click HERE to download this script.
Copyright 2006 WindowsAdminScripts.com all rights reserved.
