[リストへもどる]
一括表示
投稿時間：2003/08/20(Wed) 23:18
投稿者名：こばし
ＵＲＬ　：
タイトル：ＸＰの再起動について
http://www.bcap.co.jp/hanafusa/VBHLP/WinXPEnd.htm
のコードでＸＰを再起動したいのですが、『ActiveXコンポーネントはオブジェクトを作成できません。』
とエラーが表示されます。2000では再起動できます。
SYSINFO.OCXをインストールして、レジストリに『REGSVR32 SYSINFO.OCX』で登録しても
ダメでした。
どなたかよろしくお願いします（-人-）

投稿時間：2003/08/21(Thu) 02:16
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: ＸＰの再起動について
SYSINFOコントロールを直接フォームに貼り付けて試して見ても同じでしょうか？
　
　Debug.Print SysInfo1.OSPlatform

投稿時間：2003/08/21(Thu) 13:20
投稿者名：こばし
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: ＸＰの再起動について
> SYSINFOコントロールを直接フォームに貼り付けて試して見ても同じでしょうか？
> 　
> 　Debug.Print SysInfo1.OSPlatform

ダメです(;;)ちゃんと追加してみたのですが。希望は、ＷＩＮ2000で作成した実行ファイル
（6.0のラーニングで作成しています）を、ＸＰで動作させたいのです。ＸＰにはＶＢは
インストールされていません。

Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\SYSTEM32\STDOLE2.TLB#OLE Automation
Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINNT\System32\scrrun.dll#Microsoft Scripting Runtime
Form=Form1.frm
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
Object={6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0; SYSINFO.OCX

投稿時間：2003/08/21(Thu) 13:37
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: ＸＰの再起動について
>ＸＰにはＶＢはインストールされていません。

だったらWindowsXPの方にVBのランタイムをインストールして下さい。
（勿論それらのOCX等が入っているランタイムを）

　http://www.vector.co.jp/soft/win95/util/se180668.html

投稿時間：2003/08/21(Thu) 18:58
投稿者名：こばし
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: ＸＰの再起動について
> >ＸＰにはＶＢはインストールされていません。
>
> だったらWindowsXPの方にVBのランタイムをインストールして下さい。
> （勿論それらのOCX等が入っているランタイムを）
>
> 　http://www.vector.co.jp/soft/win95/util/se180668.html

ランタイム入れてもダメでした。原因がよくわかりません。
原因がわかれば、またカキコさせていただきませ。レスありがとうございました。

投稿時間：2003/08/23(Sat) 10:30
投稿者名：Starfish
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: ＸＰの再起動について
　SYSINFOコントロールは、OSの種類のチェックに使っているだけなので
代わりにWin32APのGetVersionEx関数を使えばいいのでは

http://www.vbvbvb.com/jp/gtips/0501/gGetVersionEx.html

投稿時間：2003/09/04(Thu) 14:26
投稿者名：こばし
Ｅメール：
ＵＲＬ　：
タイトル：Re^6: ＸＰの再起動について
> 　SYSINFOコントロールは、OSの種類のチェックに使っているだけなので
> 代わりにWin32APのGetVersionEx関数を使えばいいのでは
>
> http://www.vbvbvb.com/jp/gtips/0501/gGetVersionEx.html

ラーニングエディションはダメでプロフェッショナルだとＯＫってことはないでしょうか？
SYSINFOコントロールの使用はあきらめて、ＶＢＳ？で作った人がいたので、それをマネして作ったらＸＰでも動きました。以下コードです。

Private Sub Command5_Click()
Dim int_Response As Integer
'プロジェクト→参照設定→『Microsoft WMI Scripting V1.1 Library』を追加
Dim obj_Service As WbemScripting.SWbemObject
Dim obj_ServiceSet As WbemScripting.SWbemObjectSet

Set obj_ServiceSet = _
GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").InstancesOf("Win32_OperatingSystem")

'--------------------------------------------------
'終了
'--------------------------------------------------
int_Response = MsgBox( _
"Windows を終了しますか？", vbOKCancel, "シャットダウン")

If int_Response = 2 Then
Exit Sub
End If

For Each obj_Service In obj_ServiceSet
obj_Service.Win32Shutdown 8
Next

End Sub

GetVersionEx関数は、時間があれば試したいと思います。仕事優先なので。