Microsoft Windows Scripting Self-Paced Learning Guide

淩亂°似流年 2021-12-13 00:51 135阅读 0赞

[http://www.mums.ac.ir/shares/hit/eduhit/book/windowsscripting.pdf][http_www.mums.ac.ir_shares_hit_eduhit_book_windowsscripting.pdf]  
[http://support.microsoft.com/kb/926352/en-us][http_support.microsoft.com_kb_926352_en-us]  
[https://www.microsoft.com/learning/en-us/book.aspx?id=6789][https_www.microsoft.com_learning_en-us_book.aspx_id_6789]  
FilterPrinterStatus.vbs

Option Explicit
    'On Error Resume Next
    Dim strComputer
    Dim wmiNS
    Dim wmiQuery
    Dim objWMIService
    Dim colItems
    Dim objItem
    Dim strStatus
    strComputer = "."
    wmiNS = "\root\cimv2"
    wmiQuery = "Select * from Win32_Printer" _
    & " Where PrinterStatus = 1" _
    & " or PrinterStatus = 2" _
    & " or PrinterStatus = 7"
    Set objWMIService = GetObject("winmgmts:\\" _
    & strComputer & wmiNS)
    Set colItems = objWMIService.ExecQuery(wmiQuery)
    If colItems.Count = 0 Then
    WScript.Echo "all printers are fine"
    Else
    For Each objItem In colItems
    WScript.Echo "Name: " & objItem.Name
    WScript.Echo "Location: " & objItem.Location
    subEvalStatus
    WScript.Echo "Printer Status: " & strStatus
    WScript.Echo "Server Name: " & objItem.ServerName
    WScript.Echo "Share Name: " & objItem.ShareName
    WScript.Echo
    Next
    End If
    Sub subEvalStatus
    Select Case objItem.PrinterStatus
    Case 1
    strStatus = "Other"
    Case 2
    strStatus = "Unknown"
    Case 3
    strStatus = "Idle"
    Case 4
    strStatus = "Printing"
    Case 5
    strStatus = "Warmup"
    Case 6
    strStatus = "Stopped Printing"
    Case 7
    strStatus = "Offline"
    End Select
    End Sub

转载于:https://www.cnblogs.com/geovindu/p/3908977.html

[http_www.mums.ac.ir_shares_hit_eduhit_book_windowsscripting.pdf]: http://www.mums.ac.ir/shares/hit/eduhit/book/windowsscripting.pdf
[http_support.microsoft.com_kb_926352_en-us]: http://support.microsoft.com/kb/926352/en-us
[https_www.microsoft.com_learning_en-us_book.aspx_id_6789]: https://www.microsoft.com/learning/en-us/book.aspx?id=6789