Jump to content
jguinch

Printers Management UDF

Recommended Posts

Runwait('rundll32 printui.dll PrintUIEntry /k /n "MFP"',"",@SW_HIDE)  ; MFP is the printer name

This is even better  a few line of code,  list all the information I needed on the test page

Printer name , computer name , time and date , IP address.  by the way I tested your print function in your udf and did it not work for me

 

Edited by antonioj84
correction

Share this post


Link to post
Share on other sites

This UDF cannot export or import printer setting

please write more funtion to export or import printer setting

this is my cmd script to import printer setting

use cmd to restore local printer is ok

rundll32 printui.dll,PrintUIEntry /Sr /n "shareprint" /a "config.dat" u

but not ok if printer is network printer (share)

rundll32 printui.dll,PrintUIEntry /Sr /n "\\10.2.1.3\shareprint" /a "config.dat" u

 

Share this post


Link to post
Share on other sites

Hello, @jguinch, hope you're good :)

Could you help me debug the reason my script is unable to add printers using the function "_PrintMgr_AddWindowsPrinterConnection"?

If here isn't the right place, please let me know.

I used another script I found here that uses your UDF, this topic below, by @willichan.

So, I have a server callled beniv001, and I'm at another server with a test user logged in, 3 printers from beniv001 are installed as seen below:

5do4yt.png

So, I ran the script, replacing "beniv001" to "PRINT_NIV", which is the new server.

I put a msgbox right before and after the function to figure out what it's doing and if its giving an error, (and it is). 

It's doing this:

2evpz0w.jpg

it just says "error" :

jgp8oz.png

Here's the code excerpt, and there is nothing else changed from the original script.

For $iLoop = 1 To $aReplaced[0]
    Local $isdefault = False
    If $aReplaced[$iLoop] = $sDefaultPrinter Then $isdefault = True
;    ConsoleWrite("Adding \\" & $sNewPrintServer & "\" & $aReplaced[$iLoop] & "(" & $isdefault & ")" & @CRLF)
     MsgBox(64,"WEG","Adding \\" & $sNewPrintServer & "\" & $aReplaced[$iLoop])
    _PrintMgr_AddWindowsPrinterConnection("\\" & $sNewPrintServer & "\" & $aReplaced[$iLoop])
    if @error then MsgBox(0,"error","error")
    If $isdefault Then _PrintMgr_SetDefaultPrinter("\\" & $sNewPrintServer & "\" & $aReplaced[$iLoop])
Next


But I have no idea to debug what's going on. Could you help me?

 


Just a server analyst that has never been into programming that much. So, small fish here :)

Share this post


Link to post
Share on other sites

@DavidLago : can you try with this one ?

Func _AddPrinterConnection($sPrinterName)
    Local $aRet = DllCall("Winspool.drv", "bool", "AddPrinterConnectionW", "wstr", $sPrinterName)
    If @error Or Not $aRet[0] Then Return SetError(1, 0, 0)
    Return 1
EndFunc ; ===> _AddPrinterConnection

 

Share this post


Link to post
Share on other sites

@jguinch Excellent UDF, I was using PrintUi previously but prefer using this method as it can be run silently.  Just a couple of things I found which I thought I'd mention is that when using the functions with network printers, found I needed to either double up the backslashes for server/print paths, otherwise functions like _Printmgr_PrinterExists wouldn't work, for example:

$bPrinterExists = _Printmgr_PrinterExists("\\server.fqdn.com\PrinterName") ;~ Doesn't work
$bPrinterExists = _Printmgr_PrinterExists("\\\\server.fqdn.com\\PrinterName") ;~ Works
$bPrinterExists = _Printmgr_PrinterExists("%server.fqdn.com%PrinterName") ;~ Also works

So I ended up putting in a StringReplace($sPrinterName, "\", "\\") within the function, although actually thinking of using "%" aka StringReplace($sPrinterName, "\", "%")

Also noticed a number of the functions are missing the appending "%" and "%" suffix after the "Like" operator, not sure if that was intended or not, but thought I'd mention it, example below.

Thanks again for the UDF though very helpful, just used it along with @Melba23 Toast to migrate staff printers from one Server with 100+ printers to new Windows Server 2016 print server.

Local $oPrinters = $oWMIService.ExecQuery ("Select * from Win32_Printer Where DeviceID like '" & $sPrinterName & "'", "WQL", $wbemFlagReturnImmediately

 

Share this post


Link to post
Share on other sites

If you have appropriate rights to access the machine remotely and WMI is enabled on it, you could use retrieve the OS architecture from WMI:

Example using CMD line:

wmic.exe /node:%computername% os get osarchitecture

Example WMI COM Object:

#include <Array.au3>

Local $oWMIService = _WMIService()  ;Instantiate WMIService Object - Establish Connection
If $oWMIService = 0 Then Exit   ;If WMI Object failed to instantiate, Abort Script

Local $sWMIQueryClass = "Win32_OperatingSystem"  ;Declare WMI Class to Query
Local $aWMIQueryFields[]= ["OSArchitecture"]  ;Declare Fields to Retrieve From WMI Class

$aResults = _WMIQuery($oWMIService,$sWMIQueryClass,$aWMIQueryFields)  ;Run WMI Query against WMIService Object
$oWMIService = 0  ;Termninate WMIService Object

_ArrayDisplay($aResults)    ;Display Results Array
Exit

Func _WMIService($sHost = @ComputerName) ;Connect to WMI Service
    $oWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $sHost & "\root\cimv2")  ;Create WMI Service Object
    If Not IsObj($oWMIService) Then Return SetError(1,0,0)  ;If Obj Instantiation Failed, Error Out
    Return $oWMIService ;Return WMI Service Object
EndFunc

Func _WMIQuery($oWMIService,$sWMIQueryClass,$aWMIQueryFields) ;Perform WMI Query with Query String and Data Return Parameters
    If Not IsObj($oWMIService) Then Return SetError(1,0,0)  ;If oWMIService is not a valid Object, Error Out
    If Not IsArray($aWMIQueryFields) Then Return SetError(2,0,0)    ;If Query Fields is not a valid array, Error Out

    Local $aResults = $aWMIQueryFields  ;Create Results Array
    _ArrayColInsert($aResults, 1)   ;Add Dimension to Results Array to Hold Query Return Values

    Local $sWMIQuery = "SELECT " & _ArrayToString($aWMIQueryFields,",") & " FROM " & $sWMIQueryClass    ;Create WMI Query String
    $oItems = $oWMIService.ExecQuery ($sWMIQuery)  ;Execute query using WMI Service Object

    For $i = 0 to UBound($aWMIQueryFields) - 1  ;Loop through WMI Query Results
        For $oItem In $oItems
            $aResults[$i][1] = Execute("$oItem." & $aWMIQueryFields[$i])  ;Result
        Next
    Next

    Return $aResults  ;Return Result Array
EndFunc

 


Share this post


Link to post
Share on other sites

Help me !

It not working. I try using PrintMgr.au3 for add driver for Canon LBP 2900 in window 8 64bit

#Include "PrintMgr.au3"

Local $sDriverName = "Canon LBP2900"
$oTest = _PrintMgr_AddPrinterDriver($sDriverName, "Windows NT x64", @ScriptDir & "\LBP2900_R150_V330_W64_uk_EN_2\x64\Driver\", @ScriptDir & "\LBP2900_R150_V330_W64_uk_EN_2\x64\Driver\CNAB4STD.INF")
ConsoleWrite($oTest)

 

Share this post


Link to post
Share on other sites

What is the returned value ? (what is the output of ConsoleWrite) ?

Are you sure you have enough rights to add a printer driver ? (use #RequireAdmin at the top of your script to check it)

 

 

Edited by jguinch

Share this post


Link to post
Share on other sites
8 hours ago, jguinch said:

What is the returned value ? (what is the output of ConsoleWrite) ?

Are you sure you have enough rights to add a printer drier ? (use #RequireAdmin at the to of your script to check it)

 

 

Thanks bro. I using #RequireAdmin. It work !

Share this post


Link to post
Share on other sites
10 hours ago, jguinch said:

I have a problem. How to use SetDefaultPrinter for Canon LBP2900 on 10.0.0.14. It is a shared printer

 

Thanks bro. I using #RequireAdmin. It work !

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By shital
      #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_UseX64=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** RunAs(test", @ComputerName, "testinng",2,"wmic product where ""name= '%notepadexamples%'"" call uninstall", @SystemDir & "\wbem", @SW_MAXIMIZE)  it not working 
       
    • By Colduction
      Hi AutoIt Programmers!

      I've seen a code that gives Name of Group by writing it's group's SID, but this one response very slower than Windows Command-Line WMIC
       
      Func _GetLocalGroupName($sSID = 'S-1-5-18') $objWMIService = ObjGet ("winmgmts:\\" & @ComputerName & "\root\cimv2") $colItems = $objWMIService.ExecQuery('SELECT Name FROM Win32_Group where SID="' & $sSID & '"') For $GroupNames in $colItems MsgBox (0,"",$GroupNames.Name) ExitLoop Next EndFunc I don't want call and use any third-party programs even CMD, i just want use from Windows API, netapi32.dll or AutoIt Functions (Standalone).
      Do you have any idea to improve speed/performance of this code? I'll happy of your comments
       
       
       
      ====================== SOLOUTION by @Subz ======================
       
    • By jresine
      Hello, is it possible to know via a script or command, to have the percentage of disk usage of a process? thank you in advance.
      ps: see image

    • By Dwalfware
      HI
      Another head scratched
      Anyone solve how to get the IPV6 from WMI?
      I followed the usual SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionID='" & GUICtrlRead($cboAdapters) & "'
      get the index 
      port it to 
      Local $query = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE Index = " & _GetSelectedNIC(), "WQL", 0x30 )
      All i can see is IPv4 addresses
      My question is is there another place the IPv6 information is hiding? I configured my LAN with IPV6 and my wireless with IPv4 so I can see what shows.
      Thanks in Advance.
      PS. I did try google
       
    • By Dwalfware
      Hi Folks
      Can not get my head around this one.
      This function gets the DNS object s
      If you have two DNS entries fine. but if you have only one! Trouble
      $objItem.DNSServerSearchOrder[0] = Primary DNS
      $objItem.DNSServerSearchOrder[1] = Secondry DNS not always there. I need a way to return 0 if not there or the IP if its there.
      Or is there a way to tell how many objects there are in the "[?]"
      I'm terrible at WMI errors, thanks for help in advance.
      Func _GETcurrentNICinfo2() $oErrors = ObjEvent("AutoIt.Error", "Error_Handle") Local $DnsSecondry Local $objWMIService = ObjGet( "winmgmts:\\" & @ComputerName & "\root\CIMV2" ) Local $query = $objWMIService.ExecQuery("SELECT DNSServerSearchOrder FROM Win32_NetworkAdapterConfiguration WHERE Index = " & _GetSelectedNIC(), "WQL", 0x30 ) If @error Then Return 0 If NOT IsObj($query) Then Return 0 Else For $objItem In $query Return $objItem.DNSServerSearchOrder[1] next Endif EndFunc  
×
×
  • Create New...