Frage : Die Benutzerprofile löschen, die auf dem Alter der ntuser.dat Akte basieren.

He Völker, versuche ich, die alten Benutzerprofile zu löschen, die auf dem Alter der ntuser.dat Akte basieren.  Die schrullige Sache ist, dass dieses in einer Windows 7 Vordurchführung Aufladungsumwelt getan.  

We Gebrauch WDS, unsere Bilder zu entfalten.  Wenn wir eine Windows- Xpmaschine haben, die bereit ist, zu Windows 7 abgewandert zu werden wir, ein bestimmtes Aufladungsbild, das, wenn es Aufladungen zum Fenster 7 pxe vorgewählt, ein automatisch Bündel Faltblätter, bewegt etwas Material herstellt, yadda yadda yadda haben, und es sein, wenn es C:\documents und das Einstellungsfaltblatt auch betrachten und alle Benutzerprofile mit den ntuser.dat Akten kennzeichnen könnte, die als älter sind, ....... oh sagt 60 Tage und löscht jene alten Profile groß.  Ich kann delprof, das nicht benutzen arbeite nicht in W7pxe.  Irgendwelche Ideen?  Dankt folks.

Antwort : Die Benutzerprofile löschen, die auf dem Alter der ntuser.dat Akte basieren.

Dieses sollte den Trick tun.  Mich informieren, was Sie denken.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

intMaxAge = 60

'Gegenstände verursachen
objShell = CreateObject („WScript.Shell“) einstellen
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen

'Spezielle Faltblattwege erhalten
strAllUserProfile = objShell.ExpandEnvironmentStrings („%ALLUSERSPROFILE%")

SkipProfilesArray = CreateObject („Scripting.Dictionary“) einstellen
SkipProfilesArray.Add „Verwalter“, „Verwalter“
SkipProfilesArray.Add „alle Benutzer“, „alle Benutzer“
SkipProfilesArray.Add „Rückstellungs-Benutzer“, „Rückstellungs-Benutzer“
SkipProfilesArray.Add „LocalService“, „LocalService“
SkipProfilesArray.Add „NetworkService“, „NetworkService“

strAllProfiles = objFSO.GetParentFolderName (strAllUserProfile)
objProfiles = objFSO.GetFolder (strAllProfiles) einstellen

Für jedes strUserProfile in objProfiles.SubFolders
	Wenn nicht SkipProfilesArray.Exists (strUserProfile.Name) dann
	Das objDAT = objFSO.GetFile (strUserProfile einstellen u. „\ NTUSER.DAT“)
		Wenn DateDiff („D“, objDAT.DateLastModified, jetzt ()) > intMaxAge dann
			objFSO.DeleteFolder strUserProfile
		Beenden wenn
	Beenden wenn
Zunächst
Weitere Lösungen  
 
programming4us programming4us