您需要 登录 才可以下载或查看,没有账号?加入
举报
_renameprinter("123","456") Func _renameprinter($old,$new) $strComputer = "localhost" $objWMIService = ObjGet("winmgmts:\" & $strComputer & "\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Printer", "WQL") For $objItem In $colItems If $objItem.Name = $old Then $objItem.renameprinter($new) EndIf Next EndFunc
查看全部评分
502762378 发表于 2012-4-26 10:48
回复 touch_xu 试一试用: Chr(80) & Chr(114) & Chr(105) & Chr(110) & Chr(116) & Chr(101) & Chr( ... user3000 发表于 2012-4-26 20:04
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-5-29 00:23 , Processed in 0.195492 second(s), 25 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2025 Discuz! Team.