Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: change printer configuration
; Name: PrintCfg.wbt ; Discription: Windows NT Workstation Printer config app. ; Comments: Allows restricted NT clients to change printer config. ; Extenders: WWPRT34I.DLL, WWWNT34I.DLL Ver = "1.0.0" Gosub Init While ButtonPushed <> 0 ; Keep looping till they Exit ;find out the default printer Default_Printer = pGetDefPrtInf (1) ;find out the list of currently installed printers Current_Printers = pGetPrtList( 0) ButtonPushed = Dialog("PrintCfg") Select ButtonPushed Case 2 Gosub AddPrinters break Case 3 ;Only try to remove the printer if they have selected one. If ItemCount(Current_Printers,@tab) == 1 then Gosub RemovePrinter Else Message("Error!","Please select a printer to be removed.") EndIf break Case 4 ;check to see if they have selected one printer to be made default If ItemCount(Current_Printers,@tab) == 1 then Gosub ChangeDefault Else Message("Error!","Please select a printer to make the default.") EndIf break Case 5 Gosub Help break EndSelect EndWhile :end exit ;************************************************ ;*************** INIT SECTION **************** ;************************************************ ;This section sets up the dialog box and any settings that may be needed. ;Expects: ;Outputs: :Init ;Add required extenders AddExtender("WWPRT34I.DLL") AddExtender("WWWNT34I.DLL") ;Setup dialog box. PrintCfgFormat=`WWWDLGED,5.0` PrintCfgCaption=`Printer Configuration (ver 1.0)` PrintCfgX=196 PrintCfgY=74 PrintCfgWidth=256 PrintCfgHeight=112 PrintCfgNumControls=8 PrintCfg01=`68,22,184,86,ITEMBOX,Current_Printers,DEFAULT` PrintCfg02=`70,6,180,DEFAULT,VARYTEXT,Default_Printer,""` PrintCfg03=`4,26,58,DEFAULT,PUSHBUTTON,DEFAULT,"&Add Printer",2` PrintCfg04=`4,40,58,DEFAULT,PUSHBUTTON,DEFAULT,"&Remove Printer",3` PrintCfg05=`4,54,58,DEFAULT,PUSHBUTTON,DEFAULT,"&Change Default",4` PrintCfg06=`4,80,58,DEFAULT,PUSHBUTTON,DEFAULT,"&Help",5` PrintCfg07=`4,94,58,DEFAULT,PUSHBUTTON,DEFAULT,"E&xit",0` PrintCfg08=`30,6,38,DEFAULT,STATICTEXT,DEFAULT,"Default Printer:"` ButtonPushed = -1 ;Allows only one selection on List box on the dialog box. IntControl(33, 0, 0, 0, 0) ;Find out computer name for finding list of installed printers MachineKey = RegOpenkey(@REGMACHINE, "SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName") ComputerName = StrCat("\\",RegQueryValue(MachineKey, "[ComputerName]")) RegCloseKey(MachineKey) Return ;************************************************ ;*************** ADD PRINTERS **************** ;************************************************ ;This section lists all printers on a remote server and allows the user to select one and installs it. ;Expects: ;Outputs: :AddPrinters ;Find out a list of printers on the remote server Printers = wntResources("\\Jack_Daniels", 2, 2, 0) AddPrinters = "" While AddPrinters == "" ; while they have not chosen a printer (Can be more than one) AddPrinters = AskItemList("Printers", Printers, @tab, @sorted, @multiple) EndWhile ;For each printer they have selected add the conection. For Item = 1 to ItemCount(AddPrinters,@tab) Printer = ItemExtract(Item,AddPrinters,@tab) pAddPrtConn("Jack_Daniels", ItemExtract(4,Printer,"\")) Next Return ;************************************************ ;************* REMOVE PRINTERS *************** ;************************************************ ;This section removes a selected printer ;Expects: Current_Printers - Printer to remove ;Outputs: :RemovePrinter ;pDelPrtConn only wants the printer name so we have to trim off the rest of the guff RPrinter = StrTrim( ItemExtract(4,ItemExtract(1,Current_Printers,"-"),"\") ) pDelPrtConn( "Jack_Daniels", RPrinter) Return :ChangeDefault ;************************************************ ;************** CHANGE DEFAULT **************** ;************************************************ ;This section changes the default printer to the current selected one. ;Expects: Current_Printers - Printer to make default ;Outputs: pSetDefPrt (Current_Printers) Return :Help Message("Printer Configuration Help","This is currently a quick and dirty application for%@crlf%configurating the printers on NT workstations.") Return
Article ID: W14190
Filename: Allows restricted NT clients to change printer config.txt
File Created: 2001:03:01:15:37:46
Last Updated: 2001:03:01:15:37:46