Windows XP Home & Домен

В настоящее время очень много сотрудников работают на своих рабочих местах с личными ноутбуками. В целом это хорошо как работодателю, так как он экономит на оборудовании, так и работнику - все рабочие документы постоянно находятся при нем. Но есть одна очень распространенная проблема - на большей части личных компьютеров установлена операционная система Windows XP Home Edition, которая не позволяет вводить компьютер в корпоративную доменную структуру.

   В данной статье описывается способ введения компьютера с операционной системой  Windows XP Home Edition в домен.

1. Нажимаем кнопку "Пуск" и выбираем команду "Выполнить".
2. В поле ввода команды набираем regedit и нажимаем ОК.
3. В открывшемся редакторе реестра выполняем следующие действия:
В реестре в ветке
HKEY_LOCAL_MASHINE\SYSTEM\CurrentControlSet\Control\ProductOptions\...
находятся ключи, которые отвечают за особенности версий WinXP:
ProductSuite и ProductType.
Сравните их в XP Pro и в XP Home.
Если поставить на машине с XP Home значения ключей с XP Pro,
то после перезагрузки Home станет полноценной Pro!

Но! Windows не позволяет менять эти ключи.

Однако, можно обойти это ограничение, заменив эти ключи
в запасных ветках реестра:
HKEY_LOCAL_MASHINE\SYSTEM\ControlSet001\Control\ProductOptions\...,
HKEY_LOCAL_MASHINE\SYSTEM\ControlSet002\Control\ProductOptions\...,
HKEY_LOCAL_MASHINE\SYSTEM\ControlSet003\Control\ProductOptions\...

4. После замены перегрузитесь, при перезагрузке жмите F8 и выбирайте ПОСЛЕДНЮЮ РАБОЧУЮ КОНФИГУРАЦИЮ.
5. В свойствах компьютера меняем рабочую группу на домен, указываем имя домена и подключаем компьютер к домену.

http://www.cinetel.ru/faq/windows/226 

Изменение даты папки или файла Windows

Решение через PowerShell
powershell (Get-Item "C:\"Program Files"").LastWriteTime = get-date
powershell (Get-Item "C:\"Program Files"").CreationTime = get-date

Решение через VBScript 
Dim objShell : Set objShell = CreateObject("Shell.Application") 
objShell.NameSpace("C:\Temp").ParseName("Test.Txt").ModifyDate

   = DateAdd("d", -1, Now()) 

'на вчера

или

Sub Touch(FolderPath, FileName, NewDate)
  Set app = CreateObject("Shell.Application")
  Set folder = app.NameSpace(FolderPath)
  Set file = folder.ParseName(FileName)
  file.ModifyDate = NewDate
End Sub

Call Touch("C:\", "somefile.txt", "2012-01-01")

Windows 7 Home

Некоторые допвозможности

Редактор групповых политик (gpedit.msc)
Установить утилиту gpedit.zip 

Локальные пользователи и группы
lusrmgr.msc - оснастка
netplwiz - учетные записи пользователей

Включение учетки админа
net user administrator /active:yes