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: IIS Component Probe This is a asp based script that will try to connect each computer that is in the AD Domain or the WorkGroup Name you enter. It will then test to see if it is running the MS IIS Web,FTP,SMTP and NNTP server. This will take a while to run depending on the amount of computers there are. Email Address To Send Sample Code To: @    <% '**************************************************** ' Script Witten by Larry Heintz ' Nov 2004 www.windowsadminscripts.com ' This is a asp based script that will try to ' connect each computer that is in the AD Domain or ' the WorkGroup Name you enter. It will then test to ' see if it is running the MS IIS Web,FTP,SMTP and ' NNTP server. This will take a while to run ' depending on the amount of computers there are. '**************************************************** Response.Buffer = False server.ScriptTimeout = 6000 ' Gets stuff from form run = Request.Form ("run") %> <title>IIS Services Script</title> <table align="center" border="0" cellpadding="0" cellspacing"0"> <tr> <form action="iisstuff.asp" method="post" id=form1 name=form1> <td>AD Domain/Work Group Name Space: </td> <td><input type="text" name="addomain"></td> <td><input type="hidden" name="run" value="liststuff"></td> <td> <input type="submit" value="Run" id=submit1 name=submit1></td> </form> </tr> </table> <% ' Looks to see what sub to call bases on the run value Select Case run Case "liststuff" liststuff End Select Sub liststuff On Error Resume Next ' Dims Stuff Dim Container,ContainerName,Computer ContainerName = Request.Form ("addomain") Set Container = GetObject("WinNT://" & ContainerName) Container.Filter = Array("Computer") %> <table align="center" border="1" cellpadding="0" cellspacing"0"> <tr> <td> <table border="0" cellpadding="0" cellspacing"0"> <tr> <td colspan="5" align="center"><b><u>IIS Programs Search for <%=ucase(ContainerName)%></u></b></td> </tr> <tr> <td><br></td> </td> <tr> <td><b><u>Computer Name</u></b></td> <td><b>Web  </b></td> <td><b>FTP  </b></td> <td><b>SMTP  </b></td> <td><b>NNTP  </b></td> </tr> <%For each Computer in Container%> <tr> <td><%=Computer.Name%>  </td> <%Set w3svc = GetObject("IIS://" & Computer.Name & "/W3SVC") if err.number <> 0 then%> <td colspan="4"><font color="red">Can not connect to computer</font></td> <%err.Clear() else if not (errorChecking (Computer.Name)) then%> <td align="center"><b>X</b></td> <%end if Set w3scv = Nothing%> <%Set ftpsvc = GetObject("IIS://" & Computer.Name & "/MSFTPSVC") if not (errorChecking (Computer.Name)) then%> <td align="center"><b>X</b></td> <%end if Set ftpsvc = Nothing%> <%Set smtpsvc = GetObject("IIS://" & Computer.Name & "/SMTPSVC") if not (errorChecking (Computer.Name)) then%> <td align="center"><b>X</b></td> <%end if Set smtpsvc = Nothing%> <%Set nntpsvc = GetObject("IIS://" & Computer.Name & "/NNTPSVC") if not (errorChecking (Computer.Name)) then%> <td align="center"><b>X</b></td> <%end if Set nntpsvc = Nothing end if%> </tr> <%Next%> </table> </td> </tr> </table> <% Set Container = Nothing End Sub %> <% Function errorChecking(server) errorChecking = False if err.number <> 0 then%> <td align="center"><font color=red>NO</font></td> <% err.Clear () errorChecking = True end if end Function %> Copyright 2006 WindowsAdminScripts.com all rights reserved.