Re: Win32::Printer::Enum::Printer($server)
- From: Thomas Kratz <ThomasKratz@xxxxxxxxxxxxxxxx>
- Date: Wed, 13 Jul 2005 11:02:37 +0200
Sully wrote:
Thomas Kratzwrote:
I tend to use WMI these days. You might want to try this: . . . .
Thomas,
I am trying to adjust your code, which I think will solve my problem (Thanks, I was going crazy!) but I am a little lost as to how I might adjust it to email me if one of the queues error.
the $attrib returns the column heading rather than the data from the array.
The headers are printed by the first 'print'.
One line of values is printed for each printer of the computer you specify on the command line like
perl script.pl \\MYSERVER
Thomas
--
$/=$,,$_=<DATA>,s,(.*),$1,see;__END__
s,^(.*\043),,mg,@_=map{[split'']}split;{#>J~.>_an~>>e~......>r~
$_=$_[$%][$"];y,<~>^,-++-,?{$/=--$|?'"':#..u.t.^.o.P.r.>ha~.e..
'%',s,(.),\$$/$1=1,,$;=$_}:/\w/?{y,_, ,,#..>s^~ht<._..._..c....
print}:y,.,,||last,,,,,,$_=$;;eval,redo}#.....>.e.r^.>l^..>k^.-
.- References:
- Re: Win32::Printer::Enum::Printer($server)
- From: Sully
- Re: Win32::Printer::Enum::Printer($server)
- Prev by Date: Re: [XML::Simple-2.12] problems parsing non ASCII strings
- Next by Date: Re: Win32::Printer::Enum::Printer($server)
- Previous by thread: Re: Win32::Printer::Enum::Printer($server)
- Next by thread: Re: Win32::Printer::Enum::Printer($server)
- Index(es):
Relevant Pages
|
