tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
VB6.0のランタイムのサービスパック情報を取得(VB6.0) ( No.0 )  [親スレッドへ]
日時: 2017/02/22 09:53
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[システム関係][ファイル][開発環境]                                 *
* キーワード:ランタイム,サービスパック,バージョン,SP,msvbvm60.dll,               *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿日 : 2009/02/14      2017/02/22 修正
投稿者 : 花ちゃん
-----------------------------------------------------------------------------------
最新のサービスパックは、下記のからダウンロードして下さい。

Microsoft Visual Basic 6.0 Service Pack 6 累積的な更新プログラム
発行日 : 2012/08/16
ナレッジベース記事 : KB957924
http://www.microsoft.com/ja-jp/download/details.aspx?id=7030

-------------------------------------------------------------------------------

http://hanatyan.sakura.ne.jp/yybbs/read.cgi?mode=view2&f=146&no=0
上記で紹介していた、Visual Basic 6.0 ランタイム拡張ファイル (KB926857) をDLして
インストールしたのだが、後で見るとインストール済みかどうかの判断材料がないので
何か調べる方法がないのかなと思って調べていたら、msvbvm60.dll のバージョンでVB6.0の
サービスパックの状況がある程度判断できるようです。
これで、インストール先のランタイムのサービスパックの状況が判断できるかと思います。

   バージョン  サービスパック
   6.0.81.76   製品版
   6.0.82.68   SP1/SP2
   6.0.84.50   SP2
   6.0.84.95   SP3
   6.0.88.77   SP4
   6.0.89.64   SP5
   6.0.92.37   SP5
   6.0.93.30   SP5
   6.0.96.90   SP5
   6.0.97.82   SP6
   6.0.98.2    SP6(2009/02 現在の最新)  注意 OS によっても違いがあります。
   6.0.98.15      SP6(2009/07/14 最終更新日) 発行日 : 2012/08/16 のサービスパックをインストール後
   6.0.98.32      SP6(2011/11/2     KB2575928)

但し、Mscomctl.ocx のバージョンは、6.1.98.34 になっています。
従って、主なファイルのバージョンも調べておく必要があるかと思います。
  

因みに、プログラムから調べるには下記のようにでもすれば解ります。
使用コントロールと配置図等は、下図を参考にして下さい。

'使用する前に、[プロジェクト]→[参照設定]で Microsoft Scripting Runtime
'の参照にチェックを入れておいて下さい。

Option Explicit

Private Sub Command1_Click()
   Dim Fso      As New FileSystemObject
   Dim FileName As String
   Dim Ver      As String
   FileName = Fso.BuildPath(Fso.GetSpecialFolder(SystemFolder), Combo1.Text)
  
   If Fso.FileExists(FileName) = False Then
        MsgBox "指定のファイルが見つかりません。"
        Exit Sub
   End If
  
   Ver = Fso.GetFileVersion(FileName)
   Label1.Caption = Combo1.Text & "ファイルのバージョン:" & Ver & vbCrLf & _
   "ファイルサイズ:" & Fso.GetFile(FileName).Size & _
   "  最終更新日付:" & Fso.GetFile(FileName).DateLastModified
  
End Sub

Private Sub Form_Load()
    Dim s1 As String
    '                               バージョン    最終更新日付
    Combo1.AddItem "msvbvm60.dll"   '6.0.98.15      2009/07/14
    Combo1.AddItem "Comctl32.ocx"   '6.0.98.34      2012/05/02
    Combo1.AddItem "Mscomctl.ocx"   '6.1.98.34      2012/06/06
    Combo1.AddItem "vb6jp.dll"      '6.0.89.88      2000/10/02
    Combo1.AddItem "MSCOMCT2.OCX"   '6.1.98.16      2010/02/16
    Combo1.Text = "msvbvm60.dll"
    s1 = "Ver.6.0.98.32 : KB2575928 (IE 9 の BorderStyle 0 時の不具合対策?)" & vbCrLf
    s1 = s1 & "Ver.6.0.98.21 : KB983234 (KB970157 の IE6 不具合対策)" & vbCrLf
    s1 = s1 & "Ver.6.0.98.15 : KB970157 (モーダルフォームの IE8 対応)、Windows 8 Developer Preview" & vbCrLf
    s1 = s1 & "Ver.6.0.98.2  : KB941029、Windows Vista(SP1)" & vbCrLf
    s1 = s1 & "Ver.6.0.97.99 : KB934602 (Class_Terminate イベント時のクラッシュ対策)" & vbCrLf
    s1 = s1 & "Ver.6.0.97.98 : KB930828 (モーダルフォームの IE7 対応)" & vbCrLf
    s1 = s1 & "Ver.6.0.97.97 : Windows Vista" & vbCrLf
    s1 = s1 & "Ver.6.0.97.82 : Visual Studio 6.0(SP6), Windows Server 2003(SP1)" & vbCrLf
    s1 = s1 & "Ver.6.0.96.90 : Windows Server 2003, Windows XP(SP2), Windows 2000(SP4)" & vbCrLf
    s1 = s1 & "Ver.6.0.96.32 : KB307211 (Project1.exe.cfg をサポート)" & vbCrLf
    s1 = s1 & "Ver.6.0.93.30 : SharePoint" & vbCrLf
    s1 = s1 & "Ver.6.0.92.37 : Windows XP (SPなし, SP1)" & vbCrLf
    s1 = s1 & "Ver.6.0.91.15 : KB297108 (SendKeys 対応)、KB291103 (OLE コンテナ対応)" & vbCrLf
    s1 = s1 & "Ver.6.0.89.64 : Visual Studio 6.0(SP5), Commerce Server 2002(※)" & vbCrLf
    s1 = s1 & "Ver.6.0.88.77 : Visual Studio 6.0(SP4), Commerce Server 2002(※)" & vbCrLf
    s1 = s1 & "Ver.6.0.84.95 : Visual Studio 6.0(SP3), Windows 2000 Server, Office XP, SQL Server 2000(Rel.A)" & vbCrLf
    s1 = s1 & "Ver.6.0.84.50 : SQL Server 2000, SBS 2003" & vbCrLf
    s1 = s1 & "Ver.6.0.82.68 : Visual Studio 6.0(SP1, SP2), Office 2000" & vbCrLf
    s1 = s1 & "Ver.6.0.82.44 : NT4(SP4)" & vbCrLf
    s1 = s1 & "Ver.6.0.81.76 : Visual Studio 6.0(SPなし)" & vbCrLf & vbCrLf
    s1 = s1 & " Comctl32.ocx  6.0.98.34   617816  5/2/2012 12:17 (KB957924 で更新された時のファイル情報)" & vbCrLf
    Label2.Caption = s1
    
    ' 洩れている分は必要に応じ追加して下さい・
    ' 詳しくは下記で魔界の仮面弁士さんが掲載されておられますので参考にして下さい。
    ' http://www.hanatyan.sakura.ne.jp/yybbs/read.cgi?mode=view2&f=38&no=46
    
End Sub


PS:開発環境の[プログラムの追加と削除]に記載がある場合とない場合があります。

実行結果(画像をクリックすると元のサイズで見る事ができます。)
 



 [スレッド一覧へ] [親スレッドへ]