- Megjött a Razer DeathAdder egerek legfrissebb nemzedéke
- Ismét minimalista miditorony érkezett a Fractal Design műhelyéből
- Alakul a SpaceX Starlink európai ellenfele
- Digital Fingerprinting: Így buktat le a böngésződ a neten - Tech Percek #18
- Prezentálta PCI Express 6.0-s SSD-vezérlőjét a Silicon Motion
Új hozzászólás Aktív témák
-
amargo
addikt
Sziasztok volna egy segítség kérésem, mivel a VBS hez halvány lilasegédfogalmam sincs, ezért nem tudom, hogy mit kellene és hogy csinálni, hoyg ezt a függvényt meg tudjam hívni.
Paraméterként kell neki? Vagy, miként is megy itt? van valami main-e?
Itt találtam rá: [link]
De ezt milyen OP rendszeren tudom futtatni?
''This function is not supported on Windows 2000 & NT''?
Function GetPrinterStatus(strComputer, strPrinterDevID)
'Accepts a computer name and printer device ID as string parameters
'Returns the printer status as a string
Dim intStatus: intStatus = 0
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
On Error Resume Next
Err.Clear
Set objWMIService = GetObject(''winmgmts:\\'' & strComputer &
''\root\CIMV2'')
Set colItems = objWMIService.ExecQuery(''SELECT * FROM Win32_Printer
Where DeviceID = ''' _
& strPrinterDevID & ''''', ''WQL'', wbemFlagReturnImmediately + _
wbemFlagForwardOnly)
If Err.Number = 0 Then
For Each objItem In colItems
intStatus = objItem.PrinterStatus
Next
Else
GetPrinterStatus = ''Error Getting Printer Status''
End If
Select Case intStatus
Case 1
GetPrinterStatus = ''Other''
Case 2
GetPrinterStatus = ''Unknown''
Case 3
GetPrinterStatus = ''Idle''
Case 4
GetPrinterStatus = ''Printing''
Case 5
GetPrinterStatus = ''Warmup''
Case 6
GetPrinterStatus = ''Stopped Printing''
Case 7
GetPrinterStatus = ''Offline''
Case 0
GetPrinterStatus = ''Error Getting Printer Status''
End Select
End Function
MsgBox GetExtendedPrinterStatus(''.'',''YourPrinter'')
Function GetExtendedPrinterStatus(strComputer, strPrinterDevID)
'Accepts a computer name and printer device ID as string parameters
'Returns the extended printer status as a string
'This function is not supported on Windows 2000 & NT
Dim intStatus: intStatus = 0
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
On Error Resume Next
Err.Clear
Set objWMIService = GetObject(''winmgmts:\\'' & strComputer &
''\root\CIMV2'')
Set colItems = objWMIService.ExecQuery(''SELECT * FROM Win32_Printer
Where DeviceID = ''' _
& strPrinterDevID & ''''', ''WQL'', wbemFlagReturnImmediately + _
wbemFlagForwardOnly)
If Err.Number = 0 Then
For Each objItem In colItems
intStatus = objItem.ExtendedPrinterStatus
Next
Else
GetExtendedPrinterStatus = ''Error Getting Printer Status''
End If
Select Case intStatus
Case 1
GetExtendedPrinterStatus = ''Other''
Case 2
GetExtendedPrinterStatus = ''Unknown''
Case 3
GetExtendedPrinterStatus = ''Idle''
Case 4
GetExtendedPrinterStatus = ''Printing''
Case 5
GetExtendedPrinterStatus = ''Warmup''
Case 6
GetExtendedPrinterStatus = ''Stopped Printing''
Case 7
GetExtendedPrinterStatus = ''Offline''
Case 8
GetExtendedPrinterStatus = ''Paused''
Case 9
GetExtendedPrinterStatus = ''Error''
Case 10
GetExtendedPrinterStatus = ''Busy''
Case 11
GetExtendedPrinterStatus = ''Not Available''
Case 12
GetExtendedPrinterStatus = ''Waiting''
Case 13
GetExtendedPrinterStatus = ''Processing''
Case 14
GetExtendedPrinterStatus = ''Initialization''
Case 15
GetExtendedPrinterStatus = ''Power Save''
Case 16
GetExtendedPrinterStatus = ''Pending Deletion''
Case 17
GetExtendedPrinterStatus = ''I/O Active''
Case 18
GetExtendedPrinterStatus = ''Manual Feed''
Case 0
GetExtendedPrinterStatus = ''Error Getting Printer Status''
End Select
End Function
A cél az volna, hogy a nyomtató státuszát szeretném lekérdezni, nem nem elég, hogy a nyomtatónak ellett küldve az adat, az kell, hogy a nyomtatóból mikor jött ki az utolsó lap és már nem nyomtatt.
A többi error az nem érdekelne.
Köszönöm a segítséget!
Új hozzászólás Aktív témák
- OHH! Dell Precision 7560 Tervező Vágó Laptop -70% 15,6" i7-11850H 32/1TB NVIDIA A3000 6GB FHD
- Asztali PC , i7 6700K , 1080 Ti 11GB , 32GB DDR4 , 500GB NVME , 500GB HDD
- Asztali PC , R5 8400F , RTX 3070 , 32GB DDR5 , 500GB NVME , 2TB HDD
- Legion Go 1TB
- Lenovo LOQ 15IRX9 - i5 13450HX, 16GB, RTX 4060 8G, 1TB M.2 (Gari: 2027.03.11.)
- Xiaomi Redmi A3 128GB, Kártyafüggetlen, 1 Év Garanciával
- Lenovo ThinkPad 40AF docking station (DisplayLink)
- BESZÁMÍTÁS! Intel Core i7 4790 4 mag 8 szál processzor garanciával hibátlan működéssel
- Apple iPhone SE 2020 64GB, Kártyafüggetlen, 1 Év Garanciával
- Új! Számla + 1-3ÉV Gari! Áfás! Gamer PC - Számítógép! I5 14400F / RTX 5070 / 32GB DDR5 / 1TB SSD M.2
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest