おつかるー
今日、帰りに常磐線内で人身事故があったようです・・・
快速電車が運休ですので、必然的に各駅停車が混んでしまい・・・
さらに北千住から座ることが出来たと思ったら寝てしまい・・・
起きたら2駅寝過ごしてた（笑）
自分の体力のなさに唖然です・・・
さてさて、シマンテック過去製品のチェックが出来ました～
こんな感じで作ってみました。
VBスクリプトです。本職ではないのですが。
バッチファイルでVBスクリプトを呼び出して使います。
最後の変数flgが戻り値で、%ERRORLEVEL%に代入されます。
他にも代用できそうなので、ソースを載せておきますね～
改造は簡単だと思いますので。
'===================================================================
' シマンテック過去製品のチェック
'
' ウイルス対策製品がいろいろインストールされているようなので、
' 検出してからインストール可否を判断したいと考えております。
' 2008.12.8 Kinoshita
'===================================================================
On Error Resume Next
'**********************
'インストール情報レジストリのサブキーを抽出し、配列変数へ格納
'**********************
dim sbks(3000),pgmmsg(3000)
cnt = 1
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
sbks(cnt) = subkey
cnt = cnt + 1
Next
'**********************
'**********************
'抽出したサブキーから、レジストリ値「DisplayName」を配列変数へ格納
'**********************
For I = 1 to cnt
Set objWshShell = WScript.CreateObject("WScript.Shell")
sndmsg = "HKEY_LOCAL_MACHINE\" & strKeyPath & "\" & sbks(I) &
"\DisplayName"
pgmmsg(I) = objWshShell.RegRead(sndmsg)
Set objWshShell = nothing
Next
'**********************
'**********************
'「DisplayName」から、「Norton」または「Symantec」の文字列を検索
'**********************
flg = 0
msg = ""
pgmbox = ""
For I = 1 to cnt
If InStr(pgmmsg(I),"Norton") or InStr(pgmmsg(I),"Symantec") or
InStr(pgmmsg(I),"LiveUpdate") then
pgmbox = pgmbox & pgmmsg(I) & chr(13)
End If
Next
if pgmbox <> "" then flg = 1
msg = "次のウィルス対策製品を検出しました。" & chr(13) & chr(13) &
pgmbox & chr(13) & "プログラムを削除してから再度実行してください。" &
chr(13) & "削除方法が不明の場合、きのしたに連絡してください。"
if flg = 1 then msgbox msg
'**********************
wscript.quit(flg)
まあ、仕事中に障害対応などがない時はこんなの作ったりしてます。
これでインストール関係は完成です。
あとはウイルス対策のポリシー関係かなー
ちなみに、明日は午前出勤、午後休暇、ネットカフェに泊まり深夜出勤予定（笑）
コーラいっぱい飲んでさしあげますよコノヤロウ（嘘）
おやすむー