VBS/プロセス起動
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#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:\\” & strCom...
objWMIService.Create “C:\WINDOWS\system32\rundll32.e...
Set objWMIService = GetObject("winmgmts:\\” & strCom...
Set colMonitoredProcesses = objWMIService.ExecNotifi...
("Select * From __InstanceDeletionEvent Within 1 Whe...
Do Until i = 1
Set objLatestProcess = colMonitoredProcesses.Nex...
If objLatestProcess.TargetInstance.ProcessID = i...
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:\\” & strCom...
objWMIService.Create “C:\WINDOWS\system32\rundll32.e...
Set objWMIService = GetObject("winmgmts:\\” & strCom...
Set colMonitoredProcesses = objWMIService.ExecNotifi...
("Select * From __InstanceDeletionEvent Within 1 Whe...
Do Until i = 1
Set objLatestProcess = colMonitoredProcesses.Nex...
If objLatestProcess.TargetInstance.ProcessID = i...
i = 1
End If
Loop
Wscript.echo strComputer & “終了しました。”
Loop
---------------------------------------------------------...
#navi(../)
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
