VBS/プロセス起動
の編集
https://sundays.ddns.net/?VBS/%E3%83%97%E3%83%AD%E3%82%BB%E3%82%B9%E8%B5%B7%E5%8B%95
[
トップ
] [
編集
|
差分
|
履歴
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
#navi(../) 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 -------------------------------------------------------------------------------- #navi(../)
タイムスタンプを変更しない
#navi(../) 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 -------------------------------------------------------------------------------- #navi(../)
テキスト整形のルールを表示する
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
