Назад | Перейти на главную страницу

Новый файловый сервер и сервер печати

Мы находимся в процессе перехода на новый файловый сервер и сервер печати, имя которого отличается от имени старого сервера. у нас есть много подключенных дисков по отделам, а также множество принтеров. Мне просто было интересно, как (по вашему мнению) лучше всего изменить все ссылки на старый сервер на новый на клиентской машине?

Спасибо.

Чтобы изменить ссылки на подключенные диски, вы могли бы написать очень простой сценарий VBScript, который бы переназначал их и выполнял как сценарий входа в систему. То же и с принтерами.

Затем я бы создал запись CNAME на вашем DNS-сервере, указывающую oldFileServer на newFileServer (на всякий случай)

РЕДАКТИРОВАТЬ: вы не меняете CNAME. 1) Запустите новый сервер. 2) Выключите старый сервер 3) Удалите запись DNS A для oldFileServer.myDomain.loc 4) Добавьте запись CNAME, указывающую oldFileServer.myDomain.loc на newFileServer.myDomain.loc

Что касается образца сценария, вот один из наших коллег, который собрал, когда мы перенесли наши 15 серверов печати. Просто замените \\ oldPrintServer немного, \\ oldPrintServer.myDomain.loc немного, и \\ newPrintServer немного. Затем вам нужно будет вызвать это как сценарий входа в систему для пользователя (либо через учетную запись пользователя в AD, из существующего сценария входа в систему, либо через GPO)

Option Explicit
On Error Resume Next

MigratePrint("\\oldPrintServer")
MigratePrint("\\oldPrintServer.myDomain.loc")

Function MigratePrint(strOldServer)

Dim strComputer
Dim strShareName
Dim objWMIService
Dim objPrinter
Dim objItem
Dim colItems
Dim WshNetwork
Dim strNewServer

strComputer = "."
strNewServer="\\newPrintServer"

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer",,48)

For Each objItem in colItems
    If objItem.ServerName = strOldServer Then   
        If objItem.Default = "True" Then
            strShareName = objItem.ShareName
        End If
        WshNetwork.RemovePrinterConnection objItem.ServerName & "\" & objItem.ShareName, True, True
        WshNetwork.AddWindowsPrinterConnection strNewServer & "\" &  objItem.Sharename
    End If
Next

Set objPrinter = CreateObject("WScript.Network") 
objPrinter.SetDefaultPrinter (strNewServer & "\" & strShareName)


End Function