Use these functions to capture and restore windows network printers. This script was used in a Win XP/7 environment running 2008 R2 servers.
Global Const $PrinterList = (@DesktopDir & "printerlist.csv")
Func PrinterBackup()
Local $csvfile
ConsoleWrite($PrinterList & @LF)
$csvfile = FileOpen($PrinterList, 10)
; Pull default printer and write it to the first line of the file
$objWMI = ObjGet("winmgmts:.rootCIMV2")
$colPrinters = $objWMI.ExecQuery("SELECT * FROM Win32_Printer", "WQL", 0x10 + 0x20)
If IsObj($colPrinters) Then
For $objPrinter In $colPrinters
If $objPrinter.Default =