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 Network Wide User Created Shares This script will query all AD Domains or Work Group Name that you have access to. Choose one from the pull down list. The script will then generate all user-created shares for the AD Domain or the Work Group Name you chose. Email Address To Send Sample Code To: @    <% '**************************************************** ' Script Witten by Larry Heintz ' Dec 2004 www.windowsadminscripts.com ' This script will query all AD Domains or Work Group ' Name that you have access to. Choose one from the ' pull down list. The script will then generate all ' user-created shares for the AD Domain or the Work ' Group Name you chose. '**************************************************** 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 "getshares" getShares Case else showMain End Select Sub showMain 'Enumerates all AD Domain/Work Group Name ' Dim Stuff Dim Container,Domain ' Sets Stuff Set Container = getobject("WinNT:") %> <title>Get List of Shares</title> <table align="center"> <form action="default.asp" method="post" id=form1 name=form1> <tr> <td>Server Name: </td> <td><select name="containername"> <%For each Domain in Container%> <option value="<%=Domain.Name%>"><%=Domain.Name%></option> <%Next%> </select></td> <td><input type="hidden" name="run" value="getshares"></td> <td> <input type="submit" value="Get Shares" id=submit1 name=submit1></td> </tr> </form> </table> <br> <% set Container = nothing End Sub Sub getShares On Error Resume Next ' Dims stuff Dim containername,container,computer,compcount,sharecount,currentusers ' Gets stuff from from containername = Request.Form ("containername") ' Connects to AD Domain or Work Group Name and gets all computers set container = getobject("WinNT://" & containername) ' Puts all computers in array container.filter = array("computer") ' Sets stuff compcount = 0 sharecount = 0 currentusers = 0 trbgcolor = "#F8FFDD" tablebgcolor = "FDF8FF" %> <title>List of all User Created Shares on all Computers in <%=ucase(containername)%></title> <table align="center" border="1" cellpadding="0" cellspacing="0" bgcolor="<%=tablebgcolor%>"> <tr> <td> <table align="center" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" colspan="9"><b>List of all User Created Shares on all Computers in <%=ucase(containername)%></b></td> </tr> <tr> <td><b><u>Name</u></b></td> <td>  </td> <td><b><u>Computer</u></b></td> <td>  </td> <td align="Center"><b><u>Comment</u></b></td> <td>  </td> <td><b><u>Connected Users</u></b></td> <td>  </td> <td><b><u>Path</u></b></td> </tr> <% for each computer in container Set allshares = getobject("WinNT://" & containername & "/" & computer.name & "/LanmanServer") for each FileShare in allshares err.Clear() set fileshareucount = getobject("WinNT://" & containername & "/" & computer.name & "/LanmanServer/" & FileShare.Name) if err.number = 0 then sharecount = sharecount + 1%> <tr bgcolor="<%=trbgcolor%>"> <td><%=FileShare.Name%></td> <td>   </td> <td><%=computer.name%></td> <td>   </td> <td style="cursor:hand" title="<%=fileshareucount.Description%>"> <%if fileshareucount.Description <> "" then%> <%if len(fileshareucount.Description) > "30" then%> <%=mid(fileshareucount.Description,1,30)%>... <%else%> <%=mid(fileshareucount.Description,1,30)%> <%end if%> <%end if%> </td> <td>   </td> <td align="center"> <%if fileshareucount.CurrentUserCount <> 0 then currentusers = currentusers + fileshareucount.CurrentUserCount%> <font color="red"><b><%=fileshareucount.CurrentUserCount%></b></font> <%else%> <%=fileshareucount.CurrentUserCount%> <%end if%> </td> <td>   </td> <td style="cursor:hand" title="<%=fileshareucount.path%>"> <%if len(fileshareucount.path) < "30" then%> <a href="\\<%=computer.name%>\<%=replace(fileshareucount.path,":","$")%>" target="_blank"><font color="black"><%=fileshareucount.path%></font></a> <%elseif len(fileshareucount.path) > "30" then%> <a href="\\<%=computer.name%>\<%=replace(fileshareucount.path,":","$")%>" target="_blank"><font color="black"><%=mid(fileshareucount.path,1,30)%>...</font></a> <%end if%> </td> </tr> <%end if set fileshareucount = nothing set FileShare = nothing if trbgcolor = "#F8FFDD" then trbgcolor = "#FDD9FF" else trbgcolor = "#F8FFDD" end if next Set allshares = nothing next%> <tr> <td colspan="9" align="center"><b>Total # of User Created Shares: <u><%=sharecount%></u>  Total # of Connected Users <u><%=currentusers%></u></td> </tr> <tr> <td colspan="9" align="center"><a href="default.asp">Check another AD Domain or Work Group Name?</a></td> </tr> </table> </td> </tr> </table> <% Set container = nothing End Sub %> Copyright 2006 WindowsAdminScripts.com all rights reserved.