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: Auto-Delete Disabled Users VBSscript This script will delete all disabled users on a computer. You also have an option of listing all the disabled users so you can spot check them. You have the option of adding usernames you do not want to be deleted if they are disabled. I have also pre-added some "Restricted" username from being deleted as well. Script Usages: Delete Disabled Users: cscript deldisabledusers.vbs /computer:[computername] List Disbaled Users: cscript deldisabledusers.vbs /list:[computername] Email Address To Send Sample Code To: @    '************************************************************* ' Script Witten by Larry Heintz ' March 2006 www.windowsadminscripts.com ' This script will delete all disabled users on a computer. ' You also have an option of listing all the disabled users so ' you can spot check them. You have the option of adding ' usernames you do not want to be deleted if they are disabled. ' I have also pre-added some "Restricted" username from being ' deleted as well. ' ' Script Usages: ' Delete Disabled Users: cscript deldisabledusers.vbs /computer:[computername] ' List Disbaled Users: cscript deldisabledusers.vbs /list:[computername] '************************************************************* Dim args,computer Set args = Wscript.Arguments.Named computer = args.item("computer") list = args.item("list") if wscript.arguments.count = 0 then wscript.echo "Script Usages:" wscript.echo "Delete Disabled Users cscript deldisabledusers.vbs /computer:[computername]" wscript.echo "List Disbaled Users cscript deldisabledusers.vbs /list:[computername]" elseif args.exists("computer") then wscript.echo "Starting to delete disabled users..." Call deleteUsers(computer) elseif args.exists("list") then wscript.echo "Starting to list disabled users..." Call listUsers(list) end if Function deleteUsers(computer) Dim Container,count,user count = 0 Set Container = GetObject("WinNT://" & computer) container.filter = Array("User") ' Loops thru the users on server For Each User in Container if User.AccountDisabled = True then Select Case user.name 'Copy 2 lines below and uncomment line to be used for any other users you wish not to be deleted 'Case "USERNAMEGOESHERE" ' wscript.echo "User " & user.name & " is a Restricted Username and can not be deleted" Case "Guest" wscript.echo "User " & user.name & " is a Restricted Username and can not be deleted" Case "Administrator" wscript.echo "User " & user.name & " is a Restricted Username and can not be deleted" Case "ASPNET" wscript.echo "User " & user.name & " is a Restricted Username and can not be deleted" Case "IUSR_" & ucase(computer) wscript.echo "User " & user.name & " is a Restricted Username and can not be deleted" Case "IWAM_" & ucase(computer) wscript.echo "User " & user.name & " is a Restricted Username and can not be deleted" Case "TsInternetUser" wscript.echo "User " & user.name & " is a Restricted Username and can not be deleted" Case Else count = count + 1 call container.delete ("User",User.Name) wscript.echo "User " & user.name & " has been deleted." End Select end if Next Set Container = nothing wscript.echo vbcrlf & count & " disabled users have been deleted." End Function Function listUsers(computer) Dim Container,count,user count = 0 Set Container = GetObject("WinNT://" & computer) container.filter = Array("User") ' Loops thru the users on server For Each User in Container if User.AccountDisabled = True then count = count + 1 wscript.echo user.name end if Next Set Container = nothing wscript.echo vbcrlf & count & " disabled users." End Function Click HERE to download the VB Script. Copyright 2006 WindowsAdminScripts.com all rights reserved.