端末シャットダウンについて

質問

端末Ａ：OS=windows2000pro IP：192.168.10.101
端末Ｂ：OS=windows2000pro IP：192.168.10.102

端末Ａ→端末Ｂに端末のシャットダウン指令を出力するＶＢプログラムをご教示くださいますようよろしくお願いいたします

よろしくお願いいたします

回答No.3

taka_tetsu

>「OpSysSet =　が定義されていません」とのエラーメッセージが出力されます

こういうのを文法エラーというのですが・・・
Option Explicitを指定してればそのエラーが出るのはあたりまえです。

定義されてなければ自分で定義してください。
いくらなんでもVBの基本中の基本です。

Dim OpSysSet
Dim OpSys

この2行を追加してください。

あと、
OpSys.Reboot()
ですが、()をつけてエラーが出るようでしたら()を消すか、
Call OpSys.Reboot()
というような感じにしてください。

＃これもVBの文法エラーになるだけなんですけどね。

回答No.2

taka_tetsu

>早速、ＶＢのformに貼り付けましたが、動作いたしませんでした。

どんな風に動かないのでしょうか？エラーメッセージは何でしょう？
こちらとしては動作するものを出しているので、ただ動かないといわれてもどうしようもないのですが。

>　大変恐縮ではございますが、コマンドボタンをクリックイベントからのご教示くださいます様よろしくお願いいたします

まったく一緒です。そのまま貼り付けてください。
まさか、改行とかが入って文法エラーになってませんよね？

あとは、端末Aで実行しているユーザと同じ名前で同じパスワードでAdministrator権限を持っているユーザが、端末Bで必要です。

補足

formに下記内容を貼り付けましたが、・・・
「OpSysSet =　が定義されていません」とのエラーメッセージが出力されます

初心者で申し訳ございません。よろしくお願い申し上げます
-------------------------------------------------
Option Explicit

Private Sub Command1_Click()
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//alexn-pc ").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
For Each OpSys In OpSysSet
OpSys.Reboot()
Next
End Sub

回答No.1

taka_tetsu

http://www.microsoft.com/japan/technet/prodtechnol/windows2000serv/maintain/featusability/mngwmi.asp

OpSys.Reboot
を
OpSys.Shutdown
にかえるだけ。

#VBScriptなんで、そのままVBに貼り付ければ動くはずです。というか、VBで作り直す必要もないかと。

お礼

早速のご回答ありがとうございます
早速、ＶＢのformに貼り付けましたが、動作いたしませんでした
　大変恐縮ではございますが、コマンドボタンをクリックイベントからのご教示くださいます様よろしくお願いいたします
　お手数をおかけいたしますよろしくお願いいたします