回复 3# ila
已经测试成功,望对你有所帮助,请修改标题为【已解决】
$StrComputer="."
$obj=ObjGet("winmgmts:\\"&$StrComputer&"\root\CIMV2")
$colitems=$obj.ExecQuery("Select * from Win32_Printer")
For $objitem In $colitems
If $objitem.Caption=="SHARP AR-1808S" Then
$a=Int($objitem.Attributes / 1024)
If Mod($a, 2)=0 Then
MsgBox(0,0,"打印机当前状态为联机",8)
ElseIf Mod($a, 2)=1 Then
MsgBox(0,0,"打印机当前状态为脱机,点确定后将设置为联机",8)
;核心代码
$objitem.WorkOffline = False
$objitem.Put_
;~~~~~~~~~~~~~~~~~~~~~~
MsgBox(0,'','已经设置打印机为联机状态')
Else
MsgBox(0,0,"不晓得",8)
EndIf
EndIf
next
|