D
Darren
I wrote a script to cycle though the print jobs in sitting
in the print queue, the scripts repeats until the count
reaches zero.
This script worked for over a year. Now I get the
following error.
H:\pdf\printmon.vbs(12, 6) (null): 0x80041001
Here is the script that I run.
strComputer = "."
Set objWMIService = GetObject("winmgmts:"
& "{impersonationLevel=impersonate}!\
\" & strComputer & "\root\cimv2")
do
WaitPrinter = 0
Set colPrintJobs = objWMIService.ExecQuery("SELECT *
FROM Win32_PrintJob")
For Each objPrintJob in colPrintJobs
strPrinter = Split(objPrintJob.Name,",",-
1,1)
If strPrinter(0) = "PDF995" Then
WaitPrinter = WaitPrinter + 1
Wscript.Echo strPrinter(0)& ": " &
WaitPrinter
End If
Next
loop until WaitPrinter = 0
Wscript.Echo "WaitPrinter: " & WaitPrinter
The article sorta describes my problem, but how do I get
the hot fix.
My windows 2000 came on the machine from compaq, when I
call then they want me to pay. All I want is the fix not
to have to pay for something that's not my fault.
Any help would be appreciated.
in the print queue, the scripts repeats until the count
reaches zero.
This script worked for over a year. Now I get the
following error.
H:\pdf\printmon.vbs(12, 6) (null): 0x80041001
Here is the script that I run.
strComputer = "."
Set objWMIService = GetObject("winmgmts:"
& "{impersonationLevel=impersonate}!\
\" & strComputer & "\root\cimv2")
do
WaitPrinter = 0
Set colPrintJobs = objWMIService.ExecQuery("SELECT *
FROM Win32_PrintJob")
For Each objPrintJob in colPrintJobs
strPrinter = Split(objPrintJob.Name,",",-
1,1)
If strPrinter(0) = "PDF995" Then
WaitPrinter = WaitPrinter + 1
Wscript.Echo strPrinter(0)& ": " &
WaitPrinter
End If
Next
loop until WaitPrinter = 0
Wscript.Echo "WaitPrinter: " & WaitPrinter
The article sorta describes my problem, but how do I get
the hot fix.
My windows 2000 came on the machine from compaq, when I
call then they want me to pay. All I want is the fix not
to have to pay for something that's not my fault.
Any help would be appreciated.