Novo arquivo e servidor de impressão

Question

Estamos no progresso de migrar para um novo arquivo e servidor de impressão que tenha um nome diferente para o servidor antigo. Temos muitas unidades mapeadas com base em departamentos, além de muitas impressoras. Eu estava imaginando qual seria (na sua opinião) a melhor maneira de alterar todas as referências ao servidor antigo para o novo na máquina do cliente?

Obrigado.

    

Answer 1

Para alterar as referências mapeadas da unidade, você poderia escrever um VBScript que fosse simplesmente um remapeamento e executá-lo como um script de logon. O mesmo para as impressoras.

Eu criaria um registro CNAME em seu servidor DNS apontando oldFileServer para newFileServer (apenas no caso)

EDITAR: Você não muda o CNAME. 1) Inicie o novo servidor. 2) Desligue o servidor antigo 3) Apague o registro de DNS A para oldFileServer.myDomain.loc 4) Adicione o registro CNAME apontando oldFileServer.myDomain.loc para newFileServer.myDomain.loc

Quanto a um script de exemplo, aqui está um colega criado quando migramos nossos 15 servidores de impressão. Basta substituir o bit \\ oldPrintServer , o bit \\ oldPrintServer.myDomain.loc e o bit \\ newPrintServer . Você precisaria chamar isso como um script de logon para o usuário (por meio da conta de usuário no AD, de um script de logon existente ou via 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