VBScriptから、WindowsUpdateの自動更新が有効になってるかを調べたかったので、ググってスクリプト書きました。
日本語の情報があんまりなかったんで、短いスクリプトだけど載せといてもいいかなーと。

Dim AutomaticUpdates, AutomaticUpdateSettings, msg
Set AutomaticUpdates = CreateObject("Microsoft.Update.AutoUpdate")
Set AutomaticUpdateSettings = AutomaticUpdates.Settings
Select Case AutomaticUpdateSettings.NotificationLevel
Case 0: msg = "未設定"
Case 1: msg = "無効"
Case 2: msg = "ダウンロード前に通知する"
Case 3: msg = "インストール前に通知する"
Case 4: msg = "インストールをスケジュール"
End Select
MsgBox "Windows Update の状態: " & msg

こんだけです。
詳しいことはMSDNのWUA APIリファレンスを参照。
http://msdn.microsoft.com/en-us/library/aa387292(v=VS.85).aspx

COMインタフェースとProgIDの対応が載ってなかったんですがレジストリ見たら大体わかります。