>>461
んじゃ、やっぱWMIが動いてないのかなあ
5行目を以下のように変えたら動くかな?

5: If GetObject("winmgmts ( . . . 略 . . . ) Count > 0 Then
  ↓
5: If False Then