PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
17997 | 02/08/21 10:58:27 | RE(1):シャットダウン時に・・・ By M.M |
17996 | 02/08/20 17:59:18 | シャットダウン時に・・・ By xryusuke |
カテゴリ:その他
日付:2002年08月20日 17:59 発信者:xryusuke
題名:シャットダウン時に・・・
発言No.010183?4「コンピュータをシャットダウンする方法:95/98/NT(1)、(2)」
を参照したところ。見事、シャットダウンに成功しました。
が、しかし、再起動を行った後、エクスプローラを立ち上げたまま再起動した時のみ
スタートアップの設定もしていないのに再度エクスプローラが立ち上がってしまいます。
何も立ち上がらないようにしたいです。
原因がわかりません。どなたか、教えてください。
【スクリプト】
IF (gi_Flg = 1) Then
// Constant Values
Constant Long TOKEN_ADJUST_PRIVILEGES = 32
Constant Long TOKEN_QUERY = 8
Constant String SE_SHUTDOWN_NAME = \"SeShutdownPrivilege\"
Constant Long SE_PRIVILEGE_ENABLED = 2
// Valiables
long tkn, rtn, old
LUID luid
TOKEN_PRIVILEGES newTTP, oldTTP
// プロセスに関連づけられたアクセストークンをオープン
rtn = OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES +
TOKEN_QUERY, tkn )
// 特権名を示すローカルに一意な識別子(LUID)を取得
rtn = LookupPrivilegeValue( \"\", SE_SHUTDOWN_NAME, luid )
// シャットダウン権限を有効に設定
newTTP.PrivilegeCount = 1
newTTP.Privileges[1].LUID = luid
newTTP.Privileges[1].Attributes = SE_PRIVILEGE_ENABLED
rtn = AdjustTokenPrivileges( tkn, 0, newTTP, 16, oldTTP, old )
rtn = CloseHandle(ll_hconsole)
// Windowsの終了
Constant Long EWX_LOGOFF = 0
Constant Long EWX_SHUTDOWN = 1
Constant Long EWX_REBOOT = 2
Constant Long EWX_FORCE = 4
rtn = ExitWindowsEx( EWX_SHUTDOWN, 0 ) //EWX_FORCEとの組み合わせ可
Else
return -1
End IF
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS (記載なし)
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.