How to Delete Hundreds of Profile folders at once?

Originally posted by : Scripting LoserScripting Loser (Visitor) Jan 18, 2002 Hi Im working in a company that has hundreds of customer service reps. A friend and i created a script that does work on non-profile based subfolders but fails when run as Adminstrator trying to delete the excess profile folders. Is there a work around for this. We keep getting a error "Acess Denied" when we try to run it live. But it works fine in folders like "Temp" with copied profiles. Is there some other ------------------------------------------------------------'Delete Folder Script by 'Version 0.1.5FolderSpec = "C:WINNTProfiles"FolderLength= Len(FolderSpec) +1Dim fso, fc, f, fc2Dim setDeleteBitWshShell.SpecialFolders.Item("strFolderName") = strFolderPathSet fso = CreateObject("Scripting.FileSystemObject")Set fc = fso.GetFolder(FolderSpec)Set fc2 = fc.SubFoldersdim KeepUsersKeepUsers = Array("Administrator", "All Users", "Default User", "test", "jsmisek")for Each i in KeepUsers msg1 = msg1 & i & " "NextWScript.Echo "This will delete ALL but the following profiles:" & chr(13) & chr(13) & msg1'line 21For Each subFolder in fc2 'delete unless noted otherwise setDeleteBit = 1'optimize code to reduce numebr of loops'if folder doesnt begin with an a, t, or d (as required accounts do) then delete automagically Select Case LCase(Mid(subFolder,FolderLength,1)) Case "a", "d", "t", "j" call ChizeckShizit Case Else setDeleteBit = 1 End Select If setDeleteBit = 1 Then Call deleteShizit End IfNext'Clear up memorySet fso = NothingSet fc = NothingSet fc2 = NothingWScript.Echo "Please verify that the profiles were successfully deleted." & chr(13) & "Created by"WScript.QuitSub deleteShizit WScript.Echo "Deleting " & subFolder subFolder.deleteEnd SubSub ChizeckShizit for Each i in KeepUsers newDEL = LCase(FolderSpec & i) If LCase(subFolder) = newDEL Then setDeleteBit = 0 End If NextEnd Sub------------------------------------------------------------Any help would be greatly appreciated