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 FTP Virtual Directory Deletion This ASP script will query all ftp site on the server you enter in the form. It will then list all ftp site of the server. You can then choose a ftp site to query all ftp virtual directories. It will then tell you if the path the virtual directory exists or not. You can now delete a FTP VD if the path does not exist. Also added comments to script. Email Address To Send Sample Code To: @    <% '**************************************************** ' Script Witten by Larry Heintz ' Nov 2004 www.windowsadminscripts.com ' This script will query all ftp site on the server ' you enter in the form. It will then list all ftp ' site of the server. You can then choose a ftp site ' to query all ftp virtual directories. It will then ' tell you if the path the virtual directory exists ' or not. You can now delete a VD if the path does ' exist. '**************************************************** Response.Buffer = False server.ScriptTimeout = 60000 ' Dim stuff Dim run,cmd ' Gets stuff from forms run = Request.Form ("run") computer = Request.Form ("computer") ftpindex = Request.Form ("ftpindex") cmd = Request.Form ("v1") computername = Request.Form ("v2") %> <title>Non-Existant Virtual FTP Directories Report for <%=computer%></title> <%' Added to hide query string. Passes info as form instead of query string%> <form name=f1 id=f1 action=default.asp method=post> <input type=hidden name=v1 id=v1> <input type=hidden name=v2 id=v2> <input type=hidden name=v3 id=v3> <input type=hidden name=v4 id=v4> <input type=hidden name=v5 id=v5> </form> <script language=vbscript> sub submitform(cmd,computername,ftpindex1,ftpvdname,servercomment) document.f1.v1.value = cmd document.f1.v2.value = computername document.f1.v3.value = ftpindex1 document.f1.v4.value = ftpvdname document.f1.v5.value = servercomment document.f1.submit end sub </script> <%if computer = "" and computername = "" then%> <form action="default.asp" method="post" id=form1 name=form1> <table align="center" cellspacing="0" cellpadding="0"> <tr> <td>Server: </td> <td><input type="text" name="computer"></td> <td><input type="hidden" name="run" value="listftp"></td> <td> <input type="submit" value="Run" id=submit1 name=submit1></td> </tr> </table> </form> <% else ' Looks to see what sub to call bases on the run value Select Case run Case "listftp" listftpSites computer Case "vdftp" runvdFTP computer,ftpindex End Select end if %> <%Sub listftpSites (computer)%> <form action="default.asp" method="post" id=form1 name=form1> <table align="center" cellspacing="0" cellpadding="0"> <tr> <td>Server: </td> <td><input type="text" name="computer" value="<%=computer%>"></td> <td><%ftpsitelist (computer)%></td> <td><input type="hidden" name="run" value="vdftp"></td> <td> <input type="submit" value="Run" id=submit1 name=submit1></td> </tr> </table> </form> <%end sub%> <% Sub ftpsitelist(computer) ' Connects to ftp server set ftplist = GetObject("IIS://" & computer & "/MSFTPSVC") %> <select name="ftpindex"> <% ' Loops thru all ftp sites on server for each child in ftplist if isnumeric(child.name) then %> <option value="<%=child.name%>-<%=child.ServerComment%>"><%=child.ServerComment%></option> <% end if next %> </select> <% ' Closes stuff set ftpparent = nothing End Sub Sub runvdFTP (computer,ftpindex) ' Dims stuff Dim ftpparent,ftpindextemp Dim FSO ' Sets stuff ftpindextemp = split(ftpindex,"-") ftpindex = ftpindextemp(0) ftpcount = 0 ' Connects to ftp server and FTP Site set ftpvd = GetObject("IIS://" & computer & "/MSFTPSVC/" & ftpindex & "/root") ' Sets FileSystemObject Set FSO = Server.CreateObject("Scripting.FileSystemObject") %> <table align="center" width="85%" cellspacing="0" cellpadding="0" border="1"> <tr> <td align="center"> <table cellspacing="0" cellpadding="0"> <tr> <td colspan="5" align="center"><b>Non-Existant Virtual FTP Directories Report for <%=ftpindextemp(1)%> on <%=computer%></b></td> </tr> <tr> <td><br></td> </tr> <tr> <td><b><u>Alias Name</u></b></td> <td>  </td> <td><b><u>VD Path</u></b></td> <td>  </td> <td><b><u>Exisit</u></b></td> </tr> <% ' Loops thru all Virtual Directories for ftp site ' ' Then looks to see if FTP Virtual Directory Path exists on server ' ' If it does then print out OK ' ' If it doesnt exist then give option to delete ' ' Also gives count of how many FTP VD there are for the ftp site ' %> <%for each child in ftpvd%> <%ftpcount = ftpcount + 1%> <tr> <%if fso.FolderExists("\\" & computer & "\" & replace(child.path,":","$")) = True then%> <td><%=child.name%></td> <td>  </td> <td><%=child.path%></td> <td>  </td> <td>OK</td> <%else%> <td><%=child.name%></td> <td>  </td> <td><%=child.path%></td> <td>  </td> <td><a style="cursor:hand" title="Click Here To Delete This FTP VD" onClick='submitform "del","<%=computer%>","<%=ftpindex%>","<%=child.name%>","<%=ftpindextemp(1)%>"'><font color="red"><b><u>Delete</u></b></font></a></td> <%end if%> </tr> <%next%> <tr> <td><br></td> </tr> <tr> <td><b>Total FTP Accounts: <%=ftpcount%></b></td> <td colspan="2"><a href="default.asp">Again?</a></td> </tr> </table> </td> </tr> </table> <% set FSO = nothing set ftpparent = nothing End Sub ' Looks to see what sub to call bases on the cmd value Select Case cmd Case "del" delftpvdDir computername End Select Sub delftpvdDir(computername) ' Dims stuff dim ftpindex1,ftpvdname,servercomment,ftpindexandservercomment ' Sets stuff computername = Request.Form ("v2") ftpindex1 = Request.Form ("v3") ftpvdname = Request.Form ("v4") servercomment = Request.Form ("v5") ftpindexandservercomment = ftpindex1 & "-" & servercomment ' Connects to ftp server and FTP Site Set ftpvd = GetObject("IIS://" & computername & "/MSFTPSVC/" & ftpindex1 & "/root") ' Deletes the FTP Virtual Directory call ftpvd.delete("IIsFTPVirtualDir", ftpvdname) ' Closes stuff Set ftpvd = nothing ' Goes back to list of FTP Virtual Directories runvdFTP computername,ftpindexandservercomment end sub %> Copyright 2006 WindowsAdminScripts.com all rights reserved.