Wilson WindowWare Tech Support

WinBatch WinBatch+Compiler WebBatch
Home | Tech Database | Tech BBS | White Papers | Purchase

Sample Code to Setup MS Access INI Files and PLS Structuring User Queries Icon 

Keywords: 	 MS Access
NOTE: This sample code is from our Winbatch User Base. Wilson Windowware makes no claims as to their workability, effectiveness, or freedom from bugs. Nor does Wilson Windowware provide technical support as to their intended purpose or proposed performance.

ACC2SET.WBT

; ACC2SET.WBT		

;Debug (@ON)		

ErrorMode (@OFF)

SysRoot = Environment ("systemroot")
Path = Environment ("path")
NewPath = "W:\ACCESS2;%path%"
EnvironSet ("Path", NewPath)

AddExtender ("wwwNT34I.dll")

If !FileExist ("%SysRoot%\msacc20.ini")	   
	FileCopy  ("W:\Access2\Setup\msacc20.ini", "%SysRoot%", @FALSE)
EndIf

If !FileExist ("odbcinst.ini")
	FileCopy  ("W:\access2\DLL_16\odbcinst.ini", "%SysRoot%", @FALSE) 
EndIf

If !FileExist ("System.mda")
	FileCopy  ("W:\access2\workdir\System.mda", "%SysRoot%", @FALSE) 
EndIf

If !FileExist ("CCard100.ini")
	FileCopy  ("W:\access2\dll_16\CCard100.ini", "%SysRoot%", @FALSE) 
EndIf

If !FileExist ("Graph5.ini")
	FileCopy  ("W:\access2\dll_16\Graph5.ini", "%SysRoot%", @FALSE) 
EndIf

VerNr = IniReadPvt ("Microsoft Access", "Version", "", "%SysRoot%\WIN.INI")
If VerNr != "2.0"
   IniWritePvt ("Microsoft Access", "Version", "2.0", "%SysRoot%\WIN.INI")

   IniWritePvt ("Extensions", "MDA", "W:\ACCESS2\MSACCESS.EXE ^.MDA", "%SysRoot%\WIN.INI")
   IniWritePvt ("Extensions", "MDB", "W:\ACCESS2\MSACCESS.EXE ^.MDB", "%SysRoot%\WIN.INI")
   
   IniWritePvt ("Embedding", "MSGraph.Chart.5", "Microsoft Graph 5.0, Microsoft Graph 5.0,W:\MSAPPS\MSGRAPH5\Graph5.Exe,picture", "%SysRoot%\WIN.INI")
   
   IniWritePvt ("Microsoft System Info", "MSINFO", "W:\MSAPPS\MSINFO\MSINFO.EXE", "%SysRoot%\WIN.INI")

   IniWritePvt ("MS Setup (ACME) Table Files", "MSACCESS.EXE@v2.00.0013.0USA", "W:\Access2\setup.stf", "%SysRoot%\WIN.INI")

   IniWritePvt ("btrieve", "options", "/m:64 /p:4096 /b:16 /f:20 /l:40 /n:12 /t:W\ACCESS2\BTRIEVE.TRN", "%SysRoot%\WIN.INI")

   IniWritePvt ("ODBC Data Sources", "MS Access 2.0 Databases", "Access 2.0 for MS Office(*.mdb)", "%SysRoot%\ODBC.INI")

   IniWritePvt ("MS Access 2.0 Databases", "Driver", "W:\Access2\ODBCJT16.DLL", "%SysRoot%\ODBC.INI")
   IniWritePvt ("MS Access 2.0 Databases", "DefaultDir", "H:\Access2", "%SysRoot%\ODBC.INI")
   IniWritePvt ("MS Access 2.0 Databases", "JetIniPath", "MSACC20.INI", "%SysRoot%\ODBC.INI")

   IniWritePvt ("ODBC Drivers", "Access 2.0 for MS Office (*.mdb)", "Installed", "%SysRoot%\ODBCInst.INI")

   IniWritePvt ("Access 2.0 for MS Office (*.mdb)", "Driver", "W:\Access2\ODBCJT16.DLL", "%SysRoot%\ODBCInst.INI")
   IniWritePvt ("Access 2.0 for MS Office (*.mdb)", "Setup", "W:\Access2\ODBCJT16.DLL", "%SysRoot%\ODBCInst.INI")
EndIf

IniWritePvt ("Options", "SystemDB", "W:\DATA\SYSTEM.MDA", "%SysRoot%\MSAcc20.ini")

;RunEnviron ("cmd.exe", "", @NORMAL, @NOWAIT)

ACCESS2.WBT

; ACCESS2.WBT					  

;Debug (@ON)					

SysRoot = Environment ("systemroot")
Path = Environment ("path")
NewPath = "W:\Access2\DLL_16;W:\Orawin\bin;W:\Access2;w:\sybase\bin;w:\sybase\dll;"
EnvironSet ("Path", NewPath)

AddExtender ("wwwNT34I.dll")

If !FileExist ("%SysRoot%\msacc20.ini")
				FileCopy  ("W:\Access2\Setup\msacc20.ini", "%SysRoot%", @FALSE)
EndIf

If !FileExist ("%SysRoot%\odbcinst.ini")
				FileCopy  ("W:\access2\DLL_16\odbcinst.ini", "%SysRoot%", @FALSE) 
EndIf

If !FileExist ("%SysRoot%\System.mda")
				FileCopy  ("W:\access2\workdir\System.mda", "%SysRoot%", @FALSE) 
EndIf


VerNr = IniReadPvt ("Microsoft Access", "Version", "", "%SysRoot%\WIN.INI")
If VerNr != "2.0"

   IniWritePvt ("Microsoft Access", "Version", "2.0", "%SysRoot%\Win.ini")
   IniWritePvt ("Extensions", "MDA", "W:\ACCESS2\MSACCESS.EXE ^.MDA", "%SysRoot%\WIN.INI")
   IniWritePvt ("Extensions", "MDB", "W:\ACCESS2\MSACCESS.EXE ^.MDB", "%SysRoot%\WIN.INI")
   IniWritePvt ("Embedding", "MSGraph.Chart.5", "Microsoft Graph 5.0, Microsoft Graph 5.0,W:\MSAPPS\MSGRAPH5\Graph5.Exe,picture", "%SysRoot%\WIN.INI")
   IniWritePvt ("Microsoft System Info", "MSINFO", "W:\MSAPPS\MSINFO\MSINFO.EXE", "%SysRoot%\WIN.INI")
   IniWritePvt ("MS Setup (ACME) Table Files", "MSACCESS.EXE@v2.00.0013.0USA", "W:\Access2\setup.stf", "%SysRoot%\WIN.INI")
   IniWritePvt ("btrieve", "options", "/m:64 /p:4096 /b:16 /f:20 /l:40 /n:12 /t:W\ACCESS2\BTRIEVE.TRN", "%SysRoot%\WIN.INI")
   IniWritePvt ("ODBC Data Sources", "MS Access 2.0 Databases", "Access 2.0 for MS Office(*.mdb)", "%SysRoot%\ODBC.INI")
   IniWritePvt ("MS Access 2.0 Databases", "Driver", "W:\Access2\DLL_16:\ODBCJT16.DLL", "%SysRoot%\ODBC.INI")
   IniWritePvt ("MS Access 2.0 Databases", "DefaultDir", "H:\Access2", "%SysRoot%\ODBC.INI")
   IniWritePvt ("MS Access 2.0 Databases", "JetIniPath", "MSACC20.INI", "%SysRoot%\ODBC.INI")
   IniWritePvt ("ODBC Drivers", "Access 2.0 for MS Office (*.mdb)", "Installed", "%SysRoot%\ODBCInst.INI")
   IniWritePvt ("Access 2.0 for MS Office (*.mdb)", "Driver", "W:\Access2\DLL_16:\ODBCJT16.DLL", "%SysRoot%\ODBCInst.INI")
   IniWritePvt ("Access 2.0 for MS Office (*.mdb)", "Setup", "W:\Access2\DLL_16:\ODBCJT16.DLL", "%SysRoot%\ODBCInst.INI")
EndIf

If VerNr != "2.0a"
   IniWritePvt ("Microsoft Access", "Version", "2.0a", "%SysRoot%\msacc20.ini")
   IniWritePvt ("Paradox ISAM", "ParadoxNetPath", "R:\DATA", "%SysRoot%\msacc20.ini")
EndIf

   Call ("W:\SCRIPTS\DSS41.WBT", "")

  DirChange ("W:\Access2")
  DirChange ("H:\")

  IniDeletePvt("Libraries",		 @WHOLESECTION,			   "%SysRoot%\MSACC20.INI")
  IniWritePvt ("Options",		"SystemDB",					"R:\DATA\SYSTEM.MDA", "%SysRoot%\MSACC20.INI")
  IniWritePvt ("Libraries", "R:\DATA\wzlib.mda",	"rw",	"%SysRoot%\MSACC20.INI")	   
  IniWritePvt ("Libraries", "R:\DATA\wztable.mda",	"rw",	"%SysRoot%\MSACC20.INI")			  
  IniWritePvt ("Libraries", "R:\DATA\wzQuery.mda",	"rw",	"%SysRoot%\MSACC20.INI")	   
  IniWritePvt ("Libraries", "R:\DATA\wzfrmrpt.mda", "rw",	"%SysRoot%\MSACC20.INI")	   
  IniWritePvt ("Libraries", "R:\DATA\wzbldr.mda",	"rw",  "%SysRoot%\MSACC20.INI")		  
  
   
RunEnviron ("W:\Access2\MsAccess.exe","%param1% %param2% %param3% %param4% %param5% %param6% %param7%",@NORMAL,@NOWAIT)
;RunEnviron ("cmd.exe", "", @NORMAL, @NOWAIT)

PLSUSTRC.WBT

; plsUSTRC.WBT			 "This is for the PLS Structuring User Queries icon"

;Debug (@ON)		
ErrorMode (@OFF)

MDB = "USTRC"

SysRoot = Environment ("systemroot")
Path = Environment ("path")
NewPath = "W:\Access2\DLL_16;H:\PLS;%path%"
EnvironSet ("Path", NewPath)
user = Environment ("username")

AddExtender ("wwwNT34I.dll")

wNTCancelCon ("M:",@FALSE,@FALSE)								  
wNTAddDrive	 (@DEFAULT, @DEFAULT,"\\EGS2\SYS\APPS","M:", @FALSE)  

If !FileExist ("M:\PLS\pls%MDB%.mdb")	 
	Message ("PROBLEM:", "Missing file or bad connection to EGS2.%@CRLF%    Call the help desk for assistance.")
	GoTo Nope
EndIf

Data = IniReadPvt ("Power System", "Data", "", "%SysRoot%\Acc20Pls.ini")
If Data != "EGS2"
   FileCopy ("M:\Pls\SetUp\Acc20Pls.ini", "%SysRoot%", @FALSE)
EndIf

If !DirExist ("H:\PLS")
	DirMake	 ("H:\PLS")
EndIf

If !FileExist ("H:\PLS\pls%MDB%.mdb")
	FileCopy  ("M:\PLS\pls%MDB%.mdb", "H:\PLS\pls%MDB%.mdb",@FALSE)
EndIf

Call ("W:\Scripts\Acc2Set.wbt","")

DirChange ("W:\Access2")
RunEnviron("W:\Access2\MSAccess.EXE", "H:\PLS\pls%MDB%.mdb /INI %SysRoot%\Acc20Pls.ini /user %user%", @NORMAL, @NOWAIT)

:Nope
;	Message ("", "Dave's Not Here!")

;RunEnviron ("cmd.exe", "", @NORMAL, @NOWAIT)


Article ID:   W14728

Filename:   Scripts to Setup Access INI Files and PLS Structuring User Queries icon.txt