実行時エラー：429　ActiveXコンポーネントはオブジェクトを作成できません。

VB.ver　：VB6SP5
動作環境：(1)windowsXPProSP1
　　　　　(2)windows95　I/E4.0　

以下のような、ＡドライブのＶＯＬ名を変更するだけの簡単なロジックなんですが、

動作環境(1)では起動するんですが、(製造は(1)の環境です)
　　　　(2)では起動しません。（タイトルのエラーが表示されませす）

また、(2)の環境でインストール時に以下のようなエラーは発生しています。
『'C:\WINDOWS\SYSTEM\scrrun.dll'の登録中にエラーが発生しました』

もちろん、VB6SP5バージョンのRUNTIMEはインストール済みです。
⇒http://www.komiya.co.jp/soft/ksrun.htm

こんな感じで、どこが悪いのかさっぱりわかりません。
解る方がいらっしゃれば、回答の方、よろしくおねがいいたします。

Private Sub Command1_Click()

Dim inFsoDrive As Scripting.Drive
Dim inDrive As String
Dim inFsoFileSystem As New Scripting.FileSystemObject

inDrive = "A"
Set inFsoDrive = inFsoFileSystem.GetDrive(inDrive)

inVolumeName = inFsoDrive.VolumeName

MsgBox inVolumeName

inFsoDrive.VolumeName = "VOL055"
End Sub