Вот покопался в просторах инета:

rem ******** Register prnadmin.dll file on client computer *******

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

WshShell.Run "regsvr32 /s c:\Prnadmin.dll",1,TRUE

rem ************** Create the port first *******************************

dim oPort

dim oMaster

set oPort = CreateObject("Port.Port.1")

set oMaster = CreateObject("PrintMaster.PrintMaster.1")

oPort.PortName = "192.168.4.201"

oPort.PortType = 3

oMaster.PortAdd oPort

if Err <> 0 then

msgbox "There was an error creating the port."

end if

set oPort = CreateObject("Port.Port.1")

set oMaster = CreateObject("PrintMaster.PrintMaster.1")

oPort.PortName = "192.168.4.202"

oPort.PortType = 3

oMaster.PortAdd oPort

if Err <> 0 then

msgbox "There was an error creating the port."

end if

Как удалить дллку из регистра? (програмно) - и как использовать порт печати в файл, не получается сделать.

'******** Регестрируем Prnadmin.dll она кстати из Windows Tool Kit *******

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

WshShell.Run "regsvr32 /s c:\Prnadmin.dll",1,TRUE

'************** Создаем непосредственно принтер*******************
'Меняем MyPrinter на имя которым бует зваться наш принтер.
'Меняем PrinterDriver на имя драйвера например - Apple Color LW 12/660 PS.
'Меняем Port на тип порта Port1 Port2 Port3 File: Ltp1 Ltp2 Ltp3 или какой - нибудь 'уже созданный
Dim oMaster

set oMaster = CreateObject("PrintMaster.PrintMaster.1")

dim oPrinter

set oPrinter = CreateObject("Printer.Printer.1")

oPrinter.PrinterName = "MyPrinter"

oPrinter.DriverName = " PrinterDriver"

oPrinter.PortName = "Port"

oMaster.PrinterAdd oPrinter
If Err <> 0 then

msgbox "There was an error creating the printer."

end if


Вот и все оказывается, копируете в текстовый файл и сохраняете как VBS и ОЛЕ! ПАШЕТ 8) Извините за дуратские вопросы 8))