Миграция роли DHCP с Windows Server 2003 на Windows Server 2008 R2

http://www.techdays.ru/videos/1578.html

Подключение сетевых дисков через GPO

1й вариант: Через файл netdisks.bat

REM все
net use t: /delete
net use t: \\dc-1\day_drive
REM IT
IF INGROUP("Asup.all")
  net use L: /delete
  net use L: \\dc-1\G$\IT
ENDIF

2й вариант. Через скрипт MapDrv.vbs .
'========================================================================== 
' 
' VBScript Source File 
' 
' NAME: MapDrivesInGroup.vbs
' 
' AUTHOR: SergeyCVS 
' 
' COMMENT: Подключение сетевых дисков на основе групп с записью ошибок в EventLog 
' 
'========================================================================== 

Option Explicit 
'On Error Resume Next 

Dim WshShell, WshNetwork 
Dim strUserDN, objSysInfo, GroupObj, UserGroups, UserObj

UserGroups=""   


Set WshShell = WScript.CreateObject("WScript.Shell") 
Set objSysInfo = CreateObject("ADSystemInfo") 

strUserDN = objSysInfo.userName 

Set UserObj = GetObject("LDAP://" & strUserDN) 

For Each GroupObj In UserObj.Groups   
        UserGroups=UserGroups & "[" & GroupObj.Name & "]"   
Next   

'MsgBox "Member of "& UserGroups   

if InGroup("asup.all") then   
        MapDrv "L:", "\\DC-1\G$\IT" 
end if 

if InGroup("Пользователи домена") then   
        MapDrv "T:", "\\DC-1\DAY_DRIVE" 
end if 


'========================================================================== 
' 
' Function MapDrv(DrvLet, UNCPath) 
' 
' DrvLet -  Буква устройства 
' UNCPath - Сетевой путь 
' 
' COMMENT: Подключение сетевых дисков с записью ошибок в EventLog 
' 
'========================================================================== 


Function MapDrv(DrvLet, UNCPath) 

    Dim WshNetwork,objFSO          ' Object variable 
    Dim Msg 

    Set WshNetwork = WScript.CreateObject("WScript.Network") 
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    On Error Resume Next 

    If objFSO.DriveExists(DrvLet) Then 
        WshNetwork.RemoveNetworkDrive DrvLet 
    End If

    WshNetwork.MapNetworkDrive DrvLet, UNCPath 
    
    Select Case Err.Number 
        Case 0            ' No error 

        Case -2147023694 
            WshNetwork.RemoveNetworkDrive DrvLet 
            WshNetwork.MapNetworkDrive DrvLet, UNCPath 
              
        Case -2147024811 
            WshNetwork.RemoveNetworkDrive DrvLet 
            WshNetwork.MapNetworkDrive DrvLet, UNCPath 

        Case Else 

            Msg = "Mapping network drive error: " & _ 
                   CStr(Err.Number) & " 0x" & Hex(Err.Number) & vbCrLf & _ 
                  "Error description: " & Err.Description & vbCrLf 
            Msg = Msg & "Domain: " & WshNetwork.UserDomain & vbCrLf 
            Msg = Msg & "Computer Name: " & WshNetwork.ComputerName & vbCrLf 
            Msg = Msg & "User Name: " & WshNetwork.UserName & vbCrLf & vbCrLf 
            Msg = Msg & "Device name: " & DrvLet & vbCrLf 
            Msg = Msg & "Map path: " & UNCPath 

            WshShell.LogEvent 1, Msg, "\\SRV"
    End Select 
End Function


'========================================================================== 
' 
' Function InGroup(strGroup)
' 
' strGroup - группа, принадлежность к которой проверяем
' 
' COMMENT: проверка принадлежности пользователя к группе
' 
'========================================================================== 

Function InGroup(strGroup)   
        InGroup=False   
        If InStr(UserGroups,"[CN=" & strGroup & "]") Then   
                InGroup=True   
        End If   
End Function

3й вариант. Возможен в 2008 через Сопоставление дисков
Конфигурация пользователя
└ Настройка
└ Конфигурация Windows
└Подключение дисков
http://blogs.technet.com/b/askds/archive/2009/01/07/using-group-policy-preferences-to-map-drives-based-on-group-membership.aspx

Долго открываются файлы в проводнике

Симптомы: если комп без сети перезагрузить то все нормально, также если открывать файлы через файловые менеджеры то тоже все нормально, а через проводник, даже рисунок открывается около 2-х минут
Проблема: В ветке реестра HKEY_CLASSES_ROOT\applications в списке ассоциаций есть ссылка на сетевой ресурс, из-за этого долго отрываются документы.
Способы решения:

Запустить поиск по ветке HKEY_CLASSES_ROOT\applications

в строке поиска указать "\\"

Найденные разделы удалить

Перезагрузить

http://pavelik.blogspot.com/2010/01/blog-post.html 

Windows 7: пропала языковая панель. Что делать?

Windows 7: пропала языковая панель. Что делать?

Исчезла языковая панель? Казалось бы, ерунда, ведь раскладка клавиатуры, как и раньше, меняется при нажатии комбинации клавиш Alt+Shift или Ctrl+Shift? Но даже такая  мелочь способна доставить неприятности, особенно, когда приходится часто вводить пароли. Не знаете, как решить эту досадную проблему? Давайте разбираться вместе. Решение 1. Восстановление языковой панели средствами Windows 7. Откройте «Язык и региональные стандарты», перейдя по пути Пуск → Панель управления → Часы, язык и регион или вызвав команду «Выполнить» (воспользовавшись комбинацией клавиш Win + R) и введя в командную строку intl.cpl. Затем перейдите на закладку «Языки и клавиатуры» и нажмите на кнопку «Изменить клавиатуру». В открывшемся окне выберите вкладку «Языковая панель» и отметьте галочками пункты «Закреплена в панели задач» и «Отображать текстовые метки на языковой панели»  → Применить → ОК. Решение 2. Восстановление языковой панели средствами редактора реестра Windows 7. Вызовите редактор реестра (комбинация клавиш Win + R – команда regedit). Перейдите по пути HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun. Убедитесь, что в правом окне присутствует параметр CTFMon, и его значение C:Windowssystem32ctfmon.exe. Если такой строки нет, то её надо создать. Кликаем правой кнопкой мыши по пустому полю правого окна редактора реестра → Создать → «Строковый параметр», даем ему имя CTFMon и присваиваем указанное выше значение.