苺きんたま監視所パート42

929 名前： 名無しさん＠お腹いっぱい。 [sage] 投稿日： 04/09/25 17:11:53 ID:hUzLV+Mp
苺キンタマに感染しているかを確認するツール。
以下をテキストに保存して、ファイル名を「check.vbs」変更し、クリック。


On Error Resume Next
Dim Troj, i, ret, flag
flag = False

Troj = Array("Whistler", "WinSvc", "Krn132")

Set WshSHell = WScript.CreateObject("WScript.Shell")

key = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"

For Each i in Troj
ret = WshShell.RegRead(key & i)
If ret <> "" Then
WScript.Echo i & " に感染中"
flag = True
End If
ret = ""
Next

If Flag = Flase Then
WScript.Echo "たぶん感染してません"
End If

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

これは使えるのか？