サンプルコードありえない。

前回書いたコードはサンプルをそのままぱちってきたんですが、そもそもそれが間違いでした。

Imports Microsoft.UpdateServices.Administration

Dim server As IUpdateServer
server = AdminProxy.GetUpdateServer

こんなコードであるべきですね・・・。
ちなみにこれは SDK のドキュメントから引用。ぱちってばっかですね。(苦笑