Shared Printers automatisch installieren

basler

Hallo @,

ich brauche mal wieder einen guten Tipp.

Ich habe einen Windows 2000 Server und würde gerne alle bzw. ausgesuchte shared Printers von diesem System automatisch per Skript auf einem Client installieren.
Gibt es eine Möglichkeit dies mit AutoIT möglichst einfach zu automatisieren ?

Bin für jeden Hinweis dankbar...

Grüße
Basler

**bernd670**

Hallo!

Das ganze kann man über DLLCall's lösen:

[autoit]

Func _AddPrinterConnection($PrinterName)
$retvalue = DllCall("winspool.drv", "long", "AddPrinterConnection" _
, "str", $PrinterName _
)

return $retvalue[0] ; 1 = Successful
EndFunc ;==>_AddPrinterConnection

[/autoit][autoit][/autoit][autoit]

Func _DelPrinterConnection($PrinterName)
$retvalue = DllCall("winspool.drv", "long", "DeletePrinterConnection" _
, "str", $PrinterName _
)

return $retvalue[0] ; 1 = Successful
EndFunc ;==>_DelPrinterConnection

[/autoit]

Einfach mit _AddPrinterConnection("\\SERVER\Druckername") den Drucker verbinden und mit _DelPrinterConnection("\\SERVER\Druckername") wieder löschen!