windows-nt/Source/XPSP1/NT/termsrv/admtools/appcmpt/kor/hwp97usr.cmd

78 lines
2.5 KiB
Batchfile
Raw Normal View History

2020-09-26 03:20:57 -05:00
Rem #########################################################################
Rem
Rem HWPW 97 installation location from registry
Rem
..\ACRegL %Temp%\OrgUser.Cmd ORGUSER "HKLM\Software\HNC\HNC Path" "ORGUSER" ""
..\ACRegL %Temp%\HNC.Cmd HNC "HKLM\Software\HNC\HNC Path" "HNC" ""
..\ACRegL %Temp%\HNCDRV.Cmd HNCDRV "HKLM\Software\HNC\HNC Path" "HNCDRV" ""
..\ACRegL %Temp%\HNCFONT.Cmd HNCFONT "HKLM\Software\HNC\HNC Path" "HNCFONT" ""
..\ACRegL %Temp%\HNCLIB.Cmd HNCLIB "HKLM\Software\HNC\HNC Path" "HNCLIB" ""
Call %Temp%\HNC.Cmd
Call %Temp%\HNCDRV.Cmd
Call %Temp%\HNCFONT.Cmd
Call %Temp%\HNCLIB.Cmd
Call %Temp%\OrgUser.Cmd
Del %Temp%\HNC.Cmd >Nul: 2>&1
Del %Temp%\HNCDRV.Cmd >Nul: 2>&1
Del %Temp%\HNCFONT.Cmd >Nul: 2>&1
Del %Temp%\HNCLIB.Cmd >Nul: 2>&1
Del %Temp%\OrgUser.Cmd >Nul: 2>&1
Rem #########################################################################
Rem
Rem
Rem
Rem If not currently in execute Mode, change to execute Mode.
Set __OrigMode=Exec
Change User /query > Nul:
if Not ErrorLevel 101 Goto cont1
Set __OrigMode=Install
Change User /Execute > Nul:
:cont1
If Not Exist "%RootDrive%\WINDOWS" Call TsMkUDir "%RootDrive%\WINDOWS"
..\aciniupd /e /u "%RootDrive%\WINDOWS\win.ini" "HNC Path" HNC "%HNC%"
..\aciniupd /e /u "%RootDrive%\WINDOWS\win.ini" "HNC Path" HNCDRV "%HNCDRV%"
..\aciniupd /e /u "%RootDrive%\WINDOWS\win.ini" "HNC Path" HNCFONT "%HNCFONT%"
..\aciniupd /e /u "%RootDrive%\WINDOWS\win.ini" "HNC Path" HNCLIB "%HNCLIB%"
..\aciniupd /e /u "%RootDrive%\WINDOWS\win.ini" "HNC Path" HNCUSER "%RootDrive%\HNC\USER"
..\aciniupd /e /u "%RootDrive%\WINDOWS\win.ini" "HNC Path" WORK "%RootDrive%\HNC\WORK"
..\aciniupd /e /u "%RootDrive%\WINDOWS\win.ini" "HNC Path" HNCTEMP "%RootDrive%\HNC\TEMP"
Rem If original mode was Install, change back to Install Mode.
If "%__OrigMode%" == "Install" Change User /Install > Nul:
Set __OrigMode=
Rem #########################################################################
Rem
Rem Create USER directories in the user's home directory.
Rem
If Not Exist "%RootDrive%\HNC" Call TsMkUDir "%RootDrive%\HNC"
If Not Exist "%RootDrive%\HNC\WORK" Call TsMkUDir "%RootDrive%\HNC\WORK"
If Not Exist "%RootDrive%\HNC\USER" Call TsMkUDir "%RootDrive%\HNC\USER"
If Not Exist "%RootDrive%\HNC\TEMP" Call TsMkUDir "%RootDrive%\HNC\TEMP"
Rem #########################################################################
Rem
Rem Copy all user file to the current user location
Rem
If Exist "%RootDrive%\HNC\USER\HNC.INI" Goto Done
Xcopy "%ORGUSER%*.*" "%RootDrive%\HNC\USER" /E /I >Nul: 2>&1
:Done