|
AddWindowsPrinter
Add Windows Network Printer Connection, and set it as default printer.
Option Explicit
Dim WshNetwork, fso, file, printer
Set WshNetwork = CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists( "C:plist.dat") Then
Set file = fso.OpenTextFile( "C:printer.dat", 1)
Do While Not file.AtEndOfStream
printer = file.ReadLine
WshNetwork.AddWindowsPrinterConnection printer
Loop
file.close
WshNetwork.SetDefaultPrinter printer ' Last printer is set as default
End If
|
