以前收集的 AU3调用WMI连接远程重启计算机

renren · 发表于 2008-5-7 09:00:50

AU3调用WMI连接远程重启计算机
用WMI远程其实可以做很多事情的，前提是你要知道远程计算机的用户名和密码。
空密码是不行的。下边远程重启PC的代码，你需要实现其他功能的，自己修改。

Dim    $computer    ="pc"
Dim    $Remoteuser ="admin"
Dim    $Remotepass = "sanhen"

$objlocator= ObjCreate ("wbemscripting.swbemlocator")
$objWMIService=$objlocator.connectserver($computer,"root/cimv2",$Remoteuser,$Remotepass)
$colItems = $objWMIService.ExecQuery("SELECT * FROM  win32_operatingsystem where primary= true")
;注意红色的这句：是实现你所需功能关键的一句

For $objItem in $colItems
                              $objItem.win32shutdown(6)
                     Next

木纳 · 发表于 2008-5-8 15:03:58

$objWMIService=$objlocator.connectserver($computer,"root/cimv2",$Remoteuser,$Remotepass)^这里提示出错了

sanhen · 发表于 2008-5-8 15:15:40

这是简单的WMI应用，是我以前写的。

出错原因请检查以下这几方面：

WMI服务是否启？
连接的远程计算机用户名和密码是否正确？空密码是连接不了的。
对方是否装防火墙和设置了策略屏蔽？

这个只是举例了WMI的远程管理关键代码。没有写有出错代码。
改天有时间，我更新下我以前的工具，发到源码版吧。会获取到系统详细的出错信息的。

木纳 · 发表于 2008-5-8 16:33:59

严重支持~！

期待居士出品哈

hynq2000 · 发表于 2008-5-14 12:08:16

好学习了支持一个

木纳 · 发表于 2008-5-15 18:34:19

$objWMIService=$objlocator.connectserver($computer,"root/cimv2",$Remoteuser,$Remotepass)

$objlocator.connectserver 这个，提示：variable used without being declared.

Bone · 发表于 2008-5-21 15:57:23

希望早点出来详细的版本

daxinnet · 发表于 2008-5-24 20:06:22

试验看看。。。先谢谢了

ljm669877 · 发表于 2009-6-22 11:21:50

wmic博大精深,期待,期待

passkalilo · 发表于 2009-6-22 12:30:25

好东西，顶一个

TheBelief · 发表于 2009-6-30 09:49:15

支持了

clshuai · 发表于 2009-7-23 16:45:08

迫切需要楼主更新源码，发出来共享，谢谢

jazzlang · 发表于 2010-1-22 19:50:21

没看到，先记下，以后学习。

dajun · 发表于 2010-6-9 08:35:46

好东西，顶一个

rikthhpgf2005 · 发表于 2010-6-11 09:01:18

是个方方，学习了，有启发

		自动登录	找回密码
密码			加入

[转贴] 以前收集的 AU3调用WMI连接远程重启计算机

浏览过的版块