Vraag : Schrap gebruikersprofielen op de leeftijd van het ntuser.dat- dossier worden gebaseerd dat.

De mensen van Hey, probeer ik om oude die gebruikersprofielen te schrappen op de leeftijd van het ntuser.dat- dossier worden gebaseerd.  Het originele ding is dat dit in Vensters 7 het milieu van de pre-uitvoeringslaars wordt gedaan.  

We gebruik WDS om onze beelden op te stellen.  Wanneer wij hebben een machine van Vensters XP die klaar om aan Vensters 7 is zijn gemigreerd hebben wij een bepaald laarsbeeld dat wanneer de geselecteerde laarzen aan vensters 7 pxe, automatisch tot een bos van omslagen leidt, wat materiaal rond, yadda van yaddayadda beweegt, en het groot zou zijn als het ook C:\documents en de montagesomslag kon bekijken en alle gebruikersprofielen met ntuser.dat- dossiers identificeren ouder dan ....... oh 60 dagen zegt en die oude profielen schrapt.  Ik kan niet gebruiken delprof, die niet in W7pxe zal werken.  Om het even welke ideeën?  Dank folks.

Antwoord : Schrap gebruikersprofielen op de leeftijd van het ntuser.dat- dossier worden gebaseerd dat.

Dit zou de truc moeten doen.  Laat me weten wat u denkt.
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

'Cre�ër Voorwerpen
Plaats objShell = CreateObject („WScript.Shell“)
Plaats objFSO = CreateObject („Scripting.FileSystemObject“)

'Krijg speciale omslagwegen
strAllUserProfile = objShell.ExpandEnvironmentStrings („%ALLUSERSPROFILE%“)

Vastgestelde SkipProfilesArray = CreateObject („Scripting.Dictionary“)
SkipProfilesArray.Add „Beheerder“, „Beheerder“
SkipProfilesArray.Add „Alle Gebruikers“, „Alle Gebruikers“
SkipProfilesArray.Add „StandaardGebruiker“, „StandaardGebruiker“
SkipProfilesArray.Add „LocalService“, „LocalService“
SkipProfilesArray.Add „NetworkService“, „NetworkService“

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

Voor elk strUserProfile in objProfiles.SubFolders
	Als niet SkipProfilesArray.Exists (strUserProfile.Name) toen
	Reeks objDAT = strUserProfile objFSO.GetFile (& „\ NTUSER.DAT“)
		Als DateDiff („D“, objDAT.DateLastModified, nu ()) > intMaxAge toen
			strUserProfile objFSO.DeleteFolder
		Eind als
	Eind als
Daarna
Andere oplossingen  
 
programming4us programming4us