redundante Drucker im Active Directory

[mschweyen]

Hallo Leute,
wir integrieren momentan eine Active Directory in unserem Untenehmen. (Windows 2003 Server)
Wir haben ca. 50 Drucker die über TCP/IP angesteuert weden.
Da wir eine perfekte Ausfallsicherheit garantieren wollen, soll der Druckserver auch doppelt vorhanden sein
(1. und 2. Domaincontroller)

Wie ich Drucker Freigeben und im Active Directory anlegen kann ist klar und funktioniert auch.

!!! Ich möchte allerdings ein Objekt (Drucker) im Active Directory, der entweder über den 1. oder über den 2. Domaincontroller druckt. So, dass ein Ausfall des 1. Domaincontrollers keinen unterschied machen würde !!!

Bitte helft mir weiter.
Falls dies nicht möglich ist, bitte auch schreiben!

Mfg Martin Schweyen

[computerfitz]

Nun habe grad kein Active Directory da, aber ich habe mir eingeprägt, dass dieser Wunsch grundsätzlich möglich sein sollte, wenn als Client OS Windows 2000 oder höher zum Einsatz kommt.
Wenn die Drucker als Druckerobjekte im Active Directory existieren, kann man doch über Start -> Drucker -> Neuer Drucker - > Netzwerkdrucker und dan suchen im Verzeichnis (also Active Directory) und dann damit verbinden. Dann sollte nicht eine Verbindung zu einen bestimmten Server hergestellt werden, sondern zum AD.

Vielleicht schaust Du auch einfach mal im Windows XP in "Hilfe und Support" (Startmenü) hinein. Als Suchbegriffe "active directory drucker" eingeben und im Ergebnis 4. (Herstellen einer Verbindung mit einem Drucker im Netzwerk) nachlesen.

computerfitz

[flugfaust]

Und wenn du die Drucker auf die 2 DCs aufteilst ? Dann würde auch die Auslastung nicht so hoch sein

[mschweyen]

Hallo computerfitz, es ist zwar richtig, dass die Drucker somit im AD veröffentlicht werden. Doch wenn der Server ausfällt, an dem die Drucker freigegeben werden kann nicht mehr gedruckt werden. Die Verknüpfung vom Objekt im AD geht ja doch an einen Server mit einer Freigabe.

Der Vorschlag, die Drucker zu verteilen ist sehr sinnvoll, doch wenn ein DC ausfällt, hab ich immer nurs noch die hälfte der Drucker zur verfügung.

Es sollte ja so sein, dass der User gar nichts davon merkt, wenn ein DC ausfällt.

Grundsätzlich liegt das Problem darin, dass Windows TCP/IP Drucker als Lokal ansieht, obwohl es ja eigendlich Netzwerkdrucker sind.


Auf beiden DC´s müssen die Drucker mit gleichem Name und Freigabenamen eingetragen werden. Auf einen von den beiden muss der Hacken: "Im Active Directory veröffentlichen" gesetzt werden und bei dem anderen nicht. Sonst sieht der User die Drucker dopptelt im AD.

Im VBScript müssen nur noch die Variablen für den Server-DNS eingetragen werden.

Dieses Skript könnte man dann via GP beim Systemstart laufen lassen


'
'Skript zum wechseld der Druckerverbindungen des Clients.
'Dies Skript sollte ausgeführt werden, wenn der erste
'Domaincontroller
'der Active directory ausfällt.
'
'

dim server1
dim server2

server1= "dc01" DNS-Name esten Domaincontrollers
server2= "dc02" DNS-Name zweiten Domaincontrollers

dim oService
dim oLocator
dim buffer
dim bResult
dim aResult
dim Printers
dim oEnum

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

' kontrolle ob 1.Domaincontroller verfügbar ist
aResult = WshShell.Run("ping -n 1 " & server1, 0, TRUE)
bResult = WshShell.Run("ping -n 1 " & server2, 0, TRUE)

oService = null
set oLocator = CreateObject("WbemScripting.SWbemLocator")
set oService = oLocator.ConnectServer()
oService.Security_.impersonationlevel = 3
oService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege"
set oEnum = oService.ExecQuery("select DeviceID from Win32_Printer where default=true")

for each oPrinter in oEnum
dPrinter = oPrinter.DeviceID
next

set Printers = oService.InstancesOf("Win32_Printer")

for each oPrinter in Printers
'wscript.echo L_Empty_Text 'dient zur kontrolle allerdings muss
'wscript.echo oPrinter.DeviceID 'das Skript dann wie folgt gestartet werden:
'cscript printersw.vbs
buffer = oPrinter.DeviceID

if aResult Then
if InStr(buffer,server1) <> 0 Then 'wenn der 1.Domaincontroller ausfällt
oPrinter.Delete_
buffer = AddPrinter(buffer, server1, server2)
End If
End If

if bResult Then
if InStr(buffer,server2) <> 0 Then 'wenn der 2.Domaincontroller ausfällt
oPrinter.Delete_
buffer = AddPrinter(buffer, server1, server2)
End If
End If

Next

function AddPrinter(buffer, server1, server2)
Dim WSHNetwork
Dim WSHShell
Dim Ver
Set WSHNetwork = Wscript.CreateObject("Wscript.Network")
Set WSHShell = Wscript.CreateObject("Wscript.Shell")

If aResult Then 'falls der 1.Domaincontroller ausfällt
buffer=Replace(buffer,server1,server2)
End If

If bResult Then 'falls der 2.Domaincontroller ausfällt
buffer=Replace(buffer,server2,server1)
End If

'wscript.echo buffer
WshNetwork.AddWindowsPrinterConnection buffer

end function

Mit freundlichen Grüßen
Martin Schweyen
E-Mail: mschweyen@gmx.de