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 OS Information This script will query all computer in your AD or Work Group that you have Admin access to. You can then choose a computer from the pull down list. The script will then query info regarding the OS that is installed on the computer. Email Address To Send Sample Code To: @    <% '**************************************************** ' Script Witten by Larry Heintz ' Jan 2005 www.windowsadminscripts.com ' This script will query all computer in your AD or ' Work Group that you have Admin access to. You can ' then choose a computer from the pull down list. ' The script will then query info regarding the OS ' that is installed on the computer. '**************************************************** ' Please add your Active Directory Domain Name or ' Work Group Name on Line 32. Response.Buffer = false server.ScriptTimeout = 60000 ' Gets stuff from form run = Request.Form ("run") ' Looks to see what sub to call bases on the cmd value Select Case run Case "getcomputerinfo" getComputerInfo Case else showMain End Select Sub showMain 'Enumerates all computers on AD Domain/Work Group Name ' Dim Stuff Dim Container,ContainerName,Computer ' Sets Stuff ContainerName = "SD" ' The is where you need to enter your AD Domain/Work Group Name ' Connects to AD/WorkGroup Name Set Container = getobject("WinNT://" & ContainerName) ' Uses Filter to get Computer Names and throws in Array Container.Filter = Array("Computer") %> <title>Get List of Computers in <%=containername%></title> <table align="center"> <form action="default.asp" method="post" id=form1 name=form1> <tr> <td>Server Name: </td> <td><select name="server"> <%For each Computer in Container%> <option value="<%=Computer.Name%>"><%=Computer.Name%></option> <%Next%> </select></td> <td><input type="hidden" name="run" value="getcomputerinfo"></td> <td><input type="hidden" name="adwg" value="<%=ContainerName%>"></td> <td> <input type="submit" value="Get OS Info" id=submit1 name=submit1></td> </tr> </form> </table> <br> <% set Container = nothing End Sub Sub getComputerInfo On Error Resume Next computer = Request.Form ("server") trColor1 = "#FFFAF0" trColor2 = "#F8FFDD" %> <table align="center" border="1" cellpadding="0" cellspacing="0" bgcolor="<%=trColor2%>"> <tr> <td> <table align="center" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" colspan="3"><b>Information for <%=ucase(computer)%>:</b></td> </tr> <tr> <td><b><u>Name</u></b></td> <td>  </td> <td><b><u>Option</u></b></td> </tr> <%For each ObjOS in GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & computer & "").ExecQuery("Select * from Win32_OperatingSystem") if not (errorChecking (computer)) then%> <tr bgcolor="<%=trColor1%>"> <td>OS Name:</td> <td>  </td> <td><%=ObjOS.caption%></td> </tr> <tr bgcolor="<%=trColor2%>"> <td>OS Version:</td> <td>  </td> <td><%=ObjOS.version%></td> </tr> <tr bgcolor="<%=trColor1%>"> <td>Registered User:</td> <td>  </td> <td><%=ObjOS.registereduser%></td> </tr> <tr bgcolor="<%=trColor2%>"> <td>Registered Org.:</td> <td>  </td> <td><%=ObjOS.organization%></td> </tr> <tr bgcolor="<%=trColor1%>"> <td>Serial Number:</td> <td>  </td> <td><%=ObjOS.serialnumber%></td> </tr> <tr bgcolor="<%=trColor2%>"> <td>Install Date:</td> <td>  </td> <% localyear = left(ObjOS.installdate,4) localmonth = right(left(ObjOS.installdate,6),2) localday = right(left(ObjOS.installdate,8),2) localhour = right(left(ObjOS.installdate,10),2) localmin = right(left(ObjOS.installdate,12),2) localsec = right(left(ObjOS.installdate,14),2) %> <td><%=localmonth%>/<%=localday%>/<%=localyear%> <%=localhour%>:<%=localmin%>:<%=localsec%></td> </tr> <tr bgcolor="<%=trColor1%>"> <td>Service Pack:</td> <td>  </td> <td><%=ObjOS.servicepackmajorversion%>.<%=ObjOS.servicepackminorversion%></td> </tr> <tr bgcolor="<%=trColor2%>"> <td>Windows Directory:</td> <td>  </td> <td><%=ObjOS.windowsdirectory%></td> </tr> <tr bgcolor="<%=trColor1%>"> <td>System Directory:</td> <td>  </td> <td><%=ObjOS.systemdirectory%></td> </tr> <tr bgcolor="<%=trColor2%>"> <td>Boot Device:</td> <td>  </td> <td><%=ObjOS.bootdevice%></td> </tr> <tr bgcolor="<%=trColor1%>"> <td>System Device:</td> <td>  </td> <td><%=ObjOS.systemdevice%></td> </tr> <tr bgcolor="<%=trColor2%>"> <td>Build Number:</td> <td>  </td> <td><%=ObjOS.buildnumber%></td> </tr> <tr bgcolor="<%=trColor1%>"> <td>Current Time Zone:</td> <td>  </td> <td><%=ObjOS.currenttimezone/60%> GMT</td> </tr> <tr bgcolor="<%=trColor2%>"> <td>Encryption Level:</td> <td>  </td> <%if left(ObjOS.version,4) = "5.2." or left(ObjOS.version,4) = "5.1." then%> <td><%=ObjOS.EncryptionLevel%></td> <%else%> <td>N/A</td> <%end if%> </tr> <tr bgcolor="<%=trColor1%>"> <td>Last Boot Up Time:</td> <td>  </td> <%sY = Left(ObjOS.LastBootUpTime,4) sM = Mid(ObjOS.LastBootUpTime, 5, 2) sD = Mid(ObjOS.LastBootUpTime, 7, 2) sH = Mid(ObjOS.LastBootUpTime, 9, 2) sN = Mid(ObjOS.LastBootUpTime,11, 2) sS = Mid(ObjOS.LastBootUpTime,13, 2) dU = DateSerial(sY, sM, sD) + TimeSerial(sH, sN, sS)%> <td><%=dU%> GMT</td> </tr> <tr bgcolor="<%=trColor2%>"> <td>Time and Date:</td> <td>  </td> <% localyear = left(ObjOS.LocalDateTime,4) localmonth = right(left(ObjOS.LocalDateTime,6),2) localday = right(left(ObjOS.LocalDateTime,8),2) localhour = right(left(ObjOS.LocalDateTime,10),2) localmin = right(left(ObjOS.LocalDateTime,12),2) localsec = right(left(ObjOS.LocalDateTime,14),2) %> <td><%=localmonth%>/<%=localday%>/<%=localyear%> <%=localhour%>:<%=localmin%>:<%=localsec%></td> </tr> <%end if next For each ObjCS in GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & computer & "").ExecQuery("Select * from Win32_ComputerSystem") if not (errorChecking (computer)) then%> <tr bgcolor="<%=trColor1%>"> <td>Computer Role:</td> <td>  </td> <%Select Case ObjCS.DomainRole Case "0" DomainRole = "Standalone Workstation" Case "1" DomainRole = "Member Workstation" Case "2" DomainRole = "Standalone Server" Case "3" DomainRole = "Member Server" Case "4" DomainRole = "Backup Domain Controller" Case "5" DomainRole = "Primary Domain Controller" End Select%> <td><%=DomainRole%></td> </tr> <tr bgcolor="<%=trColor2%>"> <td>Current User Logged On:</td> <td>  </td> <td><%=objCS.username%></td> </tr> <tr bgcolor="<%=trColor1%>"> <td>Manufacturer:</td> <td>  </td> <td><%=objCS.manufacturer%></td> </tr> <tr bgcolor="<%=trColor2%>"> <td>Model:</td> <td>  </td> <td><%=objCS.model%></td> </tr> <tr bgcolor="<%=trColor1%>"> <td>Infrared Support:</td> <td>  </td> <td><%=objCS.infraredsupported%></td> </tr> <%end if next%> <tr bgcolor="<%=trColor2%>"> <td colspan=3><b><u>List of All Installed Hot Fixes</u></b></td> </tr> <%trColor = "#F8FFDD" For each ObjHFix in GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & computer & "").ExecQuery("Select * from Win32_QuickFixEngineering") if not (errorChecking (computer)) then if instr(ObjHFix.HotFixID,"File 1") = false then%> <tr bgcolor="<%=trColor%>" title="<%=ObjHFix.HotFixID%> - <%=ObjHFix.Description%>"> <td><%=ObjHFix.HotFixID%></td> <td>  </td> <td><%=mid(ObjHFix.Description,1,35)%></td> </tr> <%end if end if if (trColor = "#F8FFDD") then trColor = "#FFFAF0" else trColor = "#F8FFDD" end if next%> <tr> <td colspan=3 align=center><a href=default.asp>Check Another Computer?</a></td> </tr> </table> </td> </tr> </table> <% End sub 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 showmain 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 showmain 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 showmain 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 showmain 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 showmain 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.