Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: upgrade Windows 95 OSR2
; DS Menu 4.02 Windows version ; Written by Todd Thorson 12/17/96 ; Comdisco Distributed Services Errormode(@cancel) WinTitle("","DS Menu") WinType=WinMetrics(-4) LastMod="2/17/1999" LANID=Environment("ln") FileSvr=Environment("fs") AppSvr=Environment("asvr") FullName=Environment("FN") TD=TimeDate() Owner=Environment("owner") Psvr=Environment("psvr") RAM=((WinResources(11))/1024)/1000 Decimals(1) free=(DiskFree("c")/1024)/1000 If free > 1000 then freeb=StrCat((free/1000),"GB") Else freeb=StrCat(free,"MB") EndIf page=((WinResources(14))/1024)/1024 spc=DiskInfo("c",1) bps=DiskInfo("c",2) nfc=DiskInfo("c",3) tnc=DiskInfo("c",4) bpc=spc*bps WHITE="255,255,255" RED="255,0,0" PURPLE="255,0,255" CYAN="0,255,255" DKBLUE="0,0,128" BLUE="0,0,255" LTGRAY="192,192,192" GRAY="128,128,128" GREEN="0,255,0" YELLOW="255,255,0" FAMILY=16 FONT="Times New Roman" DKGRAY="64,64,64" BLACK="0,0,0" WBTVER=VersionDll() WASH=1 If WinType == 5 then Winver=RegQueryValue(@REGMACHINE,"Software\Microsoft\Windows\CurrentVersion[Version]") VerNum=RegQueryValue(@REGMACHINE,"Software\Microsoft\Windows\CurrentVersion[VersionNumber]") VerSub=RegQueryValue(@REGMACHINE,"Software\Microsoft\Windows\CurrentVersion[SubVersionNumber]") Else If WinType == 4 then Winver = "Windows NT" VerNum = " " VerSub = " " Else Winver = "Unknown" VerNum = " " VerSub = " " EndIf EndIf If VerSub == 0 then VerSub=" " Errormode(@OFF) IP = 0 For X = 0 to 9 by 1 If IP == 0 then IP=RegQueryValue(@REGMACHINE,"System\CurrentControlSet\Services\Class\NetTrans\000%X%[IpAddress]") If IP == "0.0.0.0" then IP = 0 If IP == 0 IP = 0 Else goto GotIP EndIf Next For Y = 10 to 25 by 1 If IP == 0 then IP=RegQueryValue(@REGMACHINE,"System\CurrentControlSet\Services\Class\NetTrans\00%Y%[IpAddress]") If IP == "0.0.0.0" then IP = 0 If IP == 0 IP = 0 Else goto GotIP EndIf Next If IP == 0 then IP="Not Found" :GotIp Errormode(@CANCEL) ;AddExtender("X:\CISMENU\WWHTM34I.DLL") ;If hCompatible() ; DS2000=AskYesNo("BIG Opportunity","Since you have IE 4.0 or greater installed,%@CRLF%would you like to try the new BETA DSMenu 2000??") ; If DS2000 == @YES then ; Run("X:\CISMENU\DS2000.exe","") ; Exit ; EndIF ;ENDIF :Main Wash=1 BoxesUp("0,0,1000,1000",@NORMAL) BoxColor(1,"0,0,127",WASH) BoxCaption(1,"Comdisco Distributed Services") BoxDrawRect(1,"0,0,1000,1000",1) BoxTextFont(1,"%font%",150,80,0|0) BoxTextColor(1,"255,255,0") BoxNew(4,"100,10,900,160",1) BoxColor(4,LTGRAY,0) BoxDrawRect(4,"",1) BoxTextFont(4,"%font%",350,70,0) BoxTextColor(4,RED) BoxPen(4,WHITE,20) boxdrawline(4,"0,0,1000,0") boxdrawline(4,"0,0,0,1000") BoxPen(4,GRAY,20) boxdrawline(4,"1000,1000,1000,0") boxdrawline(4,"0,1000,1000,1000") BoxPen(4,WHITE,10) boxdrawline(4,"960,840,960,150") boxdrawline(4,"40,840,960,840") BoxPen(4,GRAY,10) boxdrawline(4,"40,150,960,150") boxdrawline(4,"40,150,40,840") BoxDrawText(4,"70,200,950,700","Distributed Services Menu v4.02",1,5) BoxTextFont(4,"%font%",120,30,0) BoxDrawText(4,"500,650,950,800","Last Modified %lastmod%",1,5) BoxTextFont(1,"%font%",40,50,0|0) BoxDrawText(1,"200,300,800,350","Your TCP/IP# is set to %IP%",@FALSE,1) BoxDrawText(1,"200,850,800,900","For Help and Info, see the DSMenu Documentation",@FALSE,1) BoxTextFont(1,"%font%",30,40,0|0) BoxDrawText(1,"150,950,900,1000",'"If Clinton was the Titanic, the iceberg would have sunk" - Eric Muller',@FALSE,1) BoxTextFont(1,"%font%",35,50,0|0) BoxButtonDraw(1,1, "E&xit", "850,700,950,750") BoxButtonDraw(1,2, "View DSMenu Documentation", "545,450,950,500") BoxButtonDraw(1,3, "Windows 95a and OSR2 Version Updates", "35,550,475,600") BoxButtonDraw(1,4, "Software Application Installs", "35,400,475,450") BoxButtonDraw(1,5, "PC Drivers, BIOS, and Sybase", "35,700,475,750") BoxButtonDraw(1,6, "Free Space on disk C: %freeb% (click for info. and Disk Utilities)","150,200,875,250") BoxButtonDraw(1,7, "Run Borg/Assimilate this PC", "545,525,950,575") iBox=0 BoxButtonWait() while iBox==0 for x=1 to 7 if BoxButtonStat(1,x) then iBox=x next end while if iBox BoxDataClear(1,"TOP") switch iBox case 1 exit break case 2 goto DoViewdoc break case 3 wash=6 goto DoWin95 break case 4 wash=4 goto DoSoftware break case 5 wash=5 goto DoDrivers break case 6 goto DoSpace break case 7 goto DoBorg break end switch endif goto Main :DoSoftware Call("X:\CISMENU\Software.wbc","") Goto Main :DoViewdoc RunZoomWait("x:\cismenu\wordpad","x:\cismenu\dsmenu.doc") Goto Main :DoWin95 BoxColor(1,"255,255,0",WASH) BoxDrawRect(1,"0,0,1000,1000",1) BoxTextColor(1,WHITE) BoxTextFont(1,"%font%",50,1170,1|%FAMILY%) BoxDrawText(1,"150,175,875,225","Windows 95/98 Service Packs and Updates",@False,1) BoxTextFont(1,"%font%",30,130,1|%FAMILY%) BoxDrawText(1,"100,230,900,300","This machine is currently running %WinVer% %verNum% %VerSub%",@false,1|16) BoxButtonDraw(1,10, "95A Service Pack 1", "35,300,335,350") BoxButtonDraw(1,1, "95A Spoolfix", "35,375,335,425") BoxButtonDraw(1,2, "95A DialUp Networking 1.3", "35,450,335,500") BoxButtonDraw(1,3, "95A Kernel32 Update", "400,300,700,350") BoxButtonDraw(1,4, "95A Disk TSD VXD Update", "400,375,700,425") BoxButtonDraw(1,5, "95A OLE Update ", "400,450,700,500") BoxButtonDraw(1,6, "95A,B,C,98 Reg Clean", "25,575,325,625") BoxButtonDraw(1,7, "95A,B, or C Y2K Update", "100,650,635,700") BoxButtonDraw(1,8, "95B or C OSR2 USB Update", "100,725,635,775") BoxButtonDraw(1,9, "95B or C VTCPIP Update", "100,800,635,850") BoxButtonDraw(1,11, "DirectX 6", "700,725,900,775") BoxButtonDraw(1,12, "Back to Main Menu", "650,925,900,975") BoxButtonDraw(1,13, "95A DCOM95 update ", "350,575,625,625") BoxButtonDraw(1,14, "95A ComCtl32 update ", "650,575,925,625") BoxButtonDraw(1,15, "EXIT", "450,925,600,975") iBox=0 BoxButtonWait() while iBox==0 for x=1 to 15 if BoxButtonStat(1,x) then iBox=x next end while if iBox BoxDataClear(1,"TOP") switch iBox case 1 goto DoSpool break case 2 goto DoDUN break case 3 goto DoKrnl break case 4 goto DoTSD break case 5 goto DoOLE break case 6 goto DoRegcln break case 7 goto DoY2K break case 8 goto DoupdOSR2 break case 9 goto DoTCP break case 10 goto DoSPack break case 11 goto DoDirect break case 12 goto Main break case 13 goto DoDCOM95 break case 14 goto DoComCtl break case 15 EXIT break end switch endif Goto DoWin95 :DoDCOM95 RunWait("x:\cismenu\95Update\DCOM95.exe","") Goto DoWin95 :DoSPack RunWait("x:\cismenu\95Update\ServPak1.exe","") Goto DoWin95 :DoSpool RunWait("x:\cismenu\95Update\Spoolfix.exe","") Goto DoWin95 :DoKrnl RunWait("x:\cismenu\95Update\95Krnl.exe","") Goto DoWin95 :DoDUN RunWait("x:\cismenu\95Update\95DUN.exe","") Goto DoWin95 :DoTSD RunWait("x:\cismenu\95Update\95Disk.exe","") Goto DoWin95 :DoOLE RunWait("x:\cismenu\95Update\95OLE.exe","") Goto DoWin95 :DoDirect RunWait("x:\cismenu\95Update\DirectX.exe","") Goto DoWin95 :DoREGCLN RunWait("x:\cismenu\95Update\RegClean.exe","") Goto DoWin95 :DoY2k RunWait("x:\cismenu\95update\Win95y2k.exe","") Goto DoWin95 :Dotcp RunWait("x:\cismenu\95update\Vtcpupd.exe","") Goto DoWin95 :DoComCtl RunWait("x:\cismenu\95update\Com32upd.exe","") Goto DoWin95 :Doupdosr2 RunWait("x:\cismenu\95update\osr21upd.exe","") Goto DoWin95 :DoVideo DirChange("x:\cismenu\video") RunWait("x:\cismenu\video\setupudm.exe","") Goto DoDrivers :DoBorg BoxColor(1,"255,255,0",WASH) BoxDrawRect(1,"0,0,1000,1000",1) BoxTextColor(1,WHITE) BoxTextFont(1,"%font%",40,1170,1|%FAMILY%) BoxDrawText(1,"100,200,900,300","BORG execution routine.",@false,1|16) BoxTextFont(1,"%font%",30,50,1|%FAMILY%) BoxDrawText(1,"100,750,900,800","Now attaching to server and running BORG so those databases that benefit us so much can be updated. Please be patient.",@false,1|16) IniWritePvt("BORG","RunDateTime","%TD%","C:\COMDISCO.INF") IniWritePvt("BORG","CurrentUser","%LanID%","C:\COMDISCO.INF") IniWritePvt("BORG","CurrentServer","%FileSvr%","C:\COMDISCO.INF") RunIcon("x:\cismenu\11.bat","") :WaitUp4 Delay(2) If WinExist("11") == @true then goto WaitUp4 Delay(2) If WinExist("V:\") == @true then goto WaitUp4 Delay(2) If WinExist("Fin") == @true then WinClose("Fin") If WinExist("Fin") == @true then WinClose("Fin") Delay(2) DirChange("V:\Distserv\Borg") RunZoomWait("V:\Distserv\Borg\Borg.exe","") Goto Main :DoSpace BoxColor(1,"255,255,0",WASH) BoxDrawRect(1,"0,0,1000,1000",1) BoxTextColor(1,WHITE) BoxTextFont(1,"%font%",50,1170,1|%FAMILY%) BoxDrawText(1,"150,175,875,225","Physical Drive C: Information",@False,1) BoxTextFont(1,"%font%",30,40,1|%FAMILY%) BoxDrawText(1,"150,250,875,300","Bytes per Cluster: %bpc%",@False,1) BoxDrawText(1,"150,325,875,375","Bytes per Sector: %bps%",@False,1) BoxDrawText(1,"150,400,875,450","Sectors per Cluster: %spc%",@False,1) BoxDrawText(1,"150,475,875,525","Number of Free Clusters: %nfc%",@False,1) BoxDrawText(1,"150,550,875,600","Total Number of Clusters: %tnc%",@False,1) BoxTextFont(1,"%font%",50,1170,1|%FAMILY%) BoxDrawText(1,"150,650,875,700","RAM and Virtual Memory Information",@False,1) BoxTextFont(1,"%font%",30,40,1|%FAMILY%) BoxDrawText(1,"150,725,875,775","Total Physical Memory: %RAM%MB",@False,1) BoxDrawText(1,"150,800,875,850","Maximum Paging File Size %page%MB",@False,1) BoxButtonDraw(1,1, "Clean Temps, Scandisk, and Defrag C:", "100,925,550,975") BoxButtonDraw(1,2, "Back to Main Menu", "650,925,900,975") iBox=0 BoxButtonWait() while iBox==0 for x=1 to 2 if BoxButtonStat(1,x) then iBox=x next end while if iBox BoxDataClear(1,"TOP") switch iBox case 1 goto DoScandisk break case 2 goto Main break end switch endif goto DoSpace :DoScandisk BoxColor(1,"255,255,0",WASH) BoxDrawRect(1,"0,0,1000,1000",1) BoxTextColor(1,WHITE) BoxTextFont(1,"%font%",50,1170,1|%FAMILY%) BoxDrawText(1,"150,800,875,850","Now Clearing Temp Files from C:\Windows\Temp",@False,1) FileDelete("C:\WINDOWS\TEMP\*.*") BoxColor(1,"255,255,0",WASH) BoxDrawRect(1,"0,0,1000,1000",1) BoxTextColor(1,WHITE) BoxTextFont(1,"%font%",50,1170,1|%FAMILY%) BoxDrawText(1,"150,800,875,850","Now Running ScanDisk on Drive C:",@False,1) RunIcon("x:\cismenu\Scandskw.exe","") SendKeysTo("ScanDisk -","!d") SendKeysTo("ScanDisk -","!f{+}") SendKeysTo("ScanDisk -","!s") :Wait1 TimeDelay(2) If WinExist("ScanDisk Results") == @False then goto Wait1 SendKeysTo("ScanDisk Results"," ") SendKeysTo("ScanDisk -"," ") BoxColor(1,"255,255,0",WASH) BoxDrawRect(1,"0,0,1000,1000",1) BoxTextColor(1,WHITE) BoxTextFont(1,"%font%",50,1170,1|%FAMILY%) BoxDrawText(1,"150,200,875,250","Now Defragmenting Drive C:",@False,1) Run("X:\cismenu\Defrag.exe","C:") While WinExist("Defragm") == @False TimeDelay(2) EndWhile TimeDelay(2) If WinExist("Disk Defrag") == @True then SendKeysTo("Disk Defrag","!s") XX=0 While WinExist("Defragm") == @True TimeDelay(2) If XX == 3 then SendKeysTo("Defragm","!d") XX=XX+1 EndWhile Message("DS Menu Utilities","Drive C: Maintenance Complete." ) Goto Main :DoDrivers BoxColor(1,"255,255,0",WASH) BoxDrawRect(1,"0,0,1000,1000",1) BoxTextColor(1,WHITE) BoxTextFont(1,"%font%",50,1170,1|%FAMILY%) BoxDrawText(1,"150,200,875,250","DSMenu Driver Installs",@False,1) BoxButtonDraw(1,1, "Sybase 16 and 32bit Install w/16-32 ODBC ", "100,300,600,350") BoxButtonDraw(1,2, "Compaq Universal Video Driver", "100,375,600,425") BoxButtonDraw(1,3, "Back to Main Menu", "650,925,900,975") BoxButtonDraw(1,4, "Compaq Desktop PC Softpaq (BIOS) creator", "100,450,600,500") BoxButtonDraw(1,5, "Compaq Laptop PC Softpaq (BIOS) creator", "100,525,600,575") BoxButtonDraw(1,6, "EXIT", "450,925,600,975") ; Choose Menu Option iBox=0 BoxButtonWait() while iBox==0 for x=1 to 6 if BoxButtonStat(1,x) then iBox=x next end while if iBox BoxDataClear(1,"TOP") switch iBox case 1 goto DoSybase break case 2 goto DoVideo break case 3 goto Main break case 4 goto DoDSoftpaq break case 5 goto DoLSoftpaq break case 6 EXIT break end switch endif goto DoDrivers :DoSybase DirMake("C:\Sybase\SybODBC") FileCopy("X:\CISMENU\SybODBC\SybODBC\*.*","C:\Sybase\SybODBC",@FALSE) FileCopy("X:\CISMENU\SybODBC\System\*.*","C:\Windows\System",@FALSE) IniWritePvt("ODBC Data Sources","Saros Report Writer","SQL Server","C:\Windows\Odbc.ini") IniWritePvt("ODBC 32 bit Data Sources","CLASSTRD","Sybase System 11 (32 bit)","C:\Windows\Odbc.ini") IniWritePvt("ODBC 32 bit Data Sources","Saros Report","Sybase System 11 (32 bit)","C:\Windows\Odbc.ini") IniWritePvt("ODBC 32 bit Data Sources","Saros","Sybase System 11 (32 bit)","C:\Windows\Odbc.ini") IniWritePvt("Saros Report","Driver32","C:\Windows\System\Sysyb95.dll","C:\Windows\Odbc.ini") IniWritePvt("Saros","Driver32","C:\Windows\System\Sysyb95.dll","C:\Windows\Odbc.ini") IniWritePvt("CLASSTRD","Driver32","C:\Windows\System\Sysyb95.dll","C:\Windows\Odbc.ini") IniWritePvt("Saros Report Writer","Driver32","C:\Windows\System\Sqlsrv32.dll","C:\Windows\Odbc.ini") IniWritePvt("ODBC Drivers","2.10 Sybase System 10","Installed","C:\Windows\Odbcinst.ini") IniWritePvt("ODBC Drivers","SQL Server","Installed","C:\Windows\Odbcinst.ini") IniWritePvt("ODBC 32 bit Drivers","SQL Server (32 bit)","Installed","C:\Windows\Odbcinst.ini") IniWritePvt("SQL Server (32 bit)","Setup","C:\Windows\System\Sqlsrv32.dll","C:\Windows\Odbcinst.ini") IniWritePvt("SQL Server (32 bit)","Driver","C:\Windows\System\Sqlsrv32.dll","C:\Windows\Odbcinst.ini") IniWritePvt("SQL Server (32 bit)","32Bit","1","C:\Windows\Odbcinst.ini") RunZoom("x:\cismenu\7.bat","") :WaitUp3 Delay(2) If WinExist("7") == @true then goto WaitUp3 Delay(2) If WinExist("XCOPY") == @true then goto WaitUp3 Delay(2) If WinExist("Fin") == @true then WinClose("Fin") If WinExist("Fin") == @true then WinClose("Fin") Run("X:\CISMENU\regedit","x:\CISMENU\sybodbc.reg") :Waitodbc If WinExist("Registry Edit") == @FALSE then goto Waitodbc SendKeysTo("Registry Editor"," ") DirChange("X:\CISMENU\System11") RunWait("X:\CISMENU\SYSTEM11\SETUP","") goto DoDrivers :mailrunning BoxColor(1,"255,255,0",WASH) BoxDrawRect(1,"0,0,1000,1000",1) BoxTextColor(1,WHITE) BoxTextFont(1,"%font%",40,1170,1|%FAMILY%) BoxDrawText(1,"100,200,900,300","Warning! Warning! Danger! Danger!",@false,1|16) BoxTextFont(1,"%font%",30,50,1|%FAMILY%) BoxDrawText(1,"100,750,900,800","You must EXIT and SIGNOUT of Mail or Schedule+ before this install can continue. (Use ALT-TAB to switch to the programs and close them.)",@false,1|16) BoxButtonDraw(1,1,"OK", "400,850,600,900") iBox=0 BoxButtonWait() while iBox==0 for x=1 to 1 if BoxButtonStat(1,x) then iBox=x next end while if iBox BoxDataClear(1,"TOP") switch iBox case 1 break end switch endif Goto DoQvp16 :DoDSoftpaq BoxColor(1,"255,255,0",WASH) BoxDrawRect(1,"0,0,1000,1000",1) BoxTextColor(1,WHITE) BoxTextFont(1,"%font%",45,50,1|%FAMILY%) BoxDrawText(1,"50,200,950,300","DSMenu Desktop PC RomPaq Creation Utility.",@false,1|16) BoxTextFont(1,"%font%",30,50,1|%FAMILY%) BoxDrawText(1,"175,350,900,400","Please choose the type from the following choices.",@false,1|16) BoxButtonDraw(1,1,"Deskpro XE Series (94.10.31)", "50,450,450,500") BoxDrawText(1,"450,450,900,500","433i,450,466,4100",@false,0) BoxButtonDraw(1,2,"Deskpro (5xxx) Series (98.06.08)","50,525,450,575") BoxDrawText(1,"450,525,900,575","'486Y ROM' 575,5100,5120,5133,5166",@false,0) BoxButtonDraw(1,3,"Deskpro (5xxx) Series (98.05.20)","50,600,450,650") BoxDrawText(1,"450,600,900,650","'486G ROM' 575,5100,5120,5133,5166",@false,0) BoxButtonDraw(1,4,"Deskpro 2000 Series (98.05.01)","50,675,450,725") BoxDrawText(1,"450,675,900,725","120,133",@false,0) BoxButtonDraw(1,5,"Deskpro 2000 MMX Series (98.04.16)","50,750,450,800") BoxDrawText(1,"450,750,900,800","166MMX,233MMX",@false,0) BoxButtonDraw(1,6,"Deskpro 4000 Series (98.05.05)","50,825,450,875") BoxDrawText(1,"450,825,900,875","133,166",@false,0) BoxButtonDraw(1,7,"Return to Drivers Menu","650,925,900,975") iBox=0 BoxButtonWait() while iBox==0 for x=1 to 7 if BoxButtonStat(1,x) then iBox=x next end while if iBox BoxDataClear(1,"TOP") switch iBox case 1 goto DoXE break case 2 goto DoDP4X break case 3 goto DoDP5X break case 4 goto Do2K break case 5 goto Do2KMMX break case 6 goto Do4K break case 7 goto DoDrivers break end switch endif goto DoDSoftpaq :DoXE RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp2164.exe") goto DoDSoftpaq :DoDP4x RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp6924.exe") goto DoDSoftpaq :DoDP5x RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp8446.exe") goto DoDSoftpaq :Do2K RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp7978.exe") goto DoDSoftpaq :Do2KMMX RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp5357.exe") goto DoDSoftpaq :Do4K RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp8424.exe") goto DoDSoftpaq :DoLSoftpaq BoxColor(1,"255,255,0",WASH) BoxDrawRect(1,"0,0,1000,1000",1) BoxTextColor(1,WHITE) BoxTextFont(1,"%font%",45,50,1|%FAMILY%) BoxDrawText(1,"50,200,950,300","DSMenu Laptop PC RomPaq Creation Utility.",@false,1|16) BoxTextFont(1,"%font%",30,50,1|%FAMILY%) BoxDrawText(1,"175,350,900,400","Please choose the type from the following choices.",@false,1|16) BoxButtonDraw(1,1,"Armada 4100 Series (98.05.04 RevA)", "50,450,450,500") BoxDrawText(1,"450,450,900,500","4130,4131,4160",@false,0) BoxButtonDraw(1,2,"Armada 7700 Series (98.05.13 RevA)","50,525,450,575") BoxDrawText(1,"450,525,900,575","7710,7730,7750,7770",@false,0) BoxButtonDraw(1,3,"LTE5000 Series (7.32 RevA)","50,600,450,650") BoxDrawText(1,"450,600,900,650","5150,5200,5250,5280,5300,5400",@false,0) BoxButtonDraw(1,4,"Elite Series (486N3_97.12.23 RevA)","50,675,450,725") BoxDrawText(1,"450,675,900,725","Elite 475 (486 Laptop)",@false,0) BoxButtonDraw(1,5,"Return to Drivers Menu","650,925,900,975") iBox=0 BoxButtonWait() while iBox==0 for x=1 to 5 if BoxButtonStat(1,x) then iBox=x next end while if iBox BoxDataClear(1,"TOP") switch iBox case 1 goto Do4100 break case 2 goto Do7700 break case 3 goto Do5000 break case 4 goto Do475 break case 5 goto DoDrivers break end switch endif goto DoLSoftpaq :Do4100 RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp7075.exe") goto DoLSoftpaq :Do7700 RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp7575.exe") goto DoLSoftpaq :Do5000 RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp7804.exe") goto DoLSoftpaq :Do475 RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp5989.exe") goto DoLSoftpaq :end
Article ID: W14243
Filename: Win95a and OSR2 Version and Other Updates.txt
File Created: 2001:03:01:14:38:56
Last Updated: 2001:03:01:14:38:56