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 (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.