Monday, January 10, 2005

Delete Local Profiles

I made this script when working with a firm which was having problems with GPO's. The local profiles not always got deleted while in the GPO it was stated it should remove them.
Put the script in the shutdown section of the GPO machine portion. Remark, the part with Case "ADMINISTRATOR" can be modified to keep some profiles from getting deleted.

1: Set fso = CreateObject("Scripting.FileSystemObject")
2: Set outfile = fso.OpenTextFile("C:\profile_Output.txt", 2, True) 
3: Set objFolder = fso.GetFolder("C:\Documents and Settings") 
4: For Each Profile In objFolder.SubFolders 
5: Select Case UCase(Profile.Name) 
7: 'Do nothing 
8: Case Else 
9: fso.DeleteFolder Profile.Path, True 
10: End Select 
11: Next 
12: For Each Profile In objFolder.Subfolders 
13: outfile.writeline Profile.Name & vbCrLf
14: Next 

No comments:

Post a Comment