Lokale Profile monatlich loeschen Script

Ich möchte ein Script schreiben, dass alle lokal gespeicherten Profile unter C:\Dokumente und Einstellungen\ löscht.
Bisher habe ich es so gelöst, dass ich jeden einzelen Bentzerordner mit
RD /S/Q vorname.nachname
Das Script funktioniert bisher auch nur, wenn die Script Datei im Ordner C:\Dokumente und Einstellungen\ liegt.
Es ist natürlich sehr mühsam, wenn zb. ein neuer User dazukommt.
Es darf natürlich auch nicht der Default und All User Ordner gelöscht werden.

Hat jemand eine entsprechende Lösung parat?

c:
if not exist c:\test md c:\test
cd test
del /q *.ini
dir /b "C:\Dokumente und Einstellungen\" > allprofile.ini  
findstr /v "Administrator" allprofile.ini  >> profile.ini  
findstr /v "Default User" profile.ini  >> profile1.ini  
findstr /v "All Users" profile1.ini >> profile2.ini  
for /f %%f in (profile2.ini) do (echo RD %%f /S/Q)
pause

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set Rootfolder = objFSO.getFolder("C:\Dokumente und Einstellungen\")  
Set SubFolder = Rootfolder.SubFolders
for each folder in SubFolder
	If folder.name = "All Users" OR _  
		Foldername = "Default User" Then  
		' Nix zu tun  
	else
		objFSO.DeleteFolder folder.path,true
	end if
next