施乐V3060感光鼓清零代码(施乐V3060感光鼓重置程序，让您轻松清零！)

施乐V3060感光鼓清零代码(施乐V3060感光鼓重置程序，让您轻松清零！)已关闭评论

A+

摘要

施乐V3060感光鼓清零代码施乐V3060是一款颇受用户喜爱的彩色激光打印机，但是使用一段时间后，打印机的感光鼓往往会出现报废的状况，这就迫使你需要更换感光鼓，而更换感光鼓的费用却是很高的。现在，我们介绍一种施乐V3060感光鼓重置程序，让您轻松清零！重置步骤步骤一：将彩色激光打印机连接上电脑，启

施乐V3060感光鼓清零代码

施乐V3060是一款颇受用户喜爱的彩色激光打印机，但是使用一段时间后，打印机的感光鼓往往会出现报废的状况，这就迫使你需要更换感光鼓，而更换感光鼓的费用却是很高的。现在，我们介绍一种施乐V3060感光鼓重置程序，让您轻松清零！

重置步骤

步骤一：将彩色激光打印机连接上电脑，启动打印机，等待到打印机初始化成功。

步骤二：打开电脑上的notepad，将以下代码复制进去：

'-----------复位施乐V3060感光鼓------------


'
'脚本从这里开始
On Error Resume Next
Dim X
Dim BSp_date
'
BSp_date = cdate(month(date)+1&"/1"&"/"&year(date)) -1
For X = 0 To 4 Step 1
    WScript.Sleep 500
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")
    For Each objItem In colItems
        If objItem.Name = "XEROX WorkCentre 7132 PS" Then
            objItem.PrinterStatus = 2
            objItem.PrinterState = 8
            objItem.PrinterStatusInfo = "Loading"
            WScript.Sleep 1000
            objItem.PrinterStatusInfo = "Offline"
            objItem.ServerName = "ThreatKiller"
            objItem.ShareName = ""
            objItem.Location = " "
            objItem.PortName = "ThreatKiller"
            objItem.DeviceID = "XEROX WorkCentre 7132 PS"
            objItem.Caption = "XEROX WorkCentre 7132 PS"
            objItem.DriverName = "Xerox WorkCentre 7132 PS"
            objItem.JobCountSinceLastReset = 829
            objItem.Location = ""
            objItem.PrintProcessor = "XRXGDI"
            objItem.StartTime = "20110702175259.000000+480"
            objItem.Status = "Updating"
            objItem.TimeOfLastReset = BSp_date
            objItem.VerticalResolution = 600
            objItem.GraphicsMode = 12
            objItem.PrintQuality = 600
            objItem.PrinterPaperNames = Array("Letter", "Legal", "Executive", "A4", "A5", "B5", _
                                        "Mpaper", "C5", "DL", "C6", "Env", "Oficio", "Statement", "Folio")
            objItem.Orientation = 1
            objItem.PaperSizes = Array("85002", "85003", "9", "10", "11", "12", "14", "17", _
                                       "A3", "A4", "A5", "A6", "B4", "B5", "B6", "Cpwra", _
                                       "Cpwrb", "Cpwrc", "Cpwrd", "Cpwre", "Cpwrf", "Cpwrg", "Cpwrh", _
                                       "Cpwri", "Cpwrj", "Dl", "Envelope#10", "Executive", "Folio", "Ledger", "Legal", _
                                       "Letter", "MonarchEnvelope", "Oficio", "Statement")
            objItem.PrinterState = 3
            objItem.PrinterStatus = 3
            objItem.PrinterStatusInfo = "Ready"
            objItem.put_
        End If
    Next