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 Newtwork Wide Uptime This is a asp based script that will grab the current uptime of all servers in your domain. The original code to grab the uptime was done by chris@onestopwebhosting.com. I have just reworked the code to add the ability to grab all servers in the domain you add (like workgroup or your network name). There is also some basic error checking code in it as well. For the IIS Setup to run this code you will need to replace the anonomous user account with a admin account that has admin privies on all the servers you are going to connect to. You will also need to change the application protection setting to low so it can impersonate the admin when connecting to the servers to grab the uptime. Enjoy. 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 grab the ' current uptime of all servers in your domain. The ' original code to grab the uptime was done by ' chris@onestopwebhosting.com. I have just reworked ' the code to add the ability to grab all servers in ' the domain you add (like workgroup or your network ' name). There is also some basic error checking ' code in it as well. '**************************************************** Response.Buffer = False server.ScriptTimeout = 6000 Dim Container, ContainerName, Computer '''''''' Change to your Domain Name ''''''''' ' This is the only line you need to edit ' ContainerName = "domaingoeshere" ' '''''''' Change to your Domain Name ''''''''' Set Container = GetObject("WinNT://" & ContainerName) Container.Filter = Array("Computer") %> <title>Server UpTime For Domain <%=ContainerName%></title> <center> <table border="1" cellpadding="0" cellspacing="0" width="75%"> <tr> <td align="center"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="3" align="center">List Of Server UpTime for Domain: <b><%=ContainerName%></b></td> </tr> <tr> <td><br></td> </tr> <tr> <td><b><u>Server Name</u></b></td> <td>    </td> <td><b><u>Uptime</u></b></td> </tr> <%For each Computer in Container%> <tr> <% On Error Resume Next ' System Uptime ' chris@onestopwebhosting.com For Each objOSInfo In GetObject("winmgmts:{impersonationLevel=impersonate}\\" & Computer.Name & "\root\cimv2").ExecQuery("Select * from Win32_OperatingSystem") if not (errorChecking (Computer.Name)) then Dim sY, sM, sD, sH, sN, sS, dU, sT, iD, iH, iM, iSS 'yyyymmddHHMMSS sY = Left(objOSInfo.LastBootUpTime,4) sM = Mid(objOSInfo.LastBootUpTime, 5, 2) sD = Mid(objOSInfo.LastBootUpTime, 7, 2) sH = Mid(objOSInfo.LastBootUpTime, 9, 2) sN = Mid(objOSInfo.LastBootUpTime,11, 2) sS = Mid(objOSInfo.LastBootUpTime,13, 2) dU = DateSerial(sY, sM, sD) + TimeSerial(sH, sN, sS) iM = DateDiff("n", dU, Now) iD = iM \ 1440 iM = iM - (iD * 1440) iH = iM \ 60 iM = iM - (iH * 60) %> <td><%=Computer.Name%></td> <td>    </td> <td><%=iD%> days, <%=iH%> hours and <%=iM%> minutes.</td> <%end if%> <%Next%> </tr> <%Next%> </table> </td> </tr> </table> </center> <% Set Container = Nothing %> <% Function errorChecking(ComputerName) errorChecking = False if err.number <> 0 then if err.number = "462" then Response.Write("<td><font color=red>" & ComputerName & "</font></td>") Response.Write("<td>    </td>") Response.Write("<td><font color=red>Unable to connect.</font></td>") err.Clear () errorChecking = True elseif err.number = "70" then 'General access denied error Response.Write("<td><font color=red>" & ComputerName & "</font></td>") Response.Write("<td>    </td>") Response.Write("<td><font color=red>Permission Denied while trying to connect.</font></td>") err.Clear () errorChecking = True elseif err.number = "-2147023174" then 'The RPC server is unavailable. Response.Write("<td><font color=red>" & ComputerName & "</font></td>") Response.Write("<td>    </td>") Response.Write("<td><font color=red>Unable to connect, error number -2147023174.</font></td>") err.Clear () errorChecking = True elseif err.number = "-2147023836" then Response.Write("<td><font color=red>" & ComputerName & "</font></td>") Response.Write("<td>    </td>") Response.Write("<td><font color=red>Unable to connect, error number -2147023836.</font></td>") err.Clear () errorChecking = True elseif err.number = "-2147022986" then 'Behind Firewall Response.Write("<td><font color=red>" & ComputerName & "</font></td>") Response.Write("<td>    </td>") Response.Write("<td><font color=red>Unable to connect, error number -2147022986.</font></td>") err.Clear () errorChecking = True else Response.Write ("Error is: " & err.number & " <br>") Response.Write ("HEX Error is: " & hex(err.number) & " <br>") Response.Write ("Desc. is: " & err.Description & " <br>") Response.Write ("Source is: " & err.Source & " <br>") err.Clear () Response.End end if end if end Function %> Copyright 2006 WindowsAdminScripts.com all rights reserved.