AutoIt - Benutzerprofile löschen

[CBCrosser]

Hallo liebe Community,

ich möchte unter anderem von einer Menge XP-Rechnern die lokalen Profile bis auf 4 Ausnahmen löschen.
Allerdings sind nach dem Ausführen des Scripts immernoch alle Profile vorhanden.
Die Frage ist jetzt witzigerweise: Warum?
Ich kann es mir im Moment nur so erklären, dass die restlichen funktionen im Script einfach so schnell fertig sind das sich das Script beendet und somit den Löschvorgang garnicht wirklich anfangen kann.

Jemand dazu eine Idee?

Hier der Auschnitt mit dem Löschbefehl:

	$profil = _FileListToArray("C:\Documents and Settings\Users")

		For $i = 1 To UBound($profil) - 1
			If 	$profil[$i] = "Administrator" Or $profil[$i] = "Default User" Or $profil[$i] = "All Users" Or $profil[$i] = "wsadm" Then
				Sleep (1)
			Else
				DirRemove ("C:\Documents and Settings\Users\" & $profil[$i], 1)
			EndIf
		Next

 

[Schnuecks]

Hi,

da gibts ein kleines Tool von MS das Du verwenden kannst. Ich denke mal das es an irgendwelchen Berechtigungen scheitert etc. Und Du löscht ja nur die Ordner nicht die User selbst.

Hier das Tool.

https://www.microsoft.com/en-us/download/details.aspx?id=5405

Einfach per Run in Dein Skript einbinden und dann sollte es funktionieren wie Du möchtest.

 

[CBCrosser]

Danke erst einmal für deine Antwort

Das Problem ist: ich muss das Script selber schreiben und es muss 100% automatisch ablaufen. Ich selber werde das Script weder ausrollen noch ausführen.
Genau da würde das Tool scheitern

Zum Quellcode, habe ein Progress eingefügt:

#RequireAdmin
#include <Array.au3>
#include <File.au3>


$profil = _FileListToArray("C:\Documents and Settings\Users")

		For $i = 1 To UBound($profil) - 1
			If 	$profil[$i] = "Administrator" Or $profil[$i] = "Default User" Or $profil[$i] = "All Users" Or $profil[$i] = "wsadm" Then
				Sleep (1)
			Else
				$isize = DirGetSize("C:\Documents and Settings\Users\" & $profil[$i])
					DirRemove ("C:\Documents and Settings\Users\" & $profil[$i], 1)
						ProgressOn ("Bitte warten", $profil[$i] & " wird gelöscht.")
							$inewsize = 1
							Do
								ProgressSet ($inewsize/$isize*100)
								$inewsize = DirGetSize("C:\Documents and Settings\Users\" & $profil[$i])
							Until $inewsize = 0 or @error
						ProgressOff
			EndIf
		Next

Fragt mich aber nicht ob das schon funktioniert

 

[Schnuecks]

Muss es AutoIT sein.

Habe da noch ein vbscript rumfliegen.

Ist von dieser Seite das macht eigentlich alles was du willst.

http://www.wisesoft.co.uk/scripts/vbscript_delete_local_profiles.aspx

Schaus Dir mal an.

 

[CBCrosser]

Ja muss es sein, da ich mich damit nur auskenne und auch nur das genau auf unsere Bedürfnisse abstimmen kann.
Das Ding muss auch bis heute Abend voll lauffähig sein und ich muss es meinem Vorgesetzten auch erklären können.
Zweites Problm dabei ist, dass es ja nur ein Auschnitt aus einem doch recht großen Script ist und es auch nur eins bleiben soll.
Ich kann auf die Kompetenz der Mitarbeiter die es ausführen werden nur recht wage schließen und deshalb muss es eigentlich eins bleiben.

Man sieht ich habe ein mittelschweres Problem an der Angel ^^

Danke dir trotzdem für die Antwort

 

[Schnuecks]

Dann würde ich mal bei http://www.autoit.de anklopfen.

Die können Dir dann evtl. schneller weiterhelfen.

 

[CBCrosser]

Hab da schon alles durch geklappert und die Idden übernommen
Dachte vielleicht kennt sich hier noch jemand damit aus