通过wmi使用计划任务启动批量远程win7系统的某个应用程序

cj-reggie

功能需求是使用一台计算机远程启动其他机器win7系统的一个应用程序，有管理员权限，以及ip地址及机器名，求大神给个思路
以上为求思路贴
以下为求助
1.xp下已经搞定，使用计划任务即可，但是win7系统下则不行
2.wmi连接不成功脚本会停止运行，比如相同配置的机器，机器名：F0~F9，F5连接失败（不知道为什么，用户名密码都一样的机器）则F6~F9就不执行了

Func RemoteExecute($top)
    $computer=$top&$i
        dim $objsch,$objinfo,$objtime,$act
        
        for $i=0 to 9
        
        $act=ping($computer)
        if $act then
$objlocator= ObjCreate ("wbemscripting.swbemlocator")
 If @error Then
      ;  MsgBox(0, "Error", "Error: failed to create $$objlocator")
        ContinueLoop
    EndIf
$objWMI=$objlocator.connectserver($computer,"root/cimv2",$Remoteuser,$Remotepass)
 If @error Then
;~         MsgBox(0, "Error", "学生机未开机或未连接网络")
                ;$output[$i]=$computer
        continueloop
    EndIf
$objWMI.Security_.ImpersonationLevel = 3

$objsch = $objWMI.Get("Win32_ScheduledJob")

$objtime=@hour&string(number(@min)+2)

        $objInfo = $objsch.Methods_("Create").InParameters.SpawnInstance_
        $objInfo.Properties_.Item("StartTime") = "********"&$objtime&"00.000000"&"+480"
        $objinfo.command = $strprogtorun
        $objinfo.interactwithdesktop=true
        $objinfo.runrepeatedly=true
        
 $objWMI.ExecMethod("Win32_ScheduledJob", "Create", $objinfo)  
 else
         continueloop
         endif
 next
 EndFunc  

nivisde

你这个小神都没折？那你怎么往下写？
不外乎 C-S模式
这种就好处理，不麻烦
或者以管理员登录远程计算机执行命令。
这种就要看远程计算机的设置，或许没开远程服务，或者更换了密码用户名，失效
或者7788的设置,软件导致不能连接等等

cj-reggie

回复 2# nivisde


    在考虑用wmi，因为菜啊所以先来问问经验啊，远程计算机我都可以设置，机房都是我管

502762378

回复 3# cj-reggie


    论坛有个WMI的例子，但是没有开源，你批量在一个电脑上跑一个应用程序？能说说你的具体用途吗？可能我能帮得到你

x163169x

一同学习了。
我用WEB实现过，就是有点麻烦。

cj-reggie

回复 4# 502762378


    是在一台机器上批量的远程运行多台机器中的同一个应用程序

cj-reggie

自己顶起求思路啊，process.create能做到么？

cj-reggie

自己顶起求思路啊，process.create能做到么？

cj-reggie

自己顶起求思路啊，process.create能做到么？

xms77

回复 9# cj-reggie
简单点的话还是客户端，服务端，这样比较稳妥！

cj-reggie

回复 10# xms77


    这样的如果客户端被干掉就失效了

xms77

回复 11# cj-reggie
当然客户端保护也要做的，比如进程影藏，提升进程或者双进程保护。我用的就是双进程保护，两个进程都有检测对方进程是否存在，如果不存在就运行对方进程，有点类似互锁一样。一般很难同时干掉两个进程的吧！

cj-reggie

回复 12# xms77


    现有的就是双进程保护，进程名也是系统进程的，taskkill级别杀不掉的进程

cj-reggie

顶上去啊，求大神指点一下思路

cj-reggie

从官方论坛上搜到段代码，远程建立进程成功，但是不出gui界面，比如启动记事本程序，进程有不出界面
; From remote pc this works \\mikespc\sharename\DebugAgent.exe
; From remote pc this does not work \\192.168.1.102\sharename\DebugAgent.exe                        ; Fine... doesn't work with IP address spec'ing pc

;RemoteExecute("\\mikespc\c$\AutoITStuff\\agents\DebugAgent.exe")                                   ; This doesn't work - using the full path
;RemoteExecute("\\share\DebugAgent.exe")                                                            ; This doesn't work - using a share
;RemoteExecute("p:\DebugAgent.exe")                                                                 ; This doesn't work - using a drive letter mapped to a share
;RemoteExecute("cmd.exe /c start p:\DebugAgent.exe")                                                ; This launches a process named cmd.exe but there is no window.
;RemoteExecute("cmd.exe /c p:\DebugAgent.exe")                                                      ; This launches a process named cmd.exe but there is no window.

;RemoteExecute("c:\windows\system32\calc.exe")                                                      ; This works - executes on local pc
;RemoteExecute("cmd.exe /c dir c:\windows\system32\calc.exe")                                       ; This does nothing
;RemoteExecute("cmd.exe /c start c:\windows\system32\calc.exe")                                     ; This launches a process named calc.exe but there is no window

; DebugAgent is simply a MsgBox. Thinking that maybe that's 'too interactive' I tried just Sleep(10000) to give long enought to see if anything happens, but no.

;*****************************

; This func runs the passed prog on the remote or local pc spec'ed by $strComputer. Will NOT show gui if remote, but will on local pc.

Func RemoteExecute($strProgToRun)

    Local $objWMIService, $objProcess, $objProgram

    $objSWbemLocator = ObjCreate("WbemScripting.SWbemLocator")
    If Not IsObj($objSWbemLocator) Then
        MsgBox(0, "Error", "Error: failed to create $objSWbemLocator")
        Exit
    EndIf

    $objWMI = $objSWbemLocator.ConnectServer($strComputer, "root\cimv2", $strUsername, $strPassword)    ; This works for remote pc if pass actual credentials and works for local if pass null credentials
    If Not IsObj($objWMI) Then
        MsgBox(0, "Error", "Error: failed to create $objWMI")
        Exit
    EndIf

    $objWMI.Security_.ImpersonationLevel = 3

    $objProcess = $objWMI.Get("Win32_Process")

    $objProgram = $objProcess.Methods_("Create").InParameters.SpawnInstance_
    $objProgram.CommandLine = $strProgToRun

    $objWMI.ExecMethod("Win32_Process", "Create", $objProgram)                                          ; Execute the program now at the command line.

EndFunc