VBScriptでプロセッサタイプ、OS名、解像度を求める

MS-WordがインストールされているPCなら、以下のVBScriptで『プロセッサタイプ、OS名、解像度』を表示します。

With CreateObject("Word.Application").System
    MsgBox .ProcessorType, vbInformation, "プロセッサタイプ"
    MsgBox .Operatingsystem & " " & .Version, vbInformation, "OS名"
    MsgBox .HorizontalResolution & "ｘ" & .VerticalResolution, vbInformation, "解像度"
End With