[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2004/10/04(Mon) 18:56
投稿者名：あまぐ
Ｅメール：
ＵＲＬ　：
タイトル：Windowsを終了・再起動する（WindowsXP 対応版）について
はじめまして。お世話になっています。
ここのサイトにある
「Windowsを終了・再起動する（WindowsXP 対応版）」
を使用したのですが、プログラムを実行すると、
「実行時エラー'429'　ActiveX コンポーネントはオブジェクトを作成できません。」
と出てしまいます。

どうしたらよいのでしょうか？

OS：WindowsXP Embedded
環境：VB6.0

投稿時間：2004/10/04(Mon) 21:16
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: Windowsを終了・再起動する（WindowsXP 対応版）について
> 「Windowsを終了・再起動する（WindowsXP 対応版）」
> を使用したのですが、プログラムを実行すると、
> 「実行時エラー'429'　ActiveX コンポーネントはオブジェクトを作成できません。」
> と出てしまいます。

If CreateObject("SYSINFO.Sysinfo").OSPlatform = 2 Then　この辺でエラーがでていませんか？
エラーがでるのは開発環境での事でしょうか？　実行環境ででるのでしょうか？
SYSINFO.OCX は入っていますか？

投稿時間：2004/10/05(Tue) 18:06
投稿者名：あまぐ
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: Windowsを終了・再起動する（WindowsXP 対応版）について
> If CreateObject("SYSINFO.Sysinfo").OSPlatform = 2 Then　この辺でエラーがでていませんか？
> エラーがでるのは開発環境での事でしょうか？　実行環境ででるのでしょうか？
> SYSINFO.OCX は入っていますか？

早速の返信ありがとうございます。
すみません。説明不足でした・・・

エラーは実行環境で起こります。
開発環境でのOSはWindowsXP Proです。

実行環境にはSYSINFO.OCX は入っていませんでした。
これを入れるにはどうしたらいいのですか？

すみません。頼りすぎですね＾＾；
これから自分でも方法を探して見ます。

投稿時間：2004/10/05(Tue) 18:36
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: Windowsを終了・再起動する（WindowsXP 対応版）について
> 実行環境にはSYSINFO.OCX は入っていませんでした。
> これを入れるにはどうしたらいいのですか？

SYSINFO.OCX を含んでいるランタイムをインストールするか、Form に SYSINFO コントロール
を貼り付けて EXE を作成して一緒に配布して下さい。

   hhttp://www.vector.co.jp/soft/win95/util/se327852.html

投稿時間：2004/10/06(Wed) 09:25
投稿者名：あまぐ
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: Windowsを終了・再起動する（WindowsXP 対応版）について
> SYSINFO.OCX を含んでいるランタイムをインストールするか、Form に SYSINFO コントロール
> を貼り付けて EXE を作成して一緒に配布して下さい。

この方法で無事終了することができました。
親切な対応ありがとうございました。