ネットワーク上の他のＰＣの電源をシャットダウン／リブートしたいのですが、
方法が分かりません。
ご教授お願い致します。

OS:Windows XP pro SP2
VB:VB6

> ネットワーク上の他のＰＣの電源をシャットダウン／リブートしたいのですが、
> 方法が分かりません。

もう少し具体的に何が解らないかを書かないとレスが付きませんよ。
http://hanatyan.sakura.ne.jp/hazimeni.htm#keijiban

そのような、環境ではないので試していませんが、操作先のPCに下記のような
アプリを入れておき、操作元のPCから起動したのではだめなのですか？
http://hanatyan.sakura.ne.jp/vbhlp/tap_winEnd.htm

説明が悪く申し訳ありません。

２台のＰＣにアプリケーションを入れ、リンクして動作するように
しているのですが、片方のアプリケーションが万が一ハングしてし
まった時のために、生存中のアプリケーションからハングしている
ＰＣをアプリケーションを介さずＯＳからリブートまたはシャット
ダウンをかけたいと思っています。

・他のＰＣをアプリケーションを介さずＯＳからリブートまたは
　シャットダウンすることは可能でしょうか？

> 説明が悪く申し訳ありません。
余計意味が解らない！

> まった時のために、生存中のアプリケーションからハングしている
> ＰＣをアプリケーションを介さずＯＳからリブートまたはシャット
> ダウンをかけたいと思っています。
>
> ・他のＰＣをアプリケーションを介さずＯＳからリブートまたは
> 　シャットダウンすることは可能でしょうか？

他のＰＣをアプリケーションを介さずＯＳからリブート するとは具体的にどのような事を
指しているのでしょうか？
ソフトではだめなら、ハード的にという事ですか？
そう言ったフリーソフトは色々ありますのが、どのようなフリーソフトに該当しますか？

それに、最近のPCでは、ハングアップしてしまったら、まったく何も入力を受け付け
ないので、手動で電源を落とすしかないような気がしますが。
(# それより、ハングアップしないようにプログラムする事が先かと思いますが）

> ・他のＰＣをアプリケーションを介さずＯＳからリブートまたは
> 　シャットダウンすることは可能でしょうか？

PC1 に、何か追加のソフトを入れること無く、
PC2 から、PC1 をシャットダウンしたい、という事ですよね。

そういったリモート制御には、WMI を使うのが良いでしょう。
Win32_OperatingSystem クラスのシャットダウン系メソッドを試してみてください。

　Shutdown() メソッド
　　… 2008,2003,XP,2000,NT4/SP4

　Win32Shutdown(Flags, Reserved) メソッド
　　… 2008,Vista,2003,XP,2000,NT4/SP4

　Win32ShutdownTracker(Timeout, Comment, ReasonCode, Flags) メソッド
　　… 2008,Vista

# google や MSDN や TechNet 等を探せば、具体的なサンプルも見つかるかと。

> > ・他のＰＣをアプリケーションを介さずＯＳからリブートまたは
> > 　シャットダウンすることは可能でしょうか？
>
> PC1 に、何か追加のソフトを入れること無く、
> PC2 から、PC1 をシャットダウンしたい、という事ですよね。

そうです。
分かりにくくて申し訳ありません。

> そういったリモート制御には、WMI を使うのが良いでしょう。
> Win32_OperatingSystem クラスのシャットダウン系メソッドを試してみてください。
>
> 　Shutdown() メソッド
> 　　… 2008,2003,XP,2000,NT4/SP4
>
> 　Win32Shutdown(Flags, Reserved) メソッド
> 　　… 2008,Vista,2003,XP,2000,NT4/SP4
>
> 　Win32ShutdownTracker(Timeout, Comment, ReasonCode, Flags) メソッド
> 　　… 2008,Vista
>
> # google や MSDN や TechNet 等を探せば、具体的なサンプルも見つかるかと。

ありがとうございます。
探して、試してみたいと思います。

ありがとうございました。
いろいろ参考にして、下記のような関数を作成し実現することができました。

'/////////////////////////////////////////////////////////////////
'  [引数］
'    pComputerName :コンピュータ名 or IPアドレス
'    pUserName     :Administrator権限のユーザー名
'    pPassword     :ユーザーのパスワード
'    flg           :0:LogOff 1:Shutdown 2:Reboot 8:PowerOff
'  [戻り値］
'    0      :正常終了
'    1      :エラー
'/////////////////////////////////////////////////////////////////
Public Function RemoteShutdown(ByVal pComputerName As String, _
　　　　　　　　　　　　　　　 ByVal pUserName As String, _
                               ByVal pPassword As String, _
　　　　　　　　　　　　　　　 ByVal flg As Integer) As Integer

    Dim objOsSet As SWbemObjectSet
    Dim objOs As SWbemObject
    Dim objLocator As SWbemLocator
    Dim objService As Object
    
    On Local Error GoTo ErrorHandler:
    
    Set objLocator = CreateObject("WbemScripting.SWbemLocator")
    Set objService = objLocator.ConnectServer(pComputerName,　_
　　　　　　　　　　　　　　　　　　　　　　　"root\cimv2", _
　　　　　　　　　　　　　　　　　　　　　　　pUserName,　_
　　　　　　　　　　　　　　　　　　　　　　  pPassword)
    Set objOsSet = objService.ExecQuery("Select * From Win32_OperatingSystem")
    
    For Each objOs In objOsSet
        RemoteShutdown = objOs.Win32Shutdown(flg)
    Next
    
    Set objOsSet = Nothing
    Set objOs = Nothing
    Set objService = Nothing
    Set objLocator = Nothing
    
    Exit Function
    
ErrorHandler:
    Err.Clear
    RemoteShutdown = 1
    
    Set objOsSet = Nothing
    Set objOs = Nothing
    Set objService = Nothing
    Set objLocator = Nothing
    
End Function