VBS/プロセス起動 の履歴(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• VBS/プロセス起動 へ行く。
  • 1 (2010-09-23 (木) 14:44:21)

FrontPage

3_ProcessStart_r2.vbs

‘#######################################################
‘プロセスを起動します。あくまでもプロセスです。
‘#######################################################
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(”.\Addresses.txt")

Do Until objFile.AtEndOfStream

    strComputer = objFile.ReadLine

    Set objWMIService = GetObject("winmgmts:\\” & strComputer & “\root\cimv2:Win32_Process")
    objWMIService.Create “C:\WINDOWS\system32\rundll32.exe C:\WINDOWS\system32\muweb.dll,LaunchMUSite”, null, null, intProcessID
    Set objWMIService = GetObject("winmgmts:\\” & strComputer & “\root\cimv2″) 
    Set colMonitoredProcesses = objWMIService.ExecNotificationQuery _ 
    ("Select * From __InstanceDeletionEvent Within 1 Where TargetInstance ISA ‘Win32_Process’")

    Do Until i = 1
        Set objLatestProcess = colMonitoredProcesses.NextEvent 
        If objLatestProcess.TargetInstance.ProcessID = intProcessID Then 
        i = 1
        End If

    Loop 
    
    Wscript.echo strComputer & “終了しました。”

Loop
--------------------------------------------------------------------------------