Using Prnadmin.dll - VBScript to AutoIT help

[SIMPLE_XP]

Well I am having some minor trouble converting the follow VBScript code to AutoIT. No matter how I format the SERVER, PRINTER variables after "oMaster.PrinterDel" I get an error. I can get the Add printer code to work, just not the delete!

VBscript

CODE

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

oMaster.PrinterDel ServerName, PrinterName

AutoIT Code... so far I have tried...

oMaster.PrinterDel $PRINTSERVER_NAME, $PRINTER_NAME

oMaster.PrinterDel($PRINTSERVER_NAME, $PRINTER_NAME)

oMaster.PrinterDel('"' & $PRINTSERVER_NAME & "," & '"' & $PRINTER_NAME & '"')

oMaster.PrinterDel '"' & $PRINTSERVER_NAME & "," & '"' & $PRINTER_NAME & '"'

oMaster.PrinterDel $PRINTSERVER_NAME & "," & $PRINTER_NAME

CODE

Func REMOVE_PRINT_QUEUE($PRINTSERVER_NAME, $PRINTER_NAME)

$P_OBJ_MASTER = ObjCreate("PrintMaster.PrintMaster.1")

$P_OBJ_MASTER.PrinterDel($PRINTSERVER_NAME, $PRINTER_NAME)

EndFunc

Any help would be appreciated. Thanks!

[DaleHohm]

You might want to show the error you receive.

Also, what are you passing in for server and printer? If it is the local server you may want to try the keyword Default (not "Default", but Default) for the server name.

Dale

[PsaltyDS]

CODE

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

oMaster.PrinterDel ServerName, PrinterName

Assuming this works in VBS (does it?), you don't show how ServerName and PrinterName were defined in the VBS version.

[SIMPLE_XP]

Assuming this works in VBS (does it?), you don't show how ServerName and PrinterName were defined in the VBS version.

Sorry guys, I just assumed the Variable names were self explanitory. I am passing the Name of the server and Name of the printer (remotely) so the server variable would be "\\MYSERVER1" and Printer variable would be "PRINTER2".

I looked at how the add method worked and figured out that the VBScript code from Microxoft was incorrect (Whitepaper from MS "prnadmin.doc" comes with Toolkit) and here is what finally worked.

CODE

Func REMOVE_PRINT_QUEUE($PRINTSERVER_NAME, $PRINTER_NAME)

$P_OBJ_PRINTER.ServerName = "\\" & $PRINTSERVER_NAME

$P_OBJ_PRINTER.PrinterName = $PRINTER_NAME

$P_OBJ_MASTER.PrinterDel($P_OBJ_PRINTER)

$PRINTSERVER_NAME = ""

$PRINTER_NAME = ""

EndFunc

[ptrex]

@all

just for the fun of it.

expandcollapse popup

dim $oMaster
dim $oDriver

;The following code creates the required PrintMaster and Driver objects.
$oMaster = ObjCreate("PrintMaster.PrintMaster.1")
$oDriver = ObjCreate("Driver.Driver.1")

;The following code sets the driver name. It is required and the string cannot be empty.
$oDriver.ModelName = "HP LaserJet 4300 PCL6"

;The following code sets the driver processor. You must use either Intel or Itanium.
$oDriver.DriverArchitecture = "Intel"

;The following code specifies the operating system version for which the driver was written. If this setting is
;not configured, the caller's environment is used. You can use one of the following sets of values:
;"Windows 95, Windows 98, and Windows Millennium Edition"
;"Windows NT 4.0 or 2000"
;"Windows 2000, Windows XP and Windows Server 2003"
;"Windows XP and Windows Server 2003"
$odriver.DriverVersion = "Windows NT"

;The following code sets the driver cache. This setting is optional.
$oDriver.Path = "c:\temp"

;The following code sets the INF file. This setting is optional because if it is not set, the default directory,
;%windir%\inf\ntprint.inf, is used.
$oDriver.InfFile = "\\stmsr05\Support\Printers\Hp 4300 PCL6\hpc4300c.inf"

;The following code sets a server name to add a driver remotely. If you do not specify a ServerName, or if
;you use empty double quotes (""), the default, which adds a driver to the local computer, is used.
$oDriver.ServerName = ""

;The following code adds the driver.
$oMaster.DriverAdd ($oDriver)

;The following code uses the Err object to determine whether the driver was created successfully.
if @error <> 0 then
ConsoleWrite("An error occurred")
endif

regards,

ptrex