VBからOSのサービスパックレベルを確認するには？

解決

ハローKSK 2005-02-25 09:59:44 No: 119906

こんちには。初めて投稿します。質問内容はタイトルのとおりです。
どなたかご存知の方いらっしゃいましたらどうか教えて下さい。
宜しくお願い致します。

魔界の仮面弁士 2005-02-25 11:14:52 No: 119907

# バージョンが書かれていないので、現行バージョン(VB.NET 2003)と仮定。

Private Function GetServicePackVersion() As String
  Dim OperatingSystems As System.Management.ManagementObjectCollection
  OperatingSystems = New System.Management.ManagementClass("Win32_OperatingSystem").GetInstances()
  For Each OS As System.Management.ManagementObject In OperatingSystems
    Return CStr(OS("CSDVersion"))
  Next
End Function

ハローKSK 2005-02-25 16:26:24 No: 119908

なるほど！有難うございました。