Fråga : Borttagningsanvändaren profilerar baserat på åldern av ntuser.daten sparar.

Hey folks, den pröva I-förmiddagen att ta bort den gammala användaren profilerar baserat på åldern av ntuser.daten sparar.  Det besynnerliga tinget är att detta göras i en miljö för det Windows 7 pre-utförandet känga.  bruk WDS för

We att utplacera vårt avbildar.  När vi har ett Windows Xp att bearbeta med maskin, som är, ordnar till för att migrateds till Windows 7 som vi har en särskild känga att avbilda att, när utvalda kängor till pxen för fönster 7, skapar automatiskt en grupp av mappar, flyttningar några stoppar omkring, yaddayaddayaddaen och den skulle är den stora, om den kunde också se C:\documents, och inställningsmappen och att identifiera all användare profilerar med ntuser.dat sparar äldre än, ....... oh något att säga 60 dagar och tar bort de gammala profilerar.  Jag kan inte använda delprof, det ska inte arbete i W7pxe.  Några idéer?  Tack folks. " klar "

Svar : Borttagningsanvändaren profilerar baserat på åldern av ntuser.daten sparar.

Detta bör göra trick.  Låt mig veta vad dig funderare.
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

'Skapa anmärker
Fastställd objShell = CreateObject (”WScript.Shell”)
Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)

'Få speciala mappbanor
strAllUserProfile = objShell.ExpandEnvironmentStrings (”%ALLUSERSPROFILE%”)

Fastställda SkipProfilesArray = CreateObject (”Scripting.Dictionary”)
SkipProfilesArray.Add ”administratör”, ”administratör”,
SkipProfilesArray.Add ”alla användare”, ”alla användare”,
SkipProfilesArray.Add ”standardanvändare”, ”standardanvändare”,
SkipProfilesArray.Add ”LocalService”, ”LocalService”,
SkipProfilesArray.Add ”NetworkService”, ”NetworkService”,

strAllProfiles = (strAllUserProfile) objFSO.GetParentFolderName,
Fastställda objProfiles = objFSO.GetFolder (strAllProfiles)

För varje som är strUserProfile i objProfiles.SubFolders
	Om inte SkipProfilesArray.Exists (strUserProfile.Name) därefter
	Fastställd objDAT = strUserProfile objFSO.GetFile (& ”\ NTUSER.DAT”)
		Om DateDiff (”D”, objDAT.DateLastModified, nu ()) > intMaxAge därefter
			strUserProfile objFSO.DeleteFolder
		Avsluta om
	Avsluta om
Därefter
Andra lösningar  
 
programming4us programming4us