Script to delete all local user accounts

[ihaveaproblem]

hi,

Has anyone got a script that deletes all local user accounts, except ones I specify such as the administrator account and service accounts and also enables and sets a password for the local admin account.

Its for windows7.

 

Thanks

[ricki]

Have a see if this will do what you want How to Add domain accounts to Local Administrators Group using GPO - Richard&#39s myITforum Blog

 

Richard

[FN-GM]

Are you using Server 2008 R2? You can do this in group policy preferences

[Gibbo]

I have this batch file:

 

@echo off
c:
cd\
cd "c:\Documents and Settings\"
dir *.* /b /o:d > \dirs.txt
for /f "tokens=*" %%a in (\dirs.txt) do call :DelFiles "%%a"
del \dirs.txt
exit /b

:DelFiles %1
set Flag=0
if %1=="All Users" set Flag=1
if %1=="Administrator" set Flag=1
if "%Flag%"=="0" (
cd %1
attrib *.* -r /s
cd..
rem change rd %1 /s /q
rem for no confirmation
rd %1 /s /q
)

 

or a nice VB script:

 

On Error Resume Next
 Dim obtainfolder
 Dim Pathfinder
 Dim strPath

 Set fso = CreateObject("Scripting.FileSystemObject")

 strPath = "C:\Documents and Settings\"
 
 userexcludelist = "Administrator,All Users,Default User,localservice,networkservice,"

 Set f = fso.GetFolder(strPath)

 ' Loop through all subfolders
 For Each fldrItem in f.SubFolders
   fldrName = fldrItem.name
   If Right(strPath,1) <> "\" Then
     Pathfinder = strPath & "\" & fldrName
   Else
     Pathfinder = strPath & fldrName
   End If

   If InStr(1, ".00", fldrName, 1) Then
     set obtainfolder = fso.GetFolder(Pathfinder)
     obtainfolder.Delete true
   Else
               
               End If
 Next

 ' Clean up objects
 Set fso = Nothing
 Set fc = Nothing

[bio]

check my blog here and look for Shonks script.

 

bio..