Questione : Cancellare i profili di utente basati sull'età della lima di ntuser.dat.

Hey gente, sto provando a cancellare i vecchi profili di utente basati sull'età della lima di ntuser.dat.  La cosa originale è che questa sta facenda in un ambiente del caricamento del sistema di pre-esecuzione di Windows 7.  uso WDS del

We schierare le nostre immagini.  Quando abbiamo una macchina del Windows Xp che è pronta ad essere migrato a Windows 7 noi avere un'immagine particolare che una volta selezionata caricamenti del sistema al pxe delle finestre 7, genera automaticamente un mazzo di dispositivi di piegatura, sposta un certo roba intorno, yadda del caricamento del sistema di yadda di yadda e sarebbe grande se potesse anche esaminare C:\documents ed il dispositivo di piegatura delle regolazioni ed identificare tutti i profili di utente con le lime di ntuser.dat più vecchie di ....... oh dice i 60 giorni e cancella quei vecchi profili.  Non posso usare il delprof, quello non funzionerò in W7pxe.  Delle idee?  Ringrazia folks. class= del

Risposta : Cancellare i profili di utente basati sull'età della lima di ntuser.dat.

Ciò dovrebbe fare il trucco.  Lasciarlo conoscere che cosa pensate.
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

'Generare gli oggetti
Regolare il objShell = CreateObject (“WScript.Shell„)
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)

'Ottenere i percorsi speciali del dispositivo di piegatura
strAllUserProfile = objShell.ExpandEnvironmentStrings (“%ALLUSERSPROFILE%")

Regolare SkipProfilesArray = CreateObject (“Scripting.Dictionary„)
SkipProfilesArray.Add “coordinatore„, “coordinatore„
SkipProfilesArray.Add “tutti gli utenti„, “tutti gli utenti„
SkipProfilesArray.Add “utente di difetto„, “utente di difetto„
SkipProfilesArray.Add “LocalService„, “LocalService„
SkipProfilesArray.Add “NetworkService„, “NetworkService„

strAllProfiles = objFSO.GetParentFolderName (strAllUserProfile)
Regolare i objProfiles = objFSO.GetFolder (strAllProfiles)

Per ciascuno strUserProfile in objProfiles.SubFolders
	Se non SkipProfilesArray.Exists (strUserProfile.Name) allora
	Regolare il objDAT = objFSO.GetFile (strUserProfile & “\ NTUSER.DAT„)
		Se DateDiff (“D„, objDAT.DateLastModified, ora ()) > intMaxAge allora
			objFSO.DeleteFolder strUserProfile
		Concluder se
	Concluder se
Dopo
Altre soluzioni  
 
programming4us programming4us