Вопрос : Уничтожьте профили потребителя основанные на времени архива ntuser.dat.

Hey люди, я пытаюсь уничтожить старые профили потребителя основанные на времени архива ntuser.dat.  Своеобразная вещь что это делается в окружающей среде ботинка pre-исполнения Windows 7.  польза WDS

We раскрыть наши изображения.  Когда мы имеем машину Windows XP готово проникнуться к Windows 7 мы имейте определенное изображение после того как я выбирано ботинки к pxe окон 7, автоматически создает пук скоросшивателей, двигает некоторое вещество вокруг, yadda ботинка yadda yadda, и оно было бы больш если оно smogл также посмотреть C:\documents и скоросшиватель установок и определить все профили потребителя с архивами ntuser.dat более старыми чем, то ....... oh говорит 60 дней и уничтожает те старые профили.  Я не могу использовать delprof, то не буду работать в W7pxe.  Все идеи?  Благодарит folks. class=

Ответ : Уничтожьте профили потребителя основанные на времени архива ntuser.dat.

Это должно сделать выходку.  Препятствуйте мне знать вы думаете.
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

'Создайте предметы
Установите objShell = CreateObject («WScript.Shell»)
Установите objFSO = CreateObject («Scripting.FileSystemObject»)

'Получите специальные курсы скоросшивателя
strAllUserProfile = objShell.ExpandEnvironmentStrings («%ALLUSERSPROFILE%")

Установите SkipProfilesArray = CreateObject («Scripting.Dictionary»)
SkipProfilesArray.Add «администратор», «администратор»
SkipProfilesArray.Add «все потребители», «все потребители»
SkipProfilesArray.Add «потребитель невыполнения обязательства», «потребитель невыполнения обязательства»
SkipProfilesArray.Add «LocalService», «LocalService»
SkipProfilesArray.Add «NetworkService», «NetworkService»

strAllProfiles = objFSO.GetParentFolderName (strAllUserProfile)
Установите objProfiles = objFSO.GetFolder (strAllProfiles)

Для каждого strUserProfile в objProfiles.SubFolders
	Если не SkipProfilesArray.Exists (strUserProfile.Name) после этого
	Установите objDAT = objFSO.GetFile (strUserProfile & «\ NTUSER.DAT»)
		Если DateDiff, то («d», objDAT.DateLastModified, теперь ()) > intMaxAge после этого
			objFSO.DeleteFolder strUserProfile
		Закончитесь если
	Закончитесь если
Затем
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us