75 lines
2.0 KiB
Batchfile
75 lines
2.0 KiB
Batchfile
@Echo Off
|
|
|
|
Rem #########################################################################
|
|
|
|
Rem
|
|
Rem 檢查 %RootDrive% 是否已設定，並將其設定給指令檔。
|
|
Rem
|
|
|
|
Call "%SystemRoot%\Application Compatibility Scripts\ChkRoot.Cmd"
|
|
If "%_CHKROOT%" == "FAIL" Goto Done
|
|
Call "%SystemRoot%\Application Compatibility Scripts\SetPaths.Cmd"
|
|
If "%_SETPATHS%" == "FAIL" Goto Done
|
|
|
|
Rem #########################################################################
|
|
|
|
..\ACRegL "%Temp%\PB6.Cmd" PB6INST "HKCU\Software\ODBC\ODBC.INI\Powersoft Demo DB V6" "DataBaseFile" "STRIPCHAR\1"
|
|
If Not ErrorLevel 1 Goto Cont0
|
|
Echo.
|
|
Echo 無法從登錄檔抓取 PowerBuilder 6.0 指令列。
|
|
Echo 請檢查 PowerBuilder 6.0 是否已安裝，並重新
|
|
Echo 執行這個指令檔。
|
|
Echo.
|
|
Pause
|
|
Goto Done
|
|
|
|
:Cont0
|
|
Call "%Temp%\PB6.Cmd"
|
|
Del "%Temp%\PB6.Cmd" >Nul: 2>&1
|
|
|
|
Rem
|
|
Rem 變更登錄機碼，將路徑指向使用者指定的
|
|
Rem 目錄。
|
|
Rem
|
|
|
|
Rem 如果目前不是安裝模式，就變更成安裝模式。
|
|
Set __OrigMode=Install
|
|
ChgUsr /query > Nul:
|
|
if Not ErrorLevel 101 Goto Begin
|
|
Set __OrigMode=Exec
|
|
Change User /Install > Nul:
|
|
:Begin
|
|
|
|
..\acsr "#ROOTDRIVE#" "%RootDrive%" Template\pwrbldr6.Key pwrbldr6.key
|
|
|
|
regini pwrbldr6.key > Nul:
|
|
|
|
Rem 如果原來是執行模式，就變回執行模式。
|
|
If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
|
|
Set __OrigMode=
|
|
|
|
Rem #########################################################################
|
|
|
|
Rem
|
|
Rem 更新 PBld6Usr.Cmd 以反映實際安裝目錄，並將其
|
|
Rem 加入 UsrLogn2.Cmd 指令檔。
|
|
Rem
|
|
|
|
..\acsr "#INSTDIR#" "%PB6INST%" ..\Logon\Template\PBld6Usr.Cmd ..\Logon\PBld6Usr.cmd
|
|
|
|
FindStr /I PBld6Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
|
|
If Not ErrorLevel 1 Goto Skip1
|
|
Echo Call PBld6Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
|
|
:Skip1
|
|
|
|
Rem #########################################################################
|
|
|
|
Echo.
|
|
Echo 為了確保 PowerBuilder 6.0 能適當執行，目前登入的
|
|
Echo 使用者必須先登出，重新登入後再執行 PowerBuilder 6.0。
|
|
Echo.
|
|
Echo PowerBuilder 6.0 多使用者應用程式調整完成。
|
|
Pause
|
|
|
|
:done
|