JP1/Script(Windows(R)用)
GetProcessCount ( ProcessName 〔, ProcessIdBuff〕 )
' プロセス"ABC"のプロセスID一覧を作成する。 Dim pCnt ,pIdBuff ,seppId pCnt = GetProcessCount ( "ABC" ,pIdBuff ) For i = 1 To pCnt seppId = SeparateStr ( pIdBuff ,";" ,i ) Message ( Target_File ,_SCF_+"PIDLIST.TXT" ,seppId ) Next
Dim PLName, Pname, PnameWork, Rc, IdBuff PLName ="ABCDEFGHIJKL" Pname = "ABCDEFGHIJKL.exe" ' まず,通常の指定方法(プロセス名を指定)で実行する。 Rc = GetProcessCount(PLName, IdBuff) ' 起動数が0の場合,プロセスがローカルシステムアカウントから ' 起動されている場合を考慮した処理を行う。 If Rc = 0 Then If Len(Pname)> 15 Then PnameWork = Left(Pname, 15) End If Rc = GetProcessCount(PnameWork, IdBuff) End If
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.