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

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

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 * FROMwin32_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

支持了:face (29):

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

是个方方，学习了，有启发
页: [1] 2 3
查看完整版本: 以前收集的 AU3调用WMI连接远程重启计算机