Pergunta : Suprimir dos perfis de usuário baseados na idade da lima de ntuser.dat.

Hey povos, eu estou tentando suprimir dos perfis de usuário velhos baseados na idade da lima de ntuser.dat.  A coisa subtil é que esta está sendo feita em um ambiente do carregador da pre-execução de Windows 7.  uso WDS do

We desdobrar nossas imagens.  Quando nós temos uma máquina de Windows Xp que esteja pronta para ser migrado a Windows 7 nós ter uma imagem particular que quando selecionada carregadores ao pxe das janelas 7, crie automaticamente um grupo dos dobradores, mova algum material ao redor, yadda do carregador do yadda do yadda, e seria grande se poderia igualmente olhar C:\documents e o dobrador dos ajustes e identificar todos os perfis de usuário com as limas de ntuser.dat mais velhas do que ....... oh diz 60 dias e suprime daqueles perfis velhos.  Eu não posso usar o delprof, de que não trabalharei em W7pxe.  Alguma idéia?  Agradece a folks. class= do

Resposta : Suprimir dos perfis de usuário baseados na idade da lima de ntuser.dat.

Isto deve fazer o truque.  Deixar-me saber o que você pensa.
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

'Criar objetos
Ajustar o objShell = o CreateObject (“WScript.Shell”)
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)

'Começ trajetos especiais do dobrador
strAllUserProfile = objShell.ExpandEnvironmentStrings (“%ALLUSERSPROFILE%")

Ajustar SkipProfilesArray = CreateObject (“Scripting.Dictionary”)
SkipProfilesArray.Add “administrador”, “administrador”
SkipProfilesArray.Add “todos os usuários”, “todos os usuários”
SkipProfilesArray.Add do “usuário defeito”, do “usuário defeito”
SkipProfilesArray.Add “LocalService”, “LocalService”
SkipProfilesArray.Add “NetworkService”, “NetworkService”

strAllProfiles = objFSO.GetParentFolderName (strAllUserProfile)
Ajustar objProfiles = objFSO.GetFolder (os strAllProfiles)

Para cada um strUserProfile em objProfiles.SubFolders
	Se não SkipProfilesArray.Exists (strUserProfile.Name) então
	Ajustar o objDAT = o objFSO.GetFile (strUserProfile & “\ NTUSER.DAT”)
		Se DateDiff (“D”, objDAT.DateLastModified, agora ()) > intMaxAge então
			objFSO.DeleteFolder strUserProfile
		Terminar se
	Terminar se
Em seguida
Outras soluções  
 
programming4us programming4us