Cuestión : Suprimir los perfiles de usuario basados en la edad del archivo de ntuser.dat.

Hey gente, estoy intentando suprimir los viejos perfiles de usuario basados en la edad del archivo de ntuser.dat.  La cosa peculiar es que esto se está haciendo en un ambiente del cargador de la pre-ejecución de Windows 7.  uso WDS del

We de desplegar nuestras imágenes.  Cuando tenemos una máquina de Windows Xp que esté lista para ser emigrado a Windows 7 nosotros tener una imagen particular que cuando está seleccionada los cargadores al pxe de las ventanas 7, cree automáticamente un manojo de carpetas, mueva un poco de materia alrededor, yadda del cargador del yadda del yadda, y sería grande si podría también mirar C:\documents y la carpeta de los ajustes e identificar todos los perfiles de usuario con los archivos de ntuser.dat más viejos que ....... oh dice 60 días y suprime esos viejos perfiles.  No puedo utilizar el delprof, de que no trabajaré en W7pxe.  ¿Ideas?  Agradece folks. class= del

Respuesta : Suprimir los perfiles de usuario basados en la edad del archivo de ntuser.dat.

Esto debe hacer el truco.  Dejarme saber lo que usted piensa.
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

'Crear los objetos
Fijar el objShell = CreateObject (“WScript.Shell”)
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)

'Conseguir las trayectorias especiales de la carpeta
strAllUserProfile = objShell.ExpandEnvironmentStrings (“%ALLUSERSPROFILE%")

Fijar SkipProfilesArray = CreateObject (“Scripting.Dictionary”)
SkipProfilesArray.Add “administrador”, “administrador”
SkipProfilesArray.Add “todos los usuarios”, “todos los usuarios”
SkipProfilesArray.Add “usuario del defecto”, “usuario del defecto”
SkipProfilesArray.Add “LocalService”, “LocalService”
SkipProfilesArray.Add “NetworkService”, “NetworkService”

strAllProfiles = objFSO.GetParentFolderName (strAllUserProfile)
Fijar los objProfiles = objFSO.GetFolder (los strAllProfiles)

Para cada uno strUserProfile en objProfiles.SubFolders
	Si no SkipProfilesArray.Exists (strUserProfile.Name) entonces
	Fijar el objDAT = objFSO.GetFile (strUserProfile y “\ NTUSER.DAT”)
		Si DateDiff (“D”, objDAT.DateLastModified, ahora ()) > intMaxAge entonces
			objFSO.DeleteFolder strUserProfile
		Terminar si
	Terminar si
Después
Otras soluciones  
 
programming4us programming4us