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

解決


ハローKSK  2005-02-25 09:59:44  No: 119906  IP: [192.*.*.*]

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

編集 削除
魔界の仮面弁士  2005-02-25 11:14:52  No: 119907  IP: [192.*.*.*]

# バージョンが書かれていないので、現行バージョン(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  IP: [192.*.*.*]

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

編集 削除