home *** CD-ROM | disk | FTP | other *** search
/ Online Praxis 1997 March / OP2_97.BIN / cd-rom / treiber / itk / wnt / pico222n.exe / DISK2 / OEMSETUP.INF < prev    next >
INI File  |  1997-04-11  |  78KB  |  2,219 lines
  1. [Identification]
  2. OptionType = NetAdapter
  3. [PlatformsSupported]
  4. ISA
  5. EISA
  6. PCI
  7. PCMCIA
  8. [LanguagesSupported]
  9. ENG
  10. GER
  11. [PreferredLanguage]
  12. Language = ENG
  13. [ISSetupOptions]
  14. ExternalSetup    = 0
  15. ExternalSrcDir   = ""
  16. ExternalRasDir   = ""
  17. ExternalHWnd     = ""
  18. [PacketNames]
  19. 1 = ixactive       3     01
  20. 2 = ixmicro        2     20
  21. 3 = ixpico         2     20
  22. 4 = vinwm          0     9
  23. [DriverNames]
  24. 1 = ixactive
  25. 2 = ixmicro
  26. 3 = ixpico
  27. [Options]
  28. 1  "ix1-basic-ISA V1.1"    0     1        2        1           2       
  29. 1  "ix1-basic-ISA V1.2"    0     2        2        1           2       
  30. 1  "ix1-basic-PCI V1.1"    4     1        2        1           2       
  31. 1  "ix1-octo"              1     0        8        4           2       
  32. 1  "primaryPCI"            5     0        30       1           30
  33. 1  "ix1-primary-EISA"      2     0        30       1           30      
  34. 1  "ix1-multimodem"        3     0        8        1           8        
  35. 2  "micro2x"            4096     2        2        1           2       
  36. 2  "micro3x"            4099     2        2        1           2        
  37. 3  "pico"               4098     2        2        1           2       
  38. 2  "ColumbusCard 2.1"   4096     2        2        1           2       
  39. 2  "ColumbusCard 3.0"   4099     2        2        1           2        
  40. [OptionsTextGER]
  41. "ix1-basic-ISA V1.1"  = "ITK ix1-basic ISA V1.1 ISDN Adapter (2 KanΣle)"               "ITK ix1-basic-ISA V1.1"  "ITK ix1-active"     "ix1basic"
  42. "ix1-basic-ISA V1.2"  = "ITK ix1-basic ISA V1.2 ISDN Adapter (2 KanΣle)"               "ITK ix1-basic-ISA V1.2"  "ITK ix1-active"     "ix1basic"
  43. "ix1-basic-PCI V1.1"  = "ITK ix1-basic PCI V1.x ISDN Adapter (2 KanΣle)"               "ITK ix1-basic-PCI V1.1"  "ITK ix1-active"     "ix1basic"
  44. "ix1-octo"            = "ITK ix1-octo ISDN Adapter (8 KanΣle)"                         "ITK ix1-octo"            "ITK ix1-active"     "ix1octo"
  45. "primaryPCI"          = "ITK ix1-primary PCI ISDN Adapter (30 KanΣle)"                 "ITK ix1-primary-PCI"     "ITK ix1-active"     "ix1primary"
  46. "ix1-primary-EISA"    = "ITK ix1-primary EISA ISDN Adapter (30 KanΣle)"                "ITK ix1-primary-EISA"    "ITK ix1-active"     "ix1primary"
  47. "ix1-multimodem"      = "ITK ix1-multimodem fⁿr MVIP"                                  "ITK ix1-multimodem"      "ITK ix1-active"     "ix1multimodem"
  48. "micro2x"             = "ITK ix1-micro ISA V2.x ISDN Adapter (2 KanΣle)"               "ITK ix1-micro-ISA V2.x"  "ITK ix1-micro"      "ix1micro"
  49. "micro3x"             = "ITK ix1-micro Plug & Play ISA V3.x ISDN Adapter (2 KanΣle)"   "ITK ix1-micro-ISA V3.x"  "ITK ix1-micro"      "ix1micro"
  50. "pico"                = "ITK ix1-pico PCMCIA ISDN Adapter (2 KanΣle)"                  "ITK ix1-pico-PCMCIA"     "ITK ix1-pico"       "ix1pico"
  51. "ColumbusCard 2.1"    = "ITK ColumbusCard V2.1 ISDN Adapter (2 KanΣle)"                "ITK ColumbusCard V2.1"     "ITK ColumbusCard" "ColumbusCard"
  52. "ColumbusCard 3.0"    = "ITK ColumbusCard V3.x ISA PnP ISDN Adapter (2 KanΣle)"        "ITK ColumbusCard V3.0 PnP" "ITK ColumbusCard" "ColumbusCard"
  53. [OptionsTextENG]
  54. "ix1-basic-ISA V1.1"  = "ITK ix1-basic ISA V1.1 ISDN Adapter (2 channels)"             "ITK ix1-basic-ISA V1.1"  "ITK ix1-active"     "ix1basic"     
  55. "ix1-basic-ISA V1.2"  = "ITK ix1-basic ISA V1.2 ISDN Adapter (2 channels)"             "ITK ix1-basic-ISA V1.2"  "ITK ix1-active"     "ix1basic"     
  56. "basicPCI"            = "ITK ix1-basic PCI V1.x ISDN Adapter (2 channels)"             "ITK ix1-basic-PCI V1.1"  "ITK ix1-active"     "ix1basic"     
  57. "ix1-octo"            = "ITK ix1-octo ISDN Adapter (8 channels)"                       "ITK ix1-octo"            "ITK ix1-active"     "ix1octo"      
  58. "primaryPCI"          = "ITK ix1-primary PCI ISDN Adapter (30 channels)"               "ITK ix1-primary-PCI"      "ITK ix1-active"     "ix1primary"   
  59. "ix1-primary-EISA"    = "ITK ix1-primary EISA ISDN Adapter (30 channels)"              "ITK ix1-primary-EISA"    "ITK ix1-active"     "ix1primary"   
  60. "ix1-multimodem"      = "ITK ix1-multimodem for MVIP"                                  "ITK ix1-multimodem"      "ITK ix1-active"     "ix1multimodem"
  61. "micro2x"             = "ITK ix1-micro ISA V2.x ISDN Adapter (2 channels)"             "ITK ix1-micro-ISA V2.x"  "ITK ix1-micro"      "ix1micro"     
  62. "micro3x"             = "ITK ix1-micro Plug & Play ISA V3.x ISDN Adapter (2 channels)" "ITK ix1-micro-ISA V3.x"  "ITK ix1-micro"      "ix1micro"     
  63. "pico"                = "ITK ix1-pico ISDN Adapter (2 channels)"                       "ITK ix1-pico-PCMCIA"     "ITK ix1-pico"       "ix1pico"      
  64. "ColumbusCard 2.1"    = "ITK ColumbusCard V2.1 ISDN Adapter (2 channels)"              "ITK ColumbusCard V2.1"     "ITK ColumbusCard" "ColumbusCard"
  65. "ColumbusCard 3.0"    = "ITK ColumbusCard V3.x ISA PnP ISDN Adapter (2 channels)"      "ITK ColumbusCard V3.0 PnP" "ITK ColumbusCard" "ColumbusCard"
  66. [Source Media Descriptions]
  67. 1 = "Windows NT CAPI Installation"
  68. [Files-Inf]
  69. 1, oemsetup.inf,  SIZE=63, RENAME=$(!UG_FILENAME)
  70. [Files-Driver1]
  71. 1, ixactive.sys,    SIZE=243
  72. [Files-Driver2]
  73. 1, ixmicro.sys,   SIZE=243
  74. [Files-Driver3]
  75. 1, ixpico.sys,   SIZE=243
  76. [Files-CapiDll]
  77. 1, capi2032.dll,  SIZE=45
  78. [Files-Firm]
  79. 1, iconf.exe,     SIZE=200
  80. 1, iconf.hlp,     SIZE=9
  81. [Files-Util]
  82. 1, dcm.exe,       SIZE=208
  83. [Files-DiskCard1]
  84. 1, ix.bin,        SIZE=430
  85. 1, ixboot.scr,    SIZE=33
  86. [Files-DiskCard2]
  87. 1, ix.bin,        SIZE=430
  88. 1, ixboot.scr,    SIZE=33
  89. [Files-DiskCard3]
  90. 1, ix.bin,        SIZE=430
  91. 1, ixboot.scr,    SIZE=33
  92. [Files-DiskCard4]
  93. 1, ixo.bin,       SIZE=711
  94. 1, ixboot.scr,    SIZE=33
  95. [Files-DiskCard5]
  96. 1, ixpp.bin,       SIZE=430
  97. [Files-DiskCard6]
  98. 1, ixp.bin,       SIZE=430
  99. 1, ixpboot.scr,   SIZE=33
  100. [Files-DiskCard7]
  101. 1, ixm.bin,       SIZE=386
  102. 1, ixmboot.scr,   SIZE=33
  103. [Files-DiskWAN]
  104. 1, vinwm.sys, SIZE=217, RENAME=$(WanImageName)".sys"
  105. 1, vinwmhlp.sys, SIZE=13
  106. [FilesToRemove]
  107. RemoveNow1            = {}
  108. RemoveAtReboot1        = { {"drivers\"$(WanImageName)".sys","drivers\"$(WanImageName)".bak"} }                                                                   
  109. RemoveNowCommon1      = { $(!UG_FILENAME),$(FirmDir)"\"$(BinFileName),$(FirmDir)"\"$(BootFileName) }
  110. RemoveAtRebootCommon1 = { {"drivers\"$(DriverSysFileName),"drivers\"$(DriverBakFileName)} }
  111. RemoveNow2            = {}
  112. RemoveAtReboot2        = { {"drivers\"$(WanImageName)".sys","drivers\"$(WanImageName)".bak"} }
  113. RemoveNowCommon2      = { $(!UG_FILENAME) }
  114. RemoveAtRebootCommon2 = { {"drivers\"$(DriverSysFileName),"drivers\"$(DriverBakFileName)} }
  115. RemoveNow3            = {}
  116. RemoveAtReboot3        = { {"drivers\"$(WanImageName)".sys","drivers\"$(WanImageName)".bak"} }
  117. RemoveNowCommon3      = { $(!UG_FILENAME) }
  118. RemoveAtRebootCommon3 = { {"drivers\"$(DriverSysFileName),"drivers\"$(DriverBakFileName)} }
  119. RemoveNowCommon       = { $(FirmDir)"\"$(FirmUiExe),+
  120. $(FirmDir)"\"$(FirmUiHlp),+
  121. $(FirmDir)"\dcm.exe"+
  122. }
  123. RemoveAtRebootCommon  = { { "capi2032.dll","capi2032.bak"}, +
  124. { "drivers\"$(HlpDrvName)".sys","drivers\"$(HlpDrvName)".bak"} +
  125. }
  126. [ConfigurationDefaultsISA]
  127. IOBASE_Value   = 912
  128. ORDINAL_Value  = 1
  129. IRQ_Value      = 11
  130. [ConfigurationDefaultsEISA]
  131. IOBASE_Value   = 65535
  132. ORDINAL_Value  = 1
  133. IRQ_Value      = 10
  134. [ConfigurationDefaultsMCA]
  135. IOBASE_Value   = 65535
  136. ORDINAL_Value  = 65535
  137. IRQ_Value      = 65535
  138. [ConfigurationDefaultsPCI]
  139. IOBASE_Value   = 65535
  140. ORDINAL_Value  = 0
  141. IRQ_Value      = 65535
  142. [ConfigurationDefaultsPCMCIA]
  143. IOBASE_Value    = 912
  144. ORDINAL_Value   = 0
  145. IRQ_Value       = 11
  146. [FileConstantsGER]
  147. FunctionTitle          = $(Packet)" Treibereinrichtung"
  148. ShellCodeErrorTitle    = "Fehler: "$(FunctionTitle)
  149. ShellCodeErrorText     = "Shell-Codefehler"
  150. HardwareTitleWAN       = $(WanName)
  151. HardwareDescriptionWAN = $(WanName)
  152. [FileConstantsENG]
  153. FunctionTitle          = $(Packet)" Driver Setup"
  154. ShellCodeErrorTitle    = "Error: "$(FunctionTitle)
  155. ShellCodeErrorText     = "Shell-Code Error"
  156. HardwareTitleWAN       = $(WanName)
  157. HardwareDescriptionWAN = $(Wanname)
  158. [DialogConstantsGER]
  159. HelpContext          = ""
  160. Help                 = "&Hilfe"
  161. Continue             = "Fortsetzen"
  162. Exit                 = "Abbrechen"
  163. OK                   = "OK"
  164. ProCaption           = "Windows NT-Setup"
  165. ProCancel            = "Abbrechen"
  166. ProCancelMsg         = "Die Netzwerkunterstⁿtzung ist nicht korrekt installiert. Sind Sie sicher, da▀ Sie das Kopieren der Dateien abbrechen m÷chten?"
  167. ProCancelCap         = "Meldung zur Netzwerkeinrichtung"
  168. ProText1             = "Kopiert:"
  169. ProText2             = "Nach:"
  170. CantConfigSoftware   = "Die Software kann nicht konfiguriert werden"
  171. CantUpdateHardware   = "Die Hardware kann nicht aktualisiert werden"
  172. CantChangeBinding    = "Die Bindungsdaten k÷nnen nicht verΣndert werden"
  173. CantFindCard         = "Im Konfigurationsspeicher ist keine "$(Packet)" Karte eingetragen."
  174. CantFindMoreCards    = "Im Konfigurationsspeicher ist keine weitere "$(Packet)" Karte eingetragen."
  175. CantFindOldCard      = "Die Karte ist nicht mehr im Konfigurationsspeicher eingetragen."
  176. CantVerifySetting    = "Die eingestellten Werte k÷nnen zur Zeit nicht "+
  177. "auf Konflikte mit anderen Systemkomponenten "+
  178. "ⁿberprⁿft werden."$(!LF)+
  179. "Fehlerhafte Einstellungen k÷nnen zu Fehlern beim "+
  180. "Hochfahren des Systems fⁿhren."$(!LF)$(!LF)+
  181. "WΣhlen Sie OK, wenn die eingestellten Werte "+
  182. "benutzt werden sollen, anderenfalls wΣhlen Sie "+
  183. "Abbrechen um die Werte nochmals zu kontrollieren!"
  184. CantFindGroupOrder   = "Die Service Group Order List wurde nicht in der Registry gefunden. Die CAPI20 Service Group kann deshalb nicht eingetragen werden."
  185. BadGroupOrder        = "In der Service Group Order List in der Registry fehlt der NDIS Eintrag. Die CAPI20 Service Group deshalb nicht eingetragen werden."
  186. CantWriteGroupOrder  = "Beim Schreiben der aktualisierten Service Group Order List in die Registry trat ein Fehler auf."
  187. BadCapiDeviceConfig  = "Die CAPI20 Konfigurationsdaten in der Registry (SOFTWARE\CAPI20) sind teilweise fehlerhaft. Dies kann zu Fehlern beim Start von CAPI Applikationen fⁿhren."
  188. CantCreateCapiDevice = "Beim Schreiben der "$(Packet)" CAPI20 "+
  189. "Konfigurationsdaten "+
  190. "in die Registry (SOFTWARE\CAPI20) trat ein "+
  191. "Fehler auf. Dadurch k÷nnen CAPI Applikationen "+
  192. "nicht auf den Adapter zugreifen."
  193. ContinueAnyway       = $(!LF)$(!LF)"WΣhlen Sie OK, wenn Sie die Installation "+
  194. "des "$(Packet)" Adapters trotzdem "+
  195. "fortsetzen wollen, anderenfalls Abbrechen."
  196. CantRemoveCapiDevice = "Die CAPI20 Konfigurationsdaten des Adapters "+
  197. "k÷nnen nicht gel÷scht werden, da der "+
  198. "entsprechende Adapterparameter (CapiDevice) nicht "+
  199. "ermittelt werden konnte."
  200. CantRemoveDevice     = "Der Eintrag fⁿr den Adapter in den "$(Packet)+
  201. " Parametern kann nicht gel÷scht werden, da der "+
  202. "entsprechende Adapterparameter nicht "+
  203. "ermittelt werden konnte."
  204. AdapterSetupReady    = "Die "$(Packet)" Adaptereinrichtung ist abgeschlossen."
  205. AskForUpdateOld      = "Sind Sie sicher, da▀ Sie die installierte Version "
  206. AskForUpdateNew      = " durch die Version "
  207. AskForUpdateEnd      = " ersetzen wollen ?"$(!LF)$(!LF)+
  208. "WΣhlen Sie OK, wenn die Ersetzung ausgefⁿhrt "+
  209. "werden soll, anderenfalls Abbrechen."
  210. CantSeeInfFile       = "Der aktuelle Name der "$(Packet)" INF Datei kann nicht ermittelt werden"
  211. UpdateText           = "Der auf Ihrem System installierte Treiber kann nicht mit der Update-Funktion "+
  212. "aktualisiert werden. Deinstallieren Sie ihn und installieren Sie dann den "+
  213. "neuen Treiber."
  214. [DialogConstantsENG]
  215. HelpContext          = ""
  216. Help                 = "&Help"
  217. Continue             = "Continue"
  218. Exit                 = "Exit"
  219. OK                   = "OK"
  220. ProCaption           = "Windows NT-Setup"
  221. ProCancel            = "Cancel"
  222. ProCancelMsg         = "Network support is not correctly installed. "+
  223. "Are you sure that you want to cancel the copy operation?"
  224. ProCancelCap         = "Network Setup Message"
  225. ProText1             = "Copies:"
  226. ProText2             = "To:"
  227. CantConfigSoftware   = "Cannot configure the software component"
  228. CantUpdateHardware   = "Cannot update the hardware component"
  229. CantChangeBinding    = "Cannot change binding"
  230. CantFindCard         = "Cannot find any "$(Packet)" card in configuration memory."
  231. CantFindMoreCards    = "There are no further "$(Packet)" card entries in configuration memory."
  232. CantFindOldCard      = "There is no entry for this card in configuration memory."
  233. CantVerifySetting    = "Sorry, cannot check your configured values for "+
  234. "conflicts whith other system components."$(!LF)+
  235. "Conflicting values may result in errors when "+
  236. "the system is rebooted."$(!LF)$(!LF)+
  237. "Choose OK if the values should be used, otherwise "+
  238. "choose Cancel to check them once more!"
  239. CantFindGroupOrder   = "Could not find the Service Group Order List in registry and thus could not add the CAPI20 service up to this list."
  240. BadGroupOrder        = "Could not find the NDIS entry in the Service Group Order List in registry and thus could not add the 20 service group to this list."
  241. CantWriteGroupOrder  = "Failed to write the updated Service Group Order List to registry."
  242. BadCapiDeviceConfig  = "The CAPI20 configuration info in registry (SOFTWARE\Capi20) is partially incorrect. This may result in errors when executing CAPI applications."
  243. CantCreateCapiDevice = "Failed to write the "$(Packet)" CAPI20 configuration info to registry (SOFTWARE\CAPI20). CAPI applications will fail to access the adapter."
  244. ContinueAnyway       = $(!LF)$(!LF)"Choose OK to ignore the errors and to continue "$(Packet)" adapter setup, otherwise choose Cancel."
  245. CantRemoveCapiDevice = "Cannot remove the CAPI20 configuration info for the adapter cause the corresponding adapter parameter could not be found."
  246. CantRemoveDevice     = "Cannot remove the adapter link from the "$(Packet)" parameters key cause the corresponding adapter could not be found."
  247. AdapterSetupReady    = $(Packet)" Adapter installation is complete."
  248. AskForUpdateOld      = "Are you sure that you want to replace the installed version "
  249. AskForUpdateNew      = " by version "
  250. AskForUpdateEnd      = " ?"$(!LF)$(!LF)"Choose OK to replace, otherwise choose Cancel."
  251. CantSeeInfFile       = "Cannot determine the current name of the "$(Packet)" INF file"
  252. UpdateText           = "Your currently installed driver cannot be updated. "+
  253. "Please remove it and install the new one."
  254. [InvokeRasDlgENG]
  255. InvokeRasSetupMsg   = $(FirmText)" ISDN WAN Miniport Driver setup is complete. "+
  256. "Remote Access Services (RAS) must now be installed. "+
  257. "Please configure the "$(WanName)" ports in RAS "+
  258. "setup to enable you to use RAS over ISDN. "+
  259. $(!LF)$(!LF)"NOTE: Don't reboot before adding ISDN ports!"
  260. InvokeRasConfigMsg  = $(FirmText)" ISDN WAN Miniport Driver setup is complete. "+
  261. "Remote Access Services (RAS) setup must now be invoked. "+
  262. "Please configure the "$(WanName)" ports in RAS "+
  263. "setup to enable you to use RAS over ISDN. "+
  264. $(!LF)$(!LF)"NOTE: Don't reboot before adding ISDN ports!"
  265. InvokeRasError      = $(FirmText)" ISDN WAN Miniport Driver setup encountered an error "+
  266. "while invoking the RAS setup INF file (OEMNSVRA.INF). "+
  267. "Please make sure that the file is present in the "+
  268. "System32 directory and is the proper file."
  269. [InvokeRasDlgGER]
  270. InvokeRasSetupMsg   = $(FirmText)" ISDN WAN Miniport Driver Setup ist beendet. "+
  271. "Installieren Sie nun den Remote Access Service (RAS). "+
  272. "Bitte konfigurieren Sie dabei die "$(WanName)" Ports im RAS "+
  273. "Setup, um RAS ⁿber ISDN nutzen zu k÷nnen. "+
  274. $(!LF)$(!LF)"WICHTIG: Booten Sie nicht, bevor die RAS-Ports konfiguriert sind."
  275. InvokeRasConfigMsg  = $(FirmText)" ISDN WAN Miniport Driver setup ist beendet. "+
  276. "Konfigurieren Sie nun den Remote Access Service (RAS). "+
  277. "Bitte konfigurieren Sie die "$(WanName)" Ports, um RAS ⁿber ISDN "+
  278. "nutzen zu k÷nnen. "+
  279. $(!LF)$(!LF)"WICHTIG: Booten Sie nicht, bevor die RAS-Ports konfiguriert sind."
  280. InvokeRasError      = "Das "$(FirmText)" ISDN WAN Miniport Driver Setup hat einen Fehler "+
  281. "wΣhrend des Aufrufs der RAS Setup INF Datei festgestellt (OEMNSVRA.INF)."+
  282. "Sorgen Sie bitte dafⁿr, da▀ diese Datei in Ihrem System32-Verzeichnis"+
  283. "vorhanden ist."
  284. [ISInvokeRasDlgENG]
  285. InvokeRasSetupMsg   = "Setup will now install the Remote Access Services (RAS). "+
  286. "Please configure the "$(WanName)" ports in RAS "+
  287. "setup to enable you to use RAS over ISDN. "
  288. InvokeRasConfigMsg  = "Remote Access Services (RAS) setup will now be invoked. "+
  289. "Please configure the "$(WanName)" ports in RAS "+
  290. "setup to enable you to use RAS over ISDN. "
  291. InvokeRasError      = $(FirmText)" ISDN WAN Miniport Driver setup encountered an error "+
  292. "while invoking the RAS setup INF file (OEMNSVRA.INF). "+
  293. "Please make sure that the file is present in the "+
  294. "System32 directory and is the proper file."
  295. [ISInvokeRasDlgGER]
  296. InvokeRasSetupMsg   = "Setup installiert nun den Remote Access Service (RAS). "+
  297. "Bitte konfigurieren Sie dabei die "$(WanName)" Ports im RAS "+
  298. "Setup, um RAS ⁿber ISDN nutzen zu k÷nnen. "
  299. InvokeRasConfigMsg  = "Konfigurieren Sie nun den Remote Access Service (RAS). "+
  300. "Bitte konfigurieren Sie die "$(WanName)" Ports, um RAS ⁿber ISDN "+
  301. "nutzen zu k÷nnen. "
  302. InvokeRasError      = "Das "$(FirmText)" ISDN WAN Miniport Driver Setup hat einen Fehler "+
  303. "wΣhrend des Aufrufs der RAS Setup INF Datei festgestellt (OEMNSVRA.INF)."+
  304. "Sorgen Sie bitte dafⁿr, da▀ diese Datei in Ihrem System32-Verzeichnis"+
  305. "vorhanden ist."
  306. [GeneralConstants]
  307. CardFlag = 2
  308. HlpDrvName = "vinwmhlp"
  309. CMCString = "HSJ"
  310. Manufacturer   = "ITK AG"
  311. FirmText       = "ITK"
  312. FirmDir        = "ITK"
  313. FirmUiExe      = "iconf.exe"
  314. FirmUiHlp      = "iconf.hlp"
  315. pcmciaManufacturerString ="ITK ix1-pico"
  316. pcmciaDeviceString       ="ISDN-Adapter              "
  317. pcmciaOptionValue        ="ixpico"
  318. Packet               = #(PacketNames,$(CardFlag),1)
  319. MajorVersion         = #(PacketNames,$(CardFlag),2)
  320. MinorVersion         = #(PacketNames,$(CardFlag),3)
  321. MajorVersionWan      = #(PacketNames,4 ,2)
  322. MinorVersionWan      = #(PacketNames,4 ,3)
  323. DriverSysFileName    = #(DriverNames,$(CardFlag),1)".sys"
  324. DriverBakFileName    = #(DriverNames,$(CardFlag),1)".bak"
  325. WanOrgName = #(PacketNames,4,1)
  326. UtilInf  = "UTILITY.INF"
  327. ParmInf  = "NCPARAM.INF"
  328. SubrInf  = "SUBROUTN.INF"
  329. InfName  = $(FirmText)" OEMSETUP.INF"
  330. NetEventDLL     = "%systemroot%\system32\netevent.dll"
  331. IoLogMsgDLL     = "%systemroot%\system32\oologmsg.dll"
  332. MAXPERM = 33554432
  333. KeyNull = ""
  334. NoTitle  = 0
  335. Logo              = $(Packet)" Driver (c) "$(Manufacturer)
  336. Version           = $(MajorVersion)"."$(MinorVersion)
  337. VersionWan        = $(MajorVersionWan)"."$(MinorVersionWan)
  338. SoftwareName         = $(Packet)
  339. SoftwareType         = "driver"
  340. SoftwareServiceName  = $(SoftwareName)
  341. SoftwareServiceGroup = "CAPI20"
  342. SoftwareServiceType  = "kernelautostart"
  343. SoftwareImagePath    = "\systemroot\system32\drivers\"
  344. SoftwareBase         = $(!NTN_SoftwareBase)"\"$(Manufacturer)
  345. SoftwareKeyNameWAN   = $(SoftwareBase)"\"$(WanName)"\CurrentVersion"
  346. SoftwareKeyName      = $(SoftwareBase)"\"$(Packet)"\CurrentVersion"
  347. NetRuleSoftwareType     = $(Packet)"Sys "$(Packet)"Driver"
  348. NetRuleSoftwareUse      = $(SoftwareType)
  349. NetRuleSoftwareBindForm = """"$(Packet)"Driver"" yes no container"
  350. NetRuleSoftwareBindable = {$(Packet)"Driver "$(Packet)"Adapter non exclusive 100"}
  351. NetRuleSoftwareClass = {$(Packet)"Driver basic"}
  352. NetRuleSoftwareBindFormWAN = """"$(WanName)"Driver"" yes no container"
  353. NetRuleSoftwareBindableWAN = { $(WanName)"Driver "$(WanName)"Adapter non non 100" }
  354. NetRuleSoftwareClassWAN = {$(WanName)"Driver basic"}
  355. HardwareName            = $(Packet)
  356. HardwareImagePath       = "\systemroot\system32\drivers\"
  357. NetRuleHardwareType     = $(Packet)" "$(Packet)"Adapter"
  358. NetRuleHardwareBindForm = " yes yes container"
  359. NetRuleHardwareClass    = {$(Packet)"Adapter basic"}
  360. HardwareNameWAN         = $(WanName)
  361. HardwareImagePathWAN    = "\systemroot\system32\drivers\"
  362. NetRuleHardwareTypeWAN     = $(WanName)" "$(WanName)"Adapter"
  363. NetRuleHardwareBindFormWAN = " yes yes container"
  364. NetRuleHardwareClassWAN = {$(WanName)"Adapter basic"}
  365. CapiDevicesPath         = $(!NTN_SoftwareBase)"\CAPI20"
  366. MCA_POS_ID_HIGHBYTE     = 112
  367. MCA_POS_ID_LOWBYTE      = 230
  368. MCA_POS_ID              = 28902
  369. CurrentControlSet = "SYSTEM\CurrentControlSet"
  370. ServiceBase       = $(CurrentControlSet)"\Services"
  371. ServicePath       = $(ServiceBase)"\"$(SoftwareServiceName)
  372. ServiceParameters = $(ServicePath)"\Parameters"
  373. ControlBase       = $(CurrentControlSet)"\Control"
  374. ServiceGroupOrder = $(ControlBase)"\ServiceGroupOrder"
  375. NetworkCardsBase  = $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards"
  376. LineType                = 1
  377. [date]
  378. Now = {} ? $(!LIBHANDLE) GetSystemDate
  379. [Identify]
  380. read-syms Identification
  381. set Status     = STATUS_SUCCESSFUL
  382. set Identifier = $(OptionType)
  383. set Media      = #("Source Media Descriptions", 1, 1)
  384. return $(Status) $(Identifier) $(Media)
  385. [ReturnOptions]
  386. Set OldDebugControl = $(!DebugOutputControl)
  387. Set !DebugOutputControl = 1
  388. read-syms PreferredLanguage
  389. read-syms GeneralConstants
  390. ifstr $(Language) == ""
  391. set Language = "ENG"
  392. set LanguageList = ^(LanguagesSupported, 1)
  393. ifcontains(i) $($0) IN $(LanguageList)
  394. set Language = $($0)
  395. endif
  396. endif
  397. set OptionList     = {}
  398. set OptionTextList = {}
  399. set bufTypeList     = ^(Options, 1)
  400. set bufOptionList     = ^(Options, 2)
  401. set bufOptionTextList = ^(OptionsText$(Language), 1)
  402. ForListDo $(bufOptionList)
  403. set cnt = $(#)
  404. ifstr *( $(bufTypeList), $(cnt) ) == $(CardFlag)
  405. set OptionList       = >( $(OptionList), $($) )
  406. set OptionTextList   = >( $(OptionTextList), *( $(bufOptionTextList), $(cnt) ) )
  407. endif
  408. EndForListDo
  409. return STATUS_SUCCESSFUL $(OptionList) $(OptionTextList)
  410. [InstallOption]
  411. Set OldDebugControl = $(!DebugOutputControl)
  412. Set !DebugOutputControl = 1
  413. read-syms PreferredLanguage
  414. ifstr $(Language) == ""
  415. set Language = "ENG"
  416. set LanguageList = ^(LanguagesSupported, 1)
  417. ifcontains(i) $($0) IN $(LanguageList)
  418. set Language = $($0)
  419. endif
  420. endif
  421. set Option     = $($1)
  422. set OptionName = $($1)
  423. set SrcDir     = $($2)
  424. set RasDir     = $($2)
  425. set AddCopy    = $($3)
  426. set DoCopy     = $($4)
  427. set DoConfig   = $($5)
  428. read-syms ISSetupOptions
  429. ifstr $(ExternalSetup) == "1"
  430. set SrcDir = $(ExternalSrcDir)
  431. endif
  432. set SplitList = {}
  433. split-string $(SrcDir) "\" SplitList
  434. querylistsize SplitCount $(SplitList)
  435. ifstr(i) "\" != *($(SplitList), $(SplitCount))
  436. set SrcDir = $(SrcDir)"\"
  437. endif
  438. ForListDo  ^(Options, 2)
  439. ifstr $($) == $(OptionName)
  440. set CardNumber = $(#)
  441. endif
  442. EndForListDo
  443. set CardList = ^(Options, 2)
  444. read-syms GeneralConstants
  445. read-syms FileConstants$(Language)
  446. read-syms DialogConstants$(Language)
  447. ifstr(i) $(!NTN_Origination) == "NCPA"
  448. set Continue = $(OK)
  449. endif
  450. detect date
  451. set-title $(FunctionTitle)
  452. read-syms OptionsText$(Language)
  453. set TitleList              = ^(OptionsText$(Language), 2)
  454. set DisplayNameList        = ^(OptionsText$(Language), 3)
  455. set WanSuffixList        = ^(OptionsText$(Language), 4)
  456. set CardTitle = *($(TitleList), $(CardNumber))
  457. set HardwareTitle          = *($(TitleList), $(CardNumber))" Adapter"
  458. set HardwareDescription    = $(HardwareTitle)
  459. set SoftwareTitle          = *($(TitleList), $(CardNumber))" Driver"
  460. set SoftwareDescription    = $(SoftwareTitle)
  461. set SoftwareDisplayName    = *($(DisplayNameList), $(CardNumber))
  462. set WanSuffix              = *($(WanSuffixList), $(CardNumber))
  463. set SoftwareTitleWAN       = *($(TitleList), $(CardNumber))" ISDN WAN Miniport Driver"
  464. set SoftwareDescriptionWAN = $(SoftwareTitleWAN)
  465. set NewInstallation = FALSE
  466. set RegistryError      = NO_ERROR
  467. set CapiDevice         = -1
  468. set NewCapiDevice      = -1
  469. set ISDNAdapterNumber  = -1
  470. set WANAdapterNumber   = -1
  471. set CardType           = -1
  472. set CardRevision       = -1
  473. set Channels           = -1
  474. set BusType            = -1
  475. set BusNumber          = -1
  476. set Pcmcia             = 0
  477. set MediaType          = 0
  478. set BusName            = ""
  479. set KnownMcaSlots      = {}
  480. set AddedMcaSlots      = {}
  481. set HlpDrvRemoved      = 0
  482. ifstr $(CardFlag) == 1
  483. set FilesDiskSectionName = "Files-DiskCard"$(CardNumber)
  484. set FileNameList = ^($(FilesDiskSectionName),2)
  485. set BinFileName  = *($(FileNameList),1)
  486. set BootFileName = *($(FileNameList),2)
  487. set BootFilePath = $(!STF_WINDOWSSYSPATH)"\"$(FirmDir)"\"$(BootFileName)
  488. set BinFilePath  = $(!STF_WINDOWSSYSPATH)"\"$(FirmDir)"\"$(BinFileName)
  489. endif
  490. set DetectedCard = ""
  491. set to = fatal
  492. set from = fatal
  493. EndWait
  494. set CommonStatus = STATUS_SUCCESSFUL
  495. ifstr(i)      $(!NTN_InstallMode) == deinstall
  496. goto RemoveRequest
  497. else-ifstr(i) $(!NTN_InstallMode) == update
  498. goto UpgradeRequest
  499. else-ifstr(i) $(!NTN_InstallMode) == bind
  500. goto BindRequest
  501. else-ifstr(i) $(!NTN_InstallMode) == configure
  502. ifstr(i) $(!NTN_RegBase) == $(SoftwareKeyName)
  503. set Error = $(CantConfigSoftware)
  504. goto nonfatal
  505. endif
  506. goto ConfigureRequest
  507. endif
  508. set BusType = 1
  509. set BusName = ISA
  510. set BusNumber = 0
  511. ifstr(i) $(Option) == *($(CardList),3)
  512. set BusType = 5
  513. set BusName = "PCI"
  514. set BusNumber = 0
  515. endif
  516. ifstr(i) $(Option) == *($(CardList),5)
  517. set BusType = 5
  518. set BusName = "PCI"
  519. set BusNumber = 0
  520. endif
  521. ifstr(i) $(Option) == *($(CardList),6)
  522. set BusType = 2
  523. set BusName = "EISA"
  524. set BusNumber = 0
  525. endif
  526. ifstr $(BusName) == MCA
  527. Shell "", GetMcaSlotInfo
  528. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  529. goto ShellCodeError
  530. endif
  531. ifstr $($R0) != "NO_ERROR"
  532. ifstr $($R0) == ""
  533. set Error = $(CantFindCard)
  534. goto nonfatal
  535. else
  536. set Error = $(McaConfigError)
  537. goto fatal
  538. endif
  539. endif
  540. set KnownMcaSlots = $($R1)
  541. set AddedMcaSlots = $($R2)
  542. ifstr $(AddedMcaSlots) == {}
  543. set Error = $(CantFindMoreCards)
  544. goto nonfatal
  545. endif
  546. endif
  547. set KeySoftware = $(KeyNull)
  548. OpenRegKey $(!REG_H_LOCAL) "" $(SoftwareKeyName) $(MAXPERM) KeySoftware
  549. CloseRegKey $(KeySoftware)
  550. ifstr $(KeySoftware) == $(KeyNull)
  551. set NewInstallation = TRUE
  552. else
  553. set KeyService = $(KeyNull)
  554. OpenRegKey $(!REG_H_LOCAL) "" $(ServicePath) $(MAXPERM) KeyService
  555. CloseRegKey $(KeyService)
  556. ifstr $(KeyService) == $(KeyNull)
  557. set NewInstallation = TRUE
  558. else
  559. ifstr(i) $(!NTN_RegBase) == $(SoftwareKeyName)
  560. Shell $(UtilInf), VerExistedDlg,+
  561. $(SoftwareTitle), $(Version)
  562. goto end
  563. endif
  564. Shell $(UtilInf), CardExistedDlg
  565. ifstr(i) $($R1) != "OK"
  566. set CommonStatus = STATUS_USERCANCEL
  567. goto end
  568. endif
  569. endif
  570. endif
  571. set OEM_ABANDON_OPTIONS = {}
  572. set OEM_ABANDON_SOFTWARE = FALSE
  573. set OEM_ABANDON_ON = TRUE
  574. goto InstallRequest
  575. InstallRequest = +
  576. set OptionList                = ^(Options, 2)
  577. set TypeList                  = ^(Options, 3)
  578. set RevisionList              = ^(Options, 4)
  579. set ChannelList               = ^(Options, 5)
  580. set NumberOfControllersList   = ^(Options, 6)
  581. set ChannelsPerControllerList = ^(Options, 7)
  582. ForListDo $(OptionList)
  583. ifstr(i) $($) == $(OptionName)
  584. set CardType               = *($(TypeList), $(#))
  585. set CardRevision           = *($(RevisionList), $(#))
  586. set Channels               = *($(ChannelList), $(#))
  587. set NumberOfControllers    = *($(NumberOfControllersList), $(#))
  588. set ChannelsPerController  = *($(ChannelsPerControllerList), $(#))
  589. endif
  590. EndForListDo
  591. read-syms ConfigurationDefaults$(BusName)
  592. addCapiDriverToRegistry = +
  593. ifstr(i) $(NewInstallation) == FALSE
  594. goto AddAdapter
  595. endif
  596. Set ProductKeyName      = $(ServiceParameters)
  597. Set KeyProduct          = $(KeyNull)
  598. OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXPERM) KeyProduct
  599. CloseRegKey $(KeyProduct)
  600. IfStr $(KeyProduct) != $(KeyNull)
  601. goto AddAdapter
  602. EndIf
  603. Shell $(UtilInf), AddSoftwareComponent, +
  604. $(Manufacturer), +
  605. $(SoftwareName), +
  606. $(SoftwareServiceName), +
  607. $(SoftwareDisplayName), +
  608. $(STF_CONTEXTINFNAME), +
  609. $(SoftwareImagePath)$(DriverSysFileName), +
  610. $(SoftwareServiceType), +
  611. $(SoftwareServiceGroup), +
  612. {}, +
  613. "", +
  614. $(NetEventDLL)
  615. set OEM_ABANDON_SOFTWARE = TRUE
  616. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  617. goto ShellCodeError
  618. endif
  619. set RegistryError        = $($R0)
  620. set KeySoftware          = $($R1)
  621. set KeySoftwareNetRules  = $($R2)
  622. set KeyService           = $($R3)
  623. set KeyServiceParameters = $($R4)
  624. CloseRegKey $($R5)
  625. ifstr(i) $(RegistryError) != NO_ERROR
  626. set to = fatalregistry
  627. goto InstallSoftwareCleanup
  628. endif
  629. set NewValueList = {+
  630. {SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  631. {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(MajorVersion)},+
  632. {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(MinorVersion)},+
  633. {Title,$(NoTitle),$(!REG_VT_SZ),$(SoftwareTitle)},+
  634. {Description,$(NoTitle),$(!REG_VT_SZ),$(SoftwareDescription)},+
  635. {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(SoftwareServiceName)},+
  636. {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}+
  637. }
  638. Shell $(UtilInf), AddValueList, $(KeySoftware), $(NewValueList)
  639. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  640. set to = ShellCodeError
  641. goto InstallSoftwareCleanup
  642. endif
  643. set RegistryError = $($R0)
  644. ifstr(i) $(RegistryError) != NO_ERROR
  645. set to = fatalregistry
  646. goto InstallSoftwareCleanup
  647. endif
  648. set NewValueList = {+
  649. {type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareType)},+
  650. {use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareUse)}, +
  651. {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareBindForm)}, +
  652. {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareClass)}, +
  653. {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareBindable)}, +
  654. {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}+
  655. }
  656. Shell $(UtilInf), AddValueList, $(KeySoftwareNetRules), $(NewValueList)
  657. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  658. set to = ShellCodeError
  659. goto InstallSoftwareCleanup
  660. endif
  661. set RegistryError = $($R0)
  662. ifstr(i) $(RegistryError) != NO_ERROR
  663. set to = fatalregistry
  664. goto InstallSoftwareCleanup
  665. endif
  666. set NewValueList = { +
  667. {Controllers,$(NoTitle),$(!REG_VT_MULTI_SZ),{}}+
  668. }
  669. Shell $(UtilInf), AddValueList, $(KeyServiceParameters), $(NewValueList)
  670. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  671. set to = ShellCodeError
  672. goto InstallSoftwareCleanup
  673. endif
  674. set RegistryError = $($R0)
  675. ifstr(i) $(RegistryError) != NO_ERROR
  676. set to = fatalregistry
  677. goto InstallSoftwareCleanup
  678. endif
  679. Shell "", UpdateGroupOrderList
  680. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  681. set to = ShellCodeError
  682. goto InstallSoftwareCleanup
  683. endif
  684. ifstr(i) $($R0) != STATUS_SUCCESSFUL
  685. ifint $($R1) == 0
  686. set Error = $(CantFindGroupOrder)
  687. else-ifint $($R1) == 1
  688. set Error = $(BadGroupOrder)
  689. else
  690. set Error = $(CantWriteGroupOrder)
  691. endif
  692. set to = fatal
  693. goto InstallSoftwareCleanup
  694. endif
  695. set to = AddAdapter
  696. InstallSoftwareCleanup = +
  697. CloseRegKey $(KeySoftware)
  698. CloseRegKey $(KeySoftwareNetRules)
  699. CloseRegKey $(KeyService)
  700. CloseRegKey $(KeyServiceParameters)
  701. goto $(to)
  702. AddAdapter = +
  703. Shell $(UtilInf), AddHardwareComponent, $(HardwareName), $(STF_CONTEXTINFNAME), $(SoftwareKeyName)
  704. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  705. goto ShellCodeError
  706. endif
  707. set RegistryError       = $($R0)
  708. set KeyNetworkCard      = $($R1)
  709. set KeyAdapterRules     = $($R2)
  710. set KeyParameters       = $($R3)
  711. set ISDNAdapterNumber   = $($R4)
  712. set DeviceName          = $($R5)
  713. ifint $(ISDNAdapterNumber) != -1
  714. set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(NetworkCardsBase)"\"$(ISDNAdapterNumber))
  715. endif
  716. ifstr(i) $(RegistryError) != NO_ERROR
  717. set to = fatalregistry
  718. goto AddAdapterCleanup
  719. endif
  720. set NewValueList = { {Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
  721. {Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(HardwareTitle)},+
  722. {Description,$(NoTitle),$(!REG_VT_SZ),$(HardwareDescription)},+
  723. {ProductName,$(NoTitle),$(!REG_VT_SZ),$(HardwareName)},+
  724. {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
  725. {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}+
  726. }
  727. Shell  $(UtilInf), AddValueList, $(KeyNetworkCard), $(NewValueList)
  728. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  729. set to = ShellCodeError
  730. goto AddAdapterCleanup
  731. endif
  732. set RegistryError = $($R0)
  733. ifstr(i) $(RegistryError) != NO_ERROR
  734. set to = fatalregistry
  735. goto AddAdapterCleanup
  736. endif
  737. set TempProdName = """"$(HardwareName)$(ISDNAdapterNumber)""""
  738. set TempBindForm = $(TempProdName)$(NetRuleHardwareBindForm)
  739. set NewValueList = {+
  740. {type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleHardwareType) }, +
  741. {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
  742. {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleHardwareClass)}, +
  743. {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}+
  744. }
  745. Shell $(UtilInf), AddValueList, $(KeyAdapterRules), $(NewValueList)
  746. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  747. set to = ShellCodeError
  748. goto AddAdapterCleanup
  749. endif
  750. set RegistryError = $($R0)
  751. ifstr(i) $(RegistryError) != NO_ERROR
  752. set to = fatalregistry
  753. goto AddAdapterCleanup
  754. endif
  755. Shell "" CheckCapiDevices $(DeviceName)
  756. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  757. set to = ShellCodeError
  758. goto AddAdapterCleanup
  759. endif
  760. set CapiDevice = $($R1)
  761. ifint $($R0) != 0
  762. set Error = $(BadCapiDeviceConfig)$(ContinueAnyway)
  763. set from  = setfailed
  764. set to    = AddAdapterIgnoreConfigError
  765. goto warning
  766. endif
  767. AddAdapterIgnoreConfigError = +
  768. Shell "" CreateCapiDevice $(CapiDevice), $(DeviceName),$(NumberOfControllers), $(ChannelsPerController)
  769. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  770. set to = ShellCodeError
  771. goto AddAdapterCleanup
  772. endif
  773. ifstr(i) $($R0) != STATUS_SUCCESSFUL
  774. Shell "" RemoveCapiDevice $(CapiDevice)
  775. set Error = $(CantCreateCapiDevice)$(ContinueAnyway)
  776. set from = setfailed
  777. set to    = AddAdapterIgnoreCreateError
  778. goto warning
  779. else
  780. set NewCapiDevice = $(CapiDevice)
  781. endif
  782. AddAdapterIgnoreCreateError = +
  783. CloseRegKey $(KeyNetworkCard)
  784. CloseRegKey $(KeyAdapterRules)
  785. set to = InstallCAReturn
  786. goto ConfigureAdapter
  787. InstallCAReturn = +
  788. ifstr $(CardFlag) != 3
  789. goto InstallWanMiniport
  790. endif
  791. set PCMCIADatabaseKeyName = $(!NTN_ServiceBase)"\Pcmcia\DataBase"
  792. OpenRegKey $(!REG_H_LOCAL) "" $(PCMCIADatabaseKeyName) $(!REG_KEY_ALL_ACCESS) PCMCIADatabaseKey
  793. Ifstr $(PCMCIADatabaseKey) == $(KeyNULL)
  794. else
  795. OpenRegKey $(!REG_H_LOCAL) "" $(PCMCIADatabaseKeyName)"\"$(pcmciaManufacturerString) $(!REG_KEY_ALL_ACCESS) PCMCIADatabaseManuKey
  796. Ifstr $(PCMCIADatabaseManuKey) != $(KeyNULL)
  797. CloseRegKey $(PCMCIADatabaseManuKey)
  798. DeleteRegTree $(PCMCIADatabaseKey) $(pcmciaManufacturerString)
  799. Endif
  800. CreateRegKey $(PCMCIADatabaseKey)     {$(pcmciaManufacturerString), 0, 0} "" $(!REG_KEY_ALL_ACCESS) "" PCMCIADatabaseManuKey
  801. CreateRegKey $(PCMCIADatabaseManuKey) {$(pcmciaDeviceString), 0, 0} "" $(!REG_KEY_ALL_ACCESS) "" PCMCIADatabaseOurKey
  802. SetRegValue  $(PCMCIADatabaseOurKey)  {DeviceType, 0, $(!REG_VT_SZ),"NET"}
  803. SetRegValue  $(PCMCIADatabaseOurKey)  {Driver, 0, $(!REG_VT_SZ),$(SoftwareServiceName)}
  804. SetRegValue  $(PCMCIADatabaseOurKey)  {InfFileName, 0, $(!REG_VT_SZ),$(STF_CONTEXTINFNAME)}
  805. SetRegValue  $(PCMCIADatabaseOurKey)  {Option, 0, $(!REG_VT_SZ),$(pcmciaOptionValue) }
  806. CloseRegKey  $(PCMCIADatabaseOurKey)
  807. CloseRegKey  $(PCMCIADatabaseManuKey)
  808. CloseRegKey  $(PCMCIADatabaseKey)
  809. Endif
  810. InstallWanMiniport = +
  811. ifstr(i) $(Option) == *($(CardList),7)
  812. goto WANSuccessfulOption
  813. endif
  814. Set NtSoftwarePath  = $(!NTN_SoftwareBase)"\Microsoft\Windows NT"+
  815. "\CurrentVersion"
  816. Set NtSoftwareKey   = $(KeyNull)
  817. OpenRegKey $(!REG_H_LOCAL) "" $(NtSoftwarePath) $(MAXPERM) NtSoftwareKey
  818. ifstr $(NtSoftwareKey) != $(KeyNull)
  819. GetRegValue $(NtSoftwareKey), "CurrentVersion", Value
  820. CloseRegKey $(NtSoftwareKey)
  821. endif
  822. set NtVersion = *($(Value), 4)
  823. ifint $(NtVersion) < 4
  824. goto WANSuccessfulOption
  825. endif
  826. set WanName                    = "Wan"$(ISDNAdapterNumber)$(WanSuffix)
  827. set WanImageName               = $(WanName)
  828. read-syms GeneralConstants
  829. Set ProductKeyName = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(WanName)"\CurrentVersion"
  830. Shell $(UtilInf), AddSoftwareComponent, +
  831. $(Manufacturer), +
  832. $(WanName), +
  833. $(WanName), +
  834. $(WanName), +
  835. $(STF_CONTEXTINFNAME), +
  836. "\systemroot\system32\drivers\"$(WanImageName)".sys", +
  837. "kernelautostart", +
  838. "NDIS", +
  839. {"CAPI20"}, +
  840. "", +
  841. $(NetEventDLL)
  842. Set OEM_ABANDON_SOFTWARE = TRUE
  843. IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  844. GoTo ShellCodeError
  845. EndIf
  846. Set RegistryErrorIndex = $($R0)
  847. Set KeyProduct         = $($R1)
  848. Set SoftNetRulesKey    = $($R2)
  849. CloseRegKey $($R3)
  850. CloseRegKey $($R4)
  851. CloseRegKey $($R5)
  852. IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  853. EndWait
  854. CloseRegKey $(KeyProduct)
  855. CloseRegKey $(SoftNetRulesKey)
  856. GoTo FatalRegistry
  857. EndIf
  858. Set NewValueList = {+
  859. {SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  860. {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(MajorVersionWan)},+
  861. {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(MinorVersionWan)},+
  862. {Title,$(NoTitle),$(!REG_VT_SZ),$(SoftwareTitleWAN) },+
  863. {Description,$(NoTitle),$(!REG_VT_SZ), $(SoftwareDescriptionWAN) },+
  864. {ServiceName,$(NoTitle),$(!REG_VT_SZ),  $(WanName)},+
  865. {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)},+
  866. {ISDNcards,$(NoTitle),$(!REG_VT_DWORD), 0 )}+
  867. }
  868. Shell  $(UtilInf), AddValueList, $(KeyProduct), $(NewValueList)
  869. IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  870. GoTo ShellCodeError
  871. EndIf
  872. Set RegistryErrorIndex = $($R0)
  873. IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  874. CloseRegKey $(KeyProduct)
  875. CloseRegKey $(SoftNetRulesKey)
  876. GoTo FatalRegistry
  877. EndIf
  878. Set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(WanName)"Sys "$(WanName)"Driver" } ,+
  879. {use,$(NoTitle),$(!REG_VT_SZ),"driver"}, +
  880. {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareBindFormWAN)}, +
  881. {class,$(NoTitle),$(!REG_VT_MULTI_SZ),{$(WanName)"Driver basic"} }, +
  882. {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ), $(NetRuleSoftwareBindableWAN) }+
  883. {InfOption,$(NoTitle),$(!REG_VT_SZ), $(WanName)} }
  884. Shell  $(UtilInf), AddValueList, $(SoftNetRulesKey), $(NewValueList)
  885. IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  886. GoTo ShellCodeError
  887. EndIf
  888. Set RegistryErrorIndex = $($R0)
  889. CloseRegKey $(KeyProduct)
  890. CloseRegKey $(SoftNetRulesKey)
  891. IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  892. GoTo FatalRegistry
  893. EndIf
  894. WANInstallAdapter = +
  895. Shell $(UtilInf), AddHardwareComponent, $(HardwareNameWAN), $(STF_CONTEXTINFNAME), $(SoftwareKeyNameWAN)
  896. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  897. goto ShellCodeError
  898. endif
  899. set RegistryError    = $($R0)
  900. set KeyNetworkCard   = $($R1)
  901. set KeyAdapterRules  = $($R2)
  902. set KeyParametersWAN = $($R3)
  903. set WANAdapterNumber = $($R4)
  904. set DeviceNameWAN    = $($R5)
  905. ifint $(WANAdapterNumber) != -1
  906. set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(NetworkCardsBase)"\"$(WANAdapterNumber))
  907. endif
  908. ifstr(i) $(RegistryError) != NO_ERROR
  909. set to = fatalregistry
  910. goto AddAdapterCleanup
  911. endif
  912. set NewValueList = {+
  913. {Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
  914. {Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(HardwareTitleWAN)},+
  915. {Description,$(NoTitle),$(!REG_VT_SZ),$(HardwareDescriptionWAN)},+
  916. {ProductName,$(NoTitle),$(!REG_VT_SZ),$(HardwareNameWAN)},+
  917. {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
  918. {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)},+
  919. {Hidden,$(NoTitle),$(!REG_VT_DWORD),1}+
  920. }
  921. Shell  $(UtilInf), AddValueList, $(KeyNetworkCard), $(NewValueList)
  922. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  923. set to = ShellCodeError
  924. goto AddAdapterCleanupWAN
  925. endif
  926. set RegistryError = $($R0)
  927. ifstr(i) $(RegistryError) != NO_ERROR
  928. set to = fatalregistry
  929. goto AddAdapterCleanupWAN
  930. endif
  931. set TempProdName = """"$(HardwareNameWAN)$(WANAdapterNumber)""""
  932. set TempBindForm = $(TempProdName)$(NetRuleHardwareBindFormWAN)
  933. set NewValueList = {+
  934. {type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleHardwareTypeWAN) }, +
  935. {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
  936. {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleHardwareClassWAN)}, +
  937. {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}+
  938. }
  939. Shell $(UtilInf), AddValueList, $(KeyAdapterRules), $(NewValueList)
  940. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  941. set to = ShellCodeError
  942. goto AddAdapterCleanupWAN
  943. endif
  944. set RegistryError = $($R0)
  945. ifstr(i) $(RegistryError) != NO_ERROR
  946. set to = fatalregistry
  947. goto AddAdapterCleanupWAN
  948. endif
  949. set TempWanName = {$(WanName),$(WANAdapterNumber)}
  950. set NewValueList = { {WanName,$(NoTitle),$(!REG_VT_MULTI_SZ),$(TempWanName)} }
  951. Shell $(UtilInf), AddValueList, $(KeyParameters), $(NewValueList)
  952. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  953. set to = ShellCodeError
  954. goto AddAdapterCleanupWAN
  955. endif
  956. set RegistryError = $($R0)
  957. ifstr(i) $(RegistryError) != NO_ERROR
  958. set to = fatalregistry
  959. goto AddAdapterCleanupWAN
  960. endif
  961. CloseRegKey $(KeyParameters)
  962. set to = WriteParametersWAN
  963. WriteParametersWAN = +
  964. OpenRegKey $(!REG_H_LOCAL) "" "HARDWARE\DEVICEMAP" $(MAXPERM) BaseKey
  965. shell "" HtCreateRegKey $(BaseKey) "TAPI DEVICES\"$(WanName)
  966. IfStr(i) $($R0) != NO_ERROR
  967. GoTo FatalRegistry
  968. EndIf
  969. Set TapiDeviceKey = $($R1)
  970. set ValueList = {}
  971. Set TapiAddressList = {}
  972. EnumRegValue $(TapiDeviceKey) ValueList
  973. ForListDo $(ValueList)
  974. set ValueItem = $($)
  975. set ValueName = *($(ValueItem),1)
  976. set ValueData = *($(ValueItem),4)
  977. ifstr(i) $(ValueName) == "Address"
  978. Set TapiAddressList = $(ValueData)
  979. endif
  980. EndForListDo
  981. set newList = {}
  982. ForListDo $(TapiAddressList)
  983. set SplitList = {}
  984. split-string $($) " " SplitList
  985. ifstr(i) $(WANAdapterNumber) != *( $(SplitList), 1)
  986. set newList = >( $(newList), $($) )
  987. endif
  988. EndForListDo
  989. Set TapiAddressList = $(newList)
  990. set newList = {}
  991. ForListDo $(TapiAddressList)
  992. set SplitList = {}
  993. split-string $($) " " SplitList
  994. ifstr(i) $(WANAdapterNumber) != *( $(SplitList), 1)
  995. set newList = >( $(newList), $($) )
  996. endif
  997. EndForListDo
  998. Set TapiAddressList = $(newList)
  999. ForListDo $(OptionList)
  1000. ifcontains(i) $(Option) IN $($)
  1001. set Type = *($TypeList, $(cnt))
  1002. Set Channels  = *($(ChannelList), $(cnt))
  1003. Set Lines     = *($(NumberOfControllersList), $(#))
  1004. set ChannelsPerController = *($(ChannelsPerControllerList), $(#) )
  1005. endif
  1006. EndForListDo
  1007. set NumberOfChannelsPerLine = $(ChannelsPerController)
  1008. set NumberOfLines = $(Lines)
  1009. Set TapiAddressListAdapt = {}
  1010. set-sub ChannelsPerController = $(ChannelsPerController),1
  1011. Set ForLineCnt = 0
  1012. ForLine = +
  1013. set-add ForLineCnt = $(ForLineCnt),1
  1014. Set ForChanCnt = 0
  1015. ForChan = +
  1016. Set buf = $(WANAdapterNumber)" "$(ForLineCnt)" "$(ForChanCnt)
  1017. Set TapiAddressListAdapt = >($(TapiAddressListAdapt),$(buf))
  1018. Set TapiAddressList = >($(TapiAddressList),$(buf))
  1019. ifint $(ForChanCnt) < $(ChannelsPerController)
  1020. set-add ForChanCnt = $(ForChanCnt),1
  1021. Goto ForChan
  1022. endif
  1023. ifint $(ForLineCnt) < $(Lines)
  1024. Goto ForLine
  1025. endif
  1026. Set NewValueList = {+
  1027. {AddressList,$(NoTitle),$(!REG_VT_MULTI_SZ),$(TapiAddressListAdapt)},+
  1028. {DeviceName,$(NoTitle),$(!REG_VT_SZ), $(WanName) },+
  1029. {LineType,$(NoTitle),$(!REG_VT_DWORD),$(LineType)},+
  1030. {MediaType,$(NoTitle),$(!REG_VT_SZ),"ISDN" },+
  1031. {AdapterId,$(NoTitle),$(!REG_VT_DWORD),$(WANAdapterNumber) },+
  1032. {AdapterName,$(NoTitle),$(!REG_VT_SZ),"CAPI20"$(CapiDevice) },+
  1033. {NumberOfChannelsPerLine,$(NoTitle),$(!REG_VT_DWORD),$(NumberOfChannelsPerLine)},+
  1034. {NumberOfLines,$(NoTitle),$(!REG_VT_DWORD),$(NumberOfLines)},+
  1035. {CMC,$(NoTitle),$(!REG_VT_SZ),$(CMCString)}+
  1036. }
  1037. Shell  $(UtilInf), AddValueList, $(KeyParametersWAN), $(NewValueList)
  1038. CloseRegKey $(KeyParametersWAN)
  1039. IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1040. GoTo ShellCodeError
  1041. EndIf
  1042. Set RegistryErrorIndex = $($R0)
  1043. IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  1044. GoTo FatalRegistry
  1045. EndIf
  1046. set to = WANWriteTAPIParameters
  1047. AddAdapterCleanupWAN = +
  1048. CloseRegKey $(KeyNetworkCard)
  1049. CloseRegKey $(KeyAdapterRules)
  1050. CloseRegKey $(KeyParametersWAN)
  1051. goto $(to)
  1052. WANWriteTAPIParameters = +
  1053. Set NewValueList = {+
  1054. {Address,$(NoTitle),$(!REG_VT_MULTI_SZ),$(TapiAddressList)},+
  1055. {"Media Type",$(NoTitle),$(!REG_VT_SZ),"ISDN" }}
  1056. Shell  $(UtilInf), AddValueList, $(TapiDeviceKey), $(NewValueList)
  1057. IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1058. GoTo ShellCodeError
  1059. EndIf
  1060. Set RegistryErrorIndex = $($R0)
  1061. IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  1062. GoTo FatalRegistry
  1063. EndIf
  1064. CloseRegKey $(TapiDeviceKey)
  1065. CloseRegKey $(BaseKey)
  1066. Set GetKeyName      = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"+
  1067. $(WanName)"\CurrentVersion"
  1068. Set GetKey          = $(KeyNull)
  1069. OpenRegKey $(!REG_H_LOCAL) "" $(GetKeyName) $(MAXPERM) GetKey
  1070. ifstr $(GetKey) != $(KeyNull)
  1071. GetRegValue $(GetKey), "ISDNcards", Value
  1072. ifint $(RegLastError) == $(!REG_ERROR_SUCCESS)
  1073. set cnt = *($(Value), 4)
  1074. set-add cnt = $(cnt),1
  1075. SetRegValue $(GetKey) {ISDNcards,$(NoTitle),$(!REG_VT_DWORD), $(cnt) }
  1076. endif
  1077. CloseRegKey $(GetKey)
  1078. endif
  1079. WANSecDynExt = +
  1080. Set ProductKeyName      = $(ServiceBase)"\"$(HlpDrvName)
  1081. Set KeyProduct          = $(KeyNull)
  1082. OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXPERM) KeyHlpDrv
  1083. IfStr $(KeyHlpDrv) != $(KeyNull)
  1084. GetRegValue $(KeyHlpDrv), "ReferenceCount", Value
  1085. set cnt = *($(Value), 4)
  1086. set-add cnt = $(cnt),1
  1087. SetRegValue $(KeyHlpDrv) {ReferenceCount,$(NoTitle),$(!REG_VT_DWORD), $(cnt) }
  1088. CloseRegKey $(KeyProduct)
  1089. goto WANSuccessfulOption
  1090. EndIf
  1091. CloseRegKey $(KeyProduct)
  1092. Shell $(UtilInf), CreateService, +
  1093. $(HlpDrvName), +
  1094. $(HlpDrvName), +
  1095. "\systemroot\system32\drivers\"$(HlpDrvName)".sys", +
  1096. "kernelautostart", +
  1097. "CAPI20", +
  1098. "", +
  1099. "", +
  1100. $(NetEventDLL)
  1101. Set OEM_ABANDON_SOFTWARE = TRUE
  1102. IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1103. GoTo ShellCodeError
  1104. EndIf
  1105. Set RegistryErrorIndex = $($R0)
  1106. Set KeyProduct         = $($R1)
  1107. Set SoftNetRulesKey    = $($R2)
  1108. CloseRegKey $($R3)
  1109. CloseRegKey $($R4)
  1110. CloseRegKey $($R5)
  1111. SetRegValue $(KeyProduct) {ReferenceCount,$(NoTitle),$(!REG_VT_DWORD), 1 }
  1112. IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  1113. EndWait
  1114. CloseRegKey $(KeyProduct)
  1115. CloseRegKey $(SoftNetRulesKey)
  1116. GoTo FatalRegistry
  1117. EndIf
  1118. CloseRegKey $(KeyProduct)
  1119. CloseRegKey $(SoftNetRulesKey)
  1120. WANSuccessfulOption = +
  1121. ifstr $(ExternalSetup) == "1"
  1122. LibraryProcedure Status, $(!LIBHANDLE), RenFile, "drivers\vinwm.sys", "drivers\"$(WanImageName)".sys"
  1123. goto ISSkipCopy
  1124. endif
  1125. ifstr(i) $(DoCopy) == YES
  1126. Shell $(UtilInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
  1127. set SrcDir = $($R1)
  1128. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1129. goto ShellCodeError
  1130. else-ifstr(i) $($R0) == STATUS_FAILED
  1131. Shell $(UtilInf) RegistryErrorString "ASK_SOURCE_FAIL"
  1132. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1133. goto ShellCodeError
  1134. endif
  1135. set Error = $($R0)
  1136. goto fatal
  1137. else-ifstr(i) $($R0) == STATUS_USERCANCEL
  1138. goto end
  1139. endif
  1140. endif
  1141. install "Install-Install-Diskette1"
  1142. ifstr $(CardFlag) == 1
  1143. ifstr(i) $(Option) != *($(CardList), 1)
  1144. goto skipdiskdlg
  1145. endif 
  1146. ifstr(i) $(Option) != *($(CardList), 2)
  1147. goto skipdiskdlg
  1148. endif 
  1149. ifstr(i) $(Option) != *($(CardList), 3)
  1150. goto skipdiskdlg
  1151. endif 
  1152. ifstr(i) $(Option) != *($(CardList), 5)
  1153. goto skipdiskdlg
  1154. endif
  1155. set DlgType = "MessageBox"
  1156. set STF_MB_TITLE = $(FirmDir)" Driver Installation"
  1157. set STF_MB_TYPE = 1
  1158. set STF_MB_ICON = 5
  1159. set STF_MB_DEF = 1
  1160. set STF_MB_TEXT = "Insert Disk for "$(CardTitle)
  1161. ui start "CustomMessageBox"
  1162. skipdiskdlg = +
  1163. install "Install-Install-Diskette2"
  1164. ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  1165. Shell $(UtilInf) RegistryErrorString "UNABLE_COPY_FILE"
  1166. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1167. goto ShellCodeError
  1168. endif
  1169. set Error = $($R0)
  1170. goto fatal
  1171. endif
  1172. endif
  1173. ISSkipCopy = +
  1174. ifint $(NtVersion) < 4
  1175. LibraryProcedure Status, $(!LIBHANDLE), DelFile, $(!STF_CWDDIR)"drivers\.sys"
  1176. endif
  1177. ifint $(NtVersion) < 4
  1178. set OldDoConfig = $(DoConfig)
  1179. set DoConfig = YES
  1180. endif
  1181. ifstr(i) $(DoConfig) == YES
  1182. set to = WANSuccessfulOptionCont
  1183. goto LaunchIConfExe 
  1184. endif
  1185. WANSuccessfulOptionCont = +
  1186. ifint $(NtVersion) < 4
  1187. set DoConfig = $(OldDoConfig)
  1188. endif
  1189. Shell "" UpdateControllerList ADD, $(DeviceName)
  1190. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1191. goto ShellCodeError
  1192. endif
  1193. set RegistryError = $($R0)
  1194. ifstr(i) $(RegistryError) != NO_ERROR
  1195. goto fatalregistry
  1196. endif
  1197. ifstr(i) $(Option) == *($(CardList),7)
  1198. goto RASend
  1199. endif
  1200. ifint $(NtVersion) < 4
  1201. goto RASend
  1202. endif
  1203. ifstr $(ExternalRasDir) == ""
  1204. Read-Syms InvokeRasDlg$(Language)
  1205. Else
  1206. Read-Syms ISInvokeRasDlg$(Language)
  1207. EndIf
  1208. Shell "oemnsvra.inf" CheckRasInstalled
  1209. IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1210. Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE),  +
  1211. "STATUS", $(InvokeRasError)
  1212. IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1213. GoTo ShellCodeError
  1214. EndIf
  1215. GoTo RASend
  1216. EndIf
  1217. Set RasInstalled = $($R0)
  1218. IfStr(i) $(RasInstalled) == FALSE
  1219. Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
  1220. $(InvokeRasSetupMsg)
  1221. IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1222. GoTo RASend
  1223. EndIf
  1224. Else
  1225. Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
  1226. $(InvokeRasConfigMsg)
  1227. IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1228. GoTo RASend
  1229. EndIf
  1230. EndIf
  1231. EndWait
  1232. ifstr $(ExternalRasDir) == ""
  1233. GoTo RASend
  1234. endif
  1235. set !STF_SRCDIR_OVERRIDE = $(ExternalRasDir)
  1236. ifstr $(ExternalHWnd) != ""
  1237. set !STF_HWND = $(ExternalHWnd)
  1238. endif
  1239. IfStr(i) $(!STF_IDW) == TRUE
  1240. Set AddCopy  = NO
  1241. Set DoCopy   = NO
  1242. Set DoConfig = NO
  1243. Else
  1244. Set AddCopy  = YES
  1245. Set DoCopy   = YES
  1246. Set DoConfig = YES
  1247. EndIf
  1248. IfStr(i) $(RasInstalled) == TRUE
  1249. Set SaveNTN_InstallMode = $(!NTN_InstallMode)
  1250. Set !NTN_InstallMode = configure
  1251. EndIf
  1252. Shell "oemnsvra.inf" InstallOption $(!STF_LANGUAGE) "RAS" $(RasDir) $(AddCopy) $(DoCopy) $(DoConfig)
  1253. IfStr(i) $(RasInstalled) == TRUE
  1254. Set !NTN_InstallMode = $(SaveNTN_InstallMode)
  1255. EndIf
  1256. IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1257. Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS",  +
  1258. $(InvokeRasError)
  1259. IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1260. GoTo ShellCodeError
  1261. EndIf
  1262. GoTo RASend
  1263. EndIf
  1264. EndWait
  1265. RASEnd = +
  1266. goto end
  1267. AddAdapterCleanup = +
  1268. CloseRegKey $(KeyNetworkCard)
  1269. CloseRegKey $(KeyAdapterRules)
  1270. goto $(to)
  1271. ConfigureRequest = +
  1272. ifstr(i) $(Option) == *($(CardList), 10)
  1273. set Pcmcia    = 1
  1274. set MediaType = 1
  1275. set IoLength  = 8
  1276. endif
  1277. OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) $(MAXPERM) KeyNetcard
  1278. ifstr $(KeyNetcard) == $(KeyNull)
  1279. set RegistryError = CANNOT_FIND_COMPONENT_SERVICE
  1280. goto fatalregistry
  1281. endif
  1282. Shell $(UtilInf) FindService, $(KeyNetcard)
  1283. set RegistryError = $($R0)
  1284. set KeyParameters = $($R2)
  1285. CloseRegKey $($R1)
  1286. CloseRegKey $(KeyNetcard)
  1287. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1288. goto ShellCodeError
  1289. endif
  1290. ifstr(i) $(RegistryError) != NO_ERROR
  1291. goto fatalregistry
  1292. endif
  1293. ifstr $(KeyParameters) == $(KeyNull)
  1294. set RegistryError = CANNOT_FIND_COMPONENT_SERVICE
  1295. goto fatalregistry
  1296. endif
  1297. set ValueList = {}
  1298. EnumRegValue $(KeyParameters) ValueList
  1299. ForListDo $(ValueList)
  1300. set ValueItem = $($)
  1301. set ValueName = *($(ValueItem),1)
  1302. set ValueData = *($(ValueItem),4)
  1303. ifstr(i) $(ValueName) == "BusType"
  1304. set BusType = $(ValueData)
  1305. else-ifstr(i) $(ValueName) == "BusNumber"
  1306. set BusNumber = $(ValueData)
  1307. else-ifstr(i) $(ValueName) == "InterruptNumber"
  1308. set IRQ_Value = $(ValueData)
  1309. else-ifstr(i) $(ValueName) == "IoBaseAddress"
  1310. set IOBASE_Value = $(ValueData)
  1311. else-ifstr(i) $(ValueName) == "CardOrdinal"
  1312. set ORDINAL_Value = $(ValueData)
  1313. else-ifstr(i) $(ValueName) == "Channels"
  1314. set Channels = $(ValueData)
  1315. else-ifstr(i) $(ValueName) == "CardType"
  1316. set CardType = $(ValueData)
  1317. else-ifstr(i) $(ValueName) == "CardRevision"
  1318. set CardRevision = $(ValueData)
  1319. else-ifstr(i) $(ValueName) == "AdapterNumber"
  1320. set ISDNAdapterNumber = $(ValueData)
  1321. else-ifstr(i) $(ValueName) == "CapiDevice"
  1322. set CapiDevice = $(ValueData)
  1323. else-ifstr(i) $(ValueName) == "BootFile"
  1324. set BootFilePath = $(ValueData)
  1325. else-ifstr(i) $(ValueName) == "BinFile"
  1326. set BinFilePath = $(ValueData)
  1327. endif
  1328. EndForListDo
  1329. set DeviceName = $(Packet)$(ISDNAdapterNumber)
  1330. Shell "", GetBusTypeName, $(BusType)
  1331. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1332. goto ShellCodeError
  1333. endif
  1334. set BusName = $($R0)
  1335. ifstr $(BusName) == MCA
  1336. Shell "", GetMcaSlotInfo
  1337. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1338. goto ShellCodeError
  1339. endif
  1340. ifstr $($R0) != "NO_ERROR"
  1341. ifstr $($R0) == ""
  1342. set Error = $(CantFindCard)
  1343. else
  1344. set Error = $(McaConfigError)
  1345. endif
  1346. goto nonfatal
  1347. endif
  1348. set KnownMcaSlots = $($R1)
  1349. set AddedMcaSlots = $($R2)
  1350. ifstr $(KnownMcaSlots) == {}
  1351. set Error = $(CantFindOldCard)
  1352. goto nonfatal
  1353. endif
  1354. endif
  1355. set to = CRCAReturn
  1356. goto  ConfigureAdapter
  1357. CRCAReturn = +
  1358. set to = end
  1359. goto LaunchIConfExe
  1360. goto end
  1361. ConfigureAdapter = +
  1362. set from = ConfigureAdapter
  1363. ifstr $(BusName) == MCA
  1364. ifstr(i) $(!NTN_InstallMode) == configure
  1365. ifcontains(i) $(ORDINAL_Value) NOT-IN $(KnownMcaSlots)
  1366. set Error = $(CantFindOldCard)
  1367. goto nonfatal
  1368. endif
  1369. set ORDINAL_List = {$(ORDINAL_Value)}
  1370. else
  1371. set ORDINAL_List = $(AddedMcaSlots)
  1372. set ORDINAL_Value = *($(AddedMcaSlots), 1)
  1373. endif
  1374. endif
  1375. set NewValueList = {+
  1376. {AdapterNumber,$(NoTitle),$(!REG_VT_DWORD),$(ISDNAdapterNumber)},+
  1377. {BusNumber,$(NoTitle),$(!REG_VT_DWORD),$(BusNumber)},+
  1378. {BusType,$(NoTitle),$(!REG_VT_DWORD),$(BusType)},+
  1379. {InterruptNumber,$(NoTitle),$(!REG_VT_DWORD),$(IRQ_Value)},+
  1380. {IoBaseAddress,$(NoTitle),$(!REG_VT_DWORD),$(IOBASE_Value)},+
  1381. {CardOrdinal,$(NoTitle),$(!REG_VT_DWORD),$(ORDINAL_Value)},+
  1382. {CardType,$(NoTitle),$(!REG_VT_DWORD),$(CardType)},+
  1383. {CardRevision,$(NoTitle),$(!REG_VT_DWORD),$(CardRevision)},+
  1384. {Channels,$(NoTitle),$(!REG_VT_DWORD),$(Channels)},+
  1385. {CapiDevice,$(NoTitle),$(!REG_VT_DWORD),$(CapiDevice)},+
  1386. {CardName,$(NoTitle),$(!REG_VT_SZ),$(CardTitle)},+
  1387. }
  1388. ifstr $(BusName) != ISA
  1389. set NewValueList = >($(NewValueList),{SlotNumber,$(NoTitle),$(!REG_VT_DWORD),$(ORDINAL_Value)} )
  1390. endif
  1391. ifstr $(BusName) == MCA
  1392. set NewValueList = >($(NewValueList),{McaPosId,$(NoTitle),$(!REG_VT_DWORD),$(MCA_POS_ID)} )
  1393. endif
  1394. ifstr $(CardFlag) == 1
  1395. set NewValueList = >($(NewValueList),{BootFile,$(NoTitle),$(!REG_VT_SZ),$(BootFilePath)} )
  1396. set NewValueList = >($(NewValueList),{BinFile,$(NoTitle),$(!REG_VT_SZ),$(BinFilePath)}   )
  1397. endif
  1398. ifstr(i) $(Option) ==  *($(CardList), 10)
  1399. set Pcmcia = 1
  1400. set MediaType = 1
  1401. set IoLength = 8
  1402. set NewValueList = >($(NewValueList),{Pcmcia,$(NoTitle),$(!REG_VT_DWORD),$(Pcmcia)} )
  1403. set NewValueList = >($(NewValueList),{MediaType,$(NoTitle),$(!REG_VT_DWORD),$(MediaType)} )
  1404. set NewValueList = >($(NewValueList),{IoLength,$(NoTitle),$(!REG_VT_DWORD),$(IoLength)} )
  1405. endif
  1406. Shell  $(UtilInf), AddValueList, $(KeyParameters), $(NewValueList)
  1407. set RegistryError = $($R0)
  1408. set CAErr = ""
  1409. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1410. goto ShellCodeError
  1411. endif
  1412. ifstr(i) $(RegistryError) != NO_ERROR
  1413. goto fatalregistry
  1414. endif
  1415. goto $(to)
  1416. LaunchIConfExe = +
  1417. RunProgram InstallReturnValue "" "" $(FirmDir)\$(FirmUiExe) $(DeviceName)
  1418. ifint $(InstallReturnValue) == 1       ;IDOK
  1419. set CommonStatus = STATUS_SUCCESSFUL
  1420. else-ifint $(InstallReturnValue) == 2        ; IDCANCEL
  1421. set CommonStatus = STATUS_USERCANCEL
  1422. endif
  1423. goto $(to)
  1424. BindRequest = +
  1425. set Error = $(CantChangeBinding)
  1426. goto fatal
  1427. RemoveRequest = +
  1428. set RefCount       = ""
  1429. set GenericInfFile = ""
  1430. set KeySoftware   = $(KeyNull)
  1431. OpenRegKey $(!REG_H_LOCAL) "" $(SoftwareKeyName) $(MAXPERM) KeySoftware
  1432. ifstr $(KeySoftware) != $(KeyNull)
  1433. GetRegValue $(KeySoftware), "RefCount", Value
  1434. ifint $(RegLastError) == $(!REG_ERROR_SUCCESS)
  1435. set RefCount = *($(Value), 4)
  1436. endif
  1437. Shell $(UtilInf), GetInfFileNameFromRegistry, $(KeySoftware)
  1438. ifint $($ShellCode) == $(!SHELL_CODE_OK)
  1439. set GenericInfFile = $($R0)
  1440. endif
  1441. CloseRegKey $(KeySoftware)
  1442. endif
  1443. set-sub RefCount = $(RefCount),1
  1444. ifstr(i) $(!NTN_RegBase) == $(SoftwareKeyName)
  1445. Shell $(UtilInf), RemoveSoftwareComponent, $(Manufacturer), $(SoftwareName)
  1446. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1447. goto ShellCodeError
  1448. endif
  1449. set RegistryError = $($R0)
  1450. ifstr(i) $(RegistryError) != NO_ERROR
  1451. goto fatalregistry
  1452. endif
  1453. goto removefiles
  1454. endif
  1455. set KeyNetCard = $(KeyNull)
  1456. OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) $(MAXPERM) KeyNetcard
  1457. ifstr $(KeyNetcard) == $(KeyNull)
  1458. set RegistryError = CANNOT_FIND_COMPONENT_SERVICE
  1459. goto fatalregistry
  1460. endif
  1461. set CapiDevice    = -1
  1462. set ISDNAdapterNumber = -1
  1463. Shell $(UtilInf) FindService, $(KeyNetcard)
  1464. CloseRegKey $(KeyNetcard)
  1465. ifint $($ShellCode) == $(!SHELL_CODE_OK)
  1466. set RegistryError = $($R0)
  1467. CloseRegKey $($R1)
  1468. set KeyParameters = $($R2)
  1469. ifstr(i) $(RegistryError) == NO_ERROR
  1470. ifstr $(KeyParameters) != $(KeyNull)
  1471. GetRegValue $(KeyParameters), "CapiDevice", Value
  1472. ifint $(RegLastError) == $(!REG_ERROR_SUCCESS)
  1473. set CapiDevice = *($(Value), 4)
  1474. endif
  1475. GetRegValue $(KeyParameters), "AdapterNumber", Value
  1476. ifint $(RegLastError) == $(!REG_ERROR_SUCCESS)
  1477. set ISDNAdapterNumber = *($(Value), 4)
  1478. endif
  1479. GetRegValue $(KeyParameters), "WanName", Value
  1480. ifint $(RegLastError) == $(!REG_ERROR_SUCCESS)
  1481. set WANInstanceList = *($(Value), 4)
  1482. endif
  1483. CloseRegKey $(KeyParameters)
  1484. endif
  1485. endif
  1486. endif
  1487. ifint $(CapiDevice) > 0
  1488. Shell "" RemoveCapiDevice $(CapiDevice)
  1489. else
  1490. Shell $(SubrInf) SetupMessage, $(!STF_LANGUAGE), "STATUS", $(CantRemoveCapiDevice)
  1491. endif
  1492. ifint $(ISDNAdapterNumber) > 0
  1493. Shell "" UpdateControllerList DEL, $(Packet)$(ISDNAdapterNumber)
  1494. else
  1495. Shell $(SubrInf) SetupMessage, $(!STF_LANGUAGE), "STATUS", $(CantRemoveDevice)
  1496. endif
  1497. removeWANMiniport = +
  1498. set WanMiniportInst = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\"*($(WANInstanceList),2)
  1499. set WanName = *($(WANInstanceList),1)
  1500. set WanImageName = $(WanName)
  1501. ifstr(i) $(WanName) == ""
  1502. goto removeservice
  1503. endif
  1504. read-syms GeneralConstants
  1505. Shell $(UtilInf), RemoveHardwareComponent, $(Manufacturer), $(HardwareNameWAN), $(WanMiniportInst)
  1506. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1507. goto ShellCodeError
  1508. endif
  1509. set RegistryError = $($R0)
  1510. ifstr(i) $(RegistryError) != NO_ERROR
  1511. goto fatalregistry
  1512. endif
  1513. removeservice = +
  1514. Shell $(UtilInf), RemoveHardwareComponent, $(Manufacturer), $(HardwareName), $(!NTN_RegBase)
  1515. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1516. goto ShellCodeError
  1517. endif
  1518. set RegistryError = $($R0)
  1519. ifstr(i) $(RegistryError) != NO_ERROR
  1520. goto fatalregistry
  1521. endif
  1522. removetapidev = +
  1523. ifstr(i) $(WanName) == ""
  1524. goto removefiles
  1525. endif
  1526. set TapiDeviceKey = $(KeyNull)
  1527. OpenRegKey $(!REG_H_LOCAL) "" "HARDWARE\DEVICEMAP\TAPI DEVICES\"$(WanName) $(MAXPERM) TapiDeviceKey
  1528. ifstr $(TapiDeviceKey) == $(KeyNull)
  1529. goto removeFiles
  1530. endif
  1531. set Value = {}
  1532. Set TapiAddressList = {}
  1533. GetRegValue $(TapiDeviceKey) "Address" Value
  1534. Set TapiAddressList =  *($(Value),4)
  1535. set newList = {}
  1536. ForListDo $(TapiAddressList)
  1537. set SplitList = {}
  1538. split-string $($) " " SplitList
  1539. ifstr(i) $(WANAdapterNumber) != *( $(SplitList), 1)
  1540. set newList = >( $(newList), $($) )
  1541. endif
  1542. EndForListDo
  1543. Set TapiAddressList = $(newList)
  1544. SetRegValue $(TapiDeviceKey) +
  1545. {Address, $(NoTitle), $(!REG_VT_MULTI_SZ), $(TapiAddressList) }
  1546. CloseRegKey $(TapiDeviceKey)
  1547. removeWAN = +
  1548. Set GetKeyName      = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(WanName)"\CurrentVersion"
  1549. Set GetKey          = $(KeyNull)
  1550. OpenRegKey $(!REG_H_LOCAL) "" $(GetKeyName) $(MAXPERM) GetKey
  1551. ifstr $(GetKey) != $(KeyNull)
  1552. GetRegValue $(GetKey), "ISDNcards", Value
  1553. ifint $(RegLastError) == $(!REG_ERROR_SUCCESS)
  1554. set cnt = *($(Value), 4)
  1555. set-sub cnt = $(cnt),1
  1556. SetRegValue $(GetKey) {ISDNcards,$(NoTitle),$(!REG_VT_DWORD), $(cnt) }
  1557. endif
  1558. CloseRegKey $(GetKey)
  1559. endif
  1560. OpenRegKey $(!REG_H_LOCAL) "" "HARDWARE\DEVICEMAP\TAPI DEVICES" $(MAXPERM) TapiDeviceKey
  1561. ifstr $(TapiDeviceKey) != $(KeyNull)
  1562. DeleteRegTree $(TapiDeviceKey) $(WanName)
  1563. endif
  1564. Shell $(UtilInf), RemoveService, $(WanName), "NO", FALSE
  1565. Shell $(UtilInf), RemoveSoftwareComponent, $(Manufacturer), $(WanName), FALSE
  1566. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1567. goto RemoveWanHlpDriver
  1568. endif
  1569. set RegistryError = $($R0)
  1570. ifstr(i) $(RegistryError) != NO_ERROR
  1571. goto RemoveWanHlpDriver
  1572. endif
  1573. RemoveWanHlpDriver = +
  1574. Set ProductKeyName      = $(ServiceBase)"\"$(HlpDrvName)
  1575. Set KeyProduct          = $(KeyNull)
  1576. Set HlpDrvRemoved       = 0
  1577. OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXPERM) KeyHlpDrv
  1578. IfStr $(KeyHlpDrv) != $(KeyNull)
  1579. GetRegValue $(KeyHlpDrv), "ReferenceCount", Value
  1580. set cnt = *($(Value), 4)
  1581. set-sub cnt = $(cnt),1
  1582. SetRegValue $(KeyHlpDrv) {ReferenceCount,$(NoTitle),$(!REG_VT_DWORD), $(cnt) }
  1583. CloseRegKey $(KeyHlpDrv)
  1584. ifStr $(cnt) == 0
  1585. Shell $(UtilInf), RemoveService, $(HlpDrvName), "NO", FALSE
  1586. Set HlpDrvRemoved = 1
  1587. else
  1588. Set HlpDrvRemoved = 0
  1589. EndIf
  1590. else
  1591. EndIf
  1592. CloseRegKey $(KeyHlpDrv)
  1593. goto removefiles
  1594. removefiles = +
  1595. read-syms FilesToRemove
  1596. Set ToRemoveNow = $(RemoveNow$(CardFlag))
  1597. ifStr $(RefCount) == 0
  1598. ForListDo $(RemoveNowCommon$(CardFlag))
  1599. set ToRemoveNow = >($(ToRemoveNow),  $($))
  1600. EndForListDo
  1601. ifstr(i) $(WanName) == ""
  1602. set HlpDrvRemoved = 1
  1603. endif
  1604. endif
  1605. ifStr $(HlpDrvRemoved) == 1
  1606. ForListDo $(RemoveNowCommon)
  1607. set ToRemoveNow = >($(ToRemoveNow),  $($))
  1608. EndForListDo
  1609. endif
  1610. ForListDo $(ToRemoveNow)
  1611. LibraryProcedure Status, $(!LIBHANDLE), DelFile, $(!STF_CWDDIR)$($)
  1612. EndForListDo
  1613. Set ToRemoveAtReboot = $(RemoveAtReboot$(CardFlag))
  1614. ifStr $(RefCount) == 0
  1615. ForListDo $(RemoveAtRebootCommon$(CardFlag))
  1616. set ToRemoveAtReboot = >($(ToRemoveAtReboot),  $($))
  1617. EndForListDo
  1618. endif
  1619. ifStr $(HlpDrvRemoved) == 1
  1620. ForListDo $(RemoveAtRebootCommon) 
  1621. set ToRemoveAtReboot = >($(ToRemoveAtReboot), $($))
  1622. EndForListDo
  1623. endif
  1624. ForListDo $(ToRemoveAtReboot)
  1625. set NameOld = $(!STF_CWDDIR)*($($),1)
  1626. set Name = $(!STF_CWDDIR)*($($),2)
  1627. ifstr(i) *($($),1) != "drivers\.sys"
  1628. LibraryProcedure Status, $(!LIBHANDLE), RenFile, $(NameOld), $(Name)
  1629. LibraryProcedure Status, $(!LIBHANDLE), DelFile, $(NameOld)
  1630. AddFileToDeleteList $(Name)
  1631. endif
  1632. EndForListDo
  1633. goto end
  1634. UpgradeRequest = +
  1635. OpenRegKey $(!REG_H_LOCAL) "" $(SoftwareKeyName) $(MAXPERM) KeySoftware
  1636. ifstr $(KeySoftware) == $(KeyNull)
  1637. goto updmsgbox
  1638. endif
  1639. OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) $(MAXPERM) KeyNetcard
  1640. ifstr $(KeyNetcard) == $(KeyNull)
  1641. set RegistryError = CANNOT_FIND_COMPONENT_SERVICE
  1642. goto updmsgbox
  1643. endif
  1644. Shell $(UtilInf) FindService, $(KeyNetcard)
  1645. set RegistryError = $($R0)
  1646. set KeyParameters = $($R2)
  1647. CloseRegKey $($R1)
  1648. CloseRegKey $(KeyNetcard)
  1649. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1650. goto ShellCodeError
  1651. endif
  1652. ifstr(i) $(RegistryError) != NO_ERROR
  1653. goto fatalregistry
  1654. endif
  1655. ifstr $(KeyParameters) == $(KeyNull)
  1656. set RegistryError = CANNOT_FIND_COMPONENT_SERVICE
  1657. goto fatalregistry
  1658. endif
  1659. GetRegValue $(KeyParameters), "WanName", ParamWanName
  1660. ifstr(i) $(ParamWanName) == ""
  1661. updmsgbox = +
  1662. set DlgType = "MessageBox"
  1663. set STF_MB_TITLE = $(FirmDir)" Driver Update"
  1664. set STF_MB_TYPE = 1
  1665. set STF_MB_ICON = 5
  1666. set STF_MB_DEF = 1
  1667. set STF_MB_TEXT = $(UpdateText)
  1668. ui start "CustomMessageBox"
  1669. set CommonStatus = STATUS_USERCANCEL
  1670. CloseRegKey $(KeyParameters)
  1671. goto end
  1672. endif
  1673. CloseRegKey $(KeyParameters)
  1674. GetRegValue $(KeySoftware),"MajorVersion", VersionInfo
  1675. set CurrentMajor = *($(VersionInfo), 4)
  1676. GetRegValue $(KeySoftware),"MinorVersion", VersionInfo
  1677. set CurrentMinor = *($(VersionInfo), 4)
  1678. set CommonStatus = STATUS_USERCANCEL
  1679. set Error = $(AskForUpdateOld)$(CurrentMajor)"."$(CurrentMinor)$(AskForUpdateNew)$(MajorVersion)"."$(MinorVersion)$(AskForUpdateEnd)
  1680. set to = UpgradeFiles
  1681. set from = end
  1682. goto warning
  1683. UpgradeFiles = +
  1684. Shell $(UtilInf), GetInfFileNameFromRegistry, $(KeySoftware)
  1685. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1686. goto ShellCodeError
  1687. endif
  1688. ifstr $($R0) == ""
  1689. set Error = $(CantSeeInfFile)
  1690. goto fatal
  1691. endif
  1692. set !UG_FILENAME = $($R0)
  1693. ifstr $(ExternalSetup) == "1"
  1694. goto ISSkipUpdate
  1695. endif
  1696. install "Install-Update-Diskette1"
  1697. ifstr $(CardFlag) == 1
  1698. ifstr(i) $(Option) != *($(CardList), 1)
  1699. goto updskipdiskdlg
  1700. endif 
  1701. ifstr(i) $(Option) != *($(CardList), 2)
  1702. goto updskipdiskdlg
  1703. endif 
  1704. ifstr(i) $(Option) != *($(CardList), 3)
  1705. goto updskipdiskdlg
  1706. endif 
  1707. ifstr(i) $(Option) != *($(CardList), 5)
  1708. goto updskipdiskdlg
  1709. endif
  1710. set DlgType = "MessageBox"
  1711. set STF_MB_TITLE = $(FirmText)" Driver Update"
  1712. set STF_MB_TYPE = 1
  1713. set STF_MB_ICON = 5
  1714. set STF_MB_DEF = 1
  1715. set STF_MB_TEXT = "Insert Disk for "$(CardTitle)
  1716. ui start "CustomMessageBox"
  1717. updskipdiskdlg = +
  1718. install "Install-Update-Diskette2"
  1719. ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  1720. goto fatal
  1721. endif
  1722. endif
  1723. ISSkipUpdate = +
  1724. SetRegValue $(KeySoftware) +
  1725. {MajorVersion, $(NoTitle), $(!REG_VT_SZ), $(MajorVersion)}
  1726. SetRegValue $(KeySoftware) +
  1727. {MinorVersion, $(NoTitle), $(!REG_VT_SZ), $(MinorVersion)}
  1728. CloseRegKey $(KeySoftware)
  1729. set CommonStatus = STATUS_SUCCESSFUL
  1730. goto end
  1731. abandon = +
  1732. ifint $(NewCapiDevice) > 0
  1733. Shell "" RemoveCapiDevice $(NewCapiDevice)
  1734. endif
  1735. ForListDo $(OEM_ABANDON_OPTIONS)
  1736. Shell $(UtilInf), RemoveHardwareComponent, $(Manufacturer), $(SoftwareName), $($)
  1737. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1738. goto ShellCodeError
  1739. endif
  1740. set RegistryError = $($R0)
  1741. ifstr(i) $(RegistryError) != NO_ERROR
  1742. goto fatalregistry
  1743. endif
  1744. EndForListDo
  1745. ifstr(i) $(OEM_ABANDON_SOFTWARE) == TRUE
  1746. Shell $(UtilInf), RemoveSoftwareComponent, $(Manufacturer), $(SoftwareName), FALSE
  1747. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1748. goto ShellCodeError
  1749. endif
  1750. set RegistryError = $($R0)
  1751. ifstr(i) $(RegistryError) != NO_ERROR
  1752. goto fatalregistry
  1753. endif
  1754. endif
  1755. goto end
  1756. warning = +
  1757. Shell $(SubrInf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
  1758. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1759. goto ShellCodeError
  1760. endif
  1761. ifstr(i) $($R1) == "OK"
  1762. goto $(to)
  1763. else-ifstr(i) $($R1) == "CANCEL"
  1764. goto $(from)
  1765. else
  1766. goto end
  1767. endif
  1768. nonfatal = +
  1769. set Severity = STATUS
  1770. set CommonStatus = STATUS_USERCANCEL
  1771. ifstr(i) $(Error) == ""
  1772. set Severity = NONFATAL
  1773. Shell $(UtilInf) RegistryErrorString "SETUP_FAIL"
  1774. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1775. goto ShellCodeError
  1776. endif
  1777. set Error = $($R0)
  1778. endif
  1779. Shell $(SubrInf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
  1780. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1781. goto ShellCodeError
  1782. endif
  1783. goto end
  1784. fatalregistry = +
  1785. EndWait
  1786. Shell $(UtilInf) RegistryErrorString $(RegistryError)
  1787. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1788. goto ShellCodeError
  1789. endif
  1790. set Error = $($R0)
  1791. goto fatal
  1792. fatal = +
  1793. ifstr(i) $(Error) == ""
  1794. Shell $(UtilInf) RegistryErrorString "SETUP_FAIL"
  1795. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1796. goto ShellCodeError
  1797. endif
  1798. set Error = $($R0)
  1799. endif
  1800. Shell $(SubrInf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
  1801. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1802. goto ShellCodeError
  1803. endif
  1804. goto setfailed
  1805. ShellCodeError = +
  1806. set DlgType      = "MessageBox"
  1807. set STF_MB_TITLE = $(ShellCodeErrorTitle)
  1808. set STF_MB_TEXT  = $(ShellCodeErrorText)
  1809. set STF_MB_TYPE  = 1
  1810. set STF_MB_ICON  = 3
  1811. set STF_MB_DEF   = 1
  1812. ui start "Error Message"
  1813. setfailed = +
  1814. set CommonStatus = STATUS_FAILED
  1815. ifstr(i) $(OEM_ABANDON_ON) == TRUE
  1816. set OEM_ABANDON_ON = FALSE
  1817. goto abandon
  1818. endif
  1819. end = +
  1820. Set !DebugOutputControl = $(OldDebugControl)
  1821. EndWait
  1822. return $(CommonStatus)
  1823. [GetBusTypeName]
  1824. set BusType = $($0)
  1825. set BusName = ISA
  1826. ifint $(BusType) == 0
  1827. return         "Jazz-Internal Bus"
  1828. endif
  1829. ifint $(BusType) == 1
  1830. return         "ISA"
  1831. endif
  1832. ifint $(BusType) == 2
  1833. return         "EISA"
  1834. endif
  1835. ifint $(BusType) == 3
  1836. return         "MCA"
  1837. endif
  1838. ifint $(BusType) == 4
  1839. return         "TCChannel"
  1840. endif
  1841. ifint $(BusType) == 5
  1842. return         "PCI"
  1843. endif
  1844. return "ISA"
  1845. exit
  1846. [GetMcaSlotInfo]
  1847. read-syms GeneralConstants
  1848. Shell $(UtilInf), MCAFindBus,$(MCA_POS_ID_LOWBYTE), $(MCA_POS_ID_HIGHBYTE)
  1849. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1850. return ERROR, {}, {}
  1851. endif
  1852. ifstr $($R0) != "NO_ERROR"
  1853. return ERROR, {}, {}
  1854. endif
  1855. set AdapterList = $($R1)
  1856. ifstr(i) $(AdapterList) == {}
  1857. return "", {}, {}
  1858. endif
  1859. set KnownMcaSlots = {}
  1860. set AddedMcaSlots = {}
  1861. ForListDo $(AdapterList)
  1862. set BusNum = *($($),1)
  1863. set SlotNum = *($($),2)
  1864. Shell $(UtilInf), IsNetCardAlreadyInstalled, $(BusNum),$(SlotNum), $(HardwareDescription), $(HardwareName)
  1865. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1866. return ERROR, {}, {}
  1867. endif
  1868. ifstr $($R0) != "NO_ERROR"
  1869. return ERROR, {}, {}
  1870. endif
  1871. ifstr(i) $($R1) == "YES"
  1872. set KnownMcaSlots = >($(KnownMcaSlots), $(SlotNum))
  1873. else
  1874. set AddedMcaSlots = >($(AddedMcaSlots), $(SlotNum))
  1875. endif
  1876. EndForListDo
  1877. return NO_ERROR $(KnownMcaSlots), $(AddedMcaSlots)
  1878. exit
  1879. [UpdateGroupOrderList]
  1880. read-syms GeneralConstants
  1881. set KeyServiceGroupOrder = $(KeyNull)
  1882. OpenRegKey $(!REG_H_LOCAL), "", $(ServiceGroupOrder), $(MAXPERM), KeyServiceGroupOrder
  1883. ifstr $(KeyServiceGroupOrder) == $(KeyNull)
  1884. return STATUS_FAILED, 0
  1885. endif
  1886. set Value = {}
  1887. GetRegValue $(KeyServiceGroupOrder) "List" Value
  1888. ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
  1889. CloseRegKey $(KeyServiceGroupOrder)
  1890. return STATUS_FAILED, 0
  1891. endif
  1892. set Value = *($(Value), 4)
  1893. set CapiFound     = 0
  1894. set NdisFound     = 0
  1895. set ChangeOrderList = 0
  1896. set NewOrderList  = {}
  1897. ForListDo $(Value)
  1898. set Value = $($)
  1899. ifstr(i) $(Value) == "CAPI20"
  1900. set CapiFound = 1
  1901. else-ifstr(i) $(Value) == "NDIS"
  1902. set NdisFound = 1
  1903. ifint $(CapiFound) == 0
  1904. set ChangeOrderList = 1
  1905. set NewOrderList = >($(NewOrderList),"CAPI20")
  1906. endif
  1907. endif
  1908. set NewOrderList = >($(NewOrderList),$(Value))
  1909. EndForListDo
  1910. ifint $(NdisFound) == 0
  1911. CloseRegKey $(KeyServiceGroupOrder)
  1912. return STATUS_FAILED, 1
  1913. endif
  1914. ifint $(ChangeOrderList) == 1
  1915. SetRegValue $(KeyServiceGroupOrder) +
  1916. {List, $(NoTitle), $(!REG_VT_MULTI_SZ), $(NewOrderList)}
  1917. ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
  1918. CloseRegKey $(KeyServiceGroupOrder)
  1919. return STATUS_FAILED, 2
  1920. endif
  1921. endif
  1922. CloseRegKey $(KeyServiceGroupOrder)
  1923. return STATUS_SUCCESSFUL, 1
  1924. exit
  1925. [CheckCapiDevices]
  1926. set MyDeviceName = $($0)
  1927. read-syms GeneralConstants
  1928. set ConfigErrors     = 0
  1929. set DeviceNumber     = 1
  1930. set KeyCapi20 = $(KeyNull)
  1931. OpenRegKey  $(!REG_H_LOCAL) "" $(CapiDevicesPath) $(MAXPERM) KeyCapi20
  1932. ifstr $(KeyCapi20) == $(KeyNull)
  1933. return $(ConfigErrors), $(DeviceNumber)
  1934. endif
  1935. set ValueList    = {}
  1936. set DeviceIdList  = {}
  1937. EnumRegKey $(KeyCapi20) ValueList
  1938. ForListDo $(ValueList)
  1939. set DeviceId = *($($), 1)
  1940. ifstr $(DeviceId) == "0"
  1941. else
  1942. ifint $(DeviceId) >= 1
  1943. ifint $(DeviceId) <= 99
  1944. set DeviceIdList = >($(DeviceIdList), $(DeviceId))
  1945. endif
  1946. endif
  1947. endif
  1948. EndForListDo
  1949. set DeviceNumber = 0
  1950. ForListDo $(DeviceIdList)
  1951. set DeviceId   = *($($), 1)
  1952. set KeyDeviceId   = $(KeyNull)
  1953. OpenRegKey $(KeyCapi20) "" $(DeviceId) $(MAXPERM) KeyDeviceId
  1954. ifstr $(KeyDeviceId) == $(KeyNull)
  1955. set-add ConfigErrors = $(ConfigErrors), 1
  1956. else
  1957. set Value = {}
  1958. GetRegValue $(KeyDeviceId), "DeviceName", Value
  1959. set DeviceName = *($(Value), 4)
  1960. ifstr $(DeviceName) == ""
  1961. set-add ConfigErrors = $(ConfigErrors), 1
  1962. else
  1963. ifstr(i) $(DeviceName) == $(MyDeviceName)
  1964. ifint $(DeviceNumber) == 0
  1965. set DeviceNumber = $(DeviceId)
  1966. else
  1967. set-add ConfigErrors = $(ConfigErrors), 1
  1968. endif
  1969. endif
  1970. set Value = {}
  1971. GetRegValue $(KeyDeviceId), "NumberOfControllers", Value
  1972. set NumberOfControllers = *($(Value), 4)
  1973. ifint $(NumberOfControllers) <= 0
  1974. set NumberOfControllers = 0
  1975. set-add ConfigErrors = $(ConfigErrors), 1
  1976. endif
  1977. ifint $(NumberOfControllers) > 99
  1978. set NumberOfControllers = 0
  1979. set-add ConfigErrors = $(ConfigErrors), 1
  1980. endif
  1981. set ValueList      = {}
  1982. set ControllerIdList = {}
  1983. EnumRegKey $(KeyDeviceId) ValueList
  1984. ForListDo $(ValueList)
  1985. set ControllerId = *($($), 1)
  1986. ifint $(ControllerId) >= 1
  1987. ifint $(ControllerId) <= $(NumberOfControllers)
  1988. set ControllerIdList = >($(ControllerIdList), $(ControllerId))
  1989. endif
  1990. endif
  1991. EndForListDo
  1992. ForListDo $(ControllerIdList)
  1993. set ControllerId = *($($), 1)
  1994. set KeyControllerId  = $(KeyNull)
  1995. OpenRegKey $(KeyDeviceId) "" $(ControllerId) $(MAXPERM) KeyControllerId
  1996. ifstr $(KeyControllerId) == $(KeyNull)
  1997. set-add ConfigErrors = $(ConfigErrors), 1
  1998. else
  1999. set Value = {}
  2000. GetRegValue $(KeyControllerId), "Channels", Value
  2001. set Channels = *($(Value), 4)
  2002. ifint $(Channels) <= 0
  2003. set-add ConfigErrors = $(ConfigErrors), 1
  2004. endif
  2005. CloseRegKey $(KeyControllerId)
  2006. endif
  2007. EndForListDo
  2008. endif
  2009. CloseRegKey $(KeyDeviceId)
  2010. endif
  2011. EndForListDo
  2012. CloseRegKey $(KeyCapi20)
  2013. ifint $(DeviceNumber) != 0
  2014. return $(ConfigErrors), $(DeviceNumber)
  2015. endif
  2016. Shell $(UtilInf) SortList $(DeviceIdList) TRUE FALSE
  2017. ForListDo $(DeviceIdList)
  2018. set DeviceId = *($($), 1)
  2019. set-add DeviceNumber = $(DeviceNumber), 1
  2020. ifint $(DeviceNumber) < $(DeviceId)
  2021. return $(ConfigErrors), $(DeviceNumber)
  2022. endif
  2023. EndForListDo
  2024. set-add DeviceNumber = $(DeviceNumber), 1
  2025. return $(ConfigErrors), $(DeviceNumber)
  2026. exit
  2027. [CreateCapiDevice]
  2028. set DeviceNumber     = $($0)
  2029. set DeviceName       = $($1)
  2030. set Controllers      = $($2)
  2031. set Channels         = $($3)
  2032. read-syms GeneralConstants
  2033. set CapiKey = $(KeyNull)
  2034. OpenRegKey  $(!REG_H_LOCAL) "" $(CapiDevicesPath) $(MAXPERM) CapiKey
  2035. ifstr $(CapiKey) == $(KeyNull)
  2036. CreateRegKey $(!REG_H_LOCAL) {$(CapiDevicesPath), 0, GenericClass} "" $(MAXPERM) "" CapiKey
  2037. endif
  2038. ifstr $(CapiKey) == $(KeyNull)
  2039. return STATUS_FAILED
  2040. endif
  2041. set CapiDeviceKey = $(KeyNull)
  2042. OpenRegKey  $(CapiKey) "" $(DeviceNumber) $(MAXPERM) CapiDeviceKey
  2043. ifstr $(CapiDeviceKey) == $(KeyNull)
  2044. CreateRegKey $(CapiKey) {$(DeviceNumber), 0, GenericClass} "" $(MAXPERM) "" CapiDeviceKey
  2045. endif
  2046. CloseRegKey $(CapiKey)
  2047. ifstr $(CapiDeviceKey) == $(KeyNull)
  2048. return STATUS_FAILED
  2049. endif
  2050. set ValueList = { +
  2051. {"DeviceName",$(NoTitle),$(!REG_VT_SZ),"CAPI20"$(DeviceNumber)},+
  2052. {"NumberOfControllers",$(NoTitle),$(!REG_VT_DWORD),$(Controllers)},+
  2053. {"Manufacturer",$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)} +
  2054. }
  2055. Shell $(UtilInf), AddValueList, $(CapiDeviceKey), $(ValueList)
  2056. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2057. CloseRegKey $(CapiDeviceKey)
  2058. return STATUS_FAILED
  2059. endif
  2060. ifstr(i) $($R0) != NO_ERROR
  2061. CloseRegKey $(CapiDeviceKey)
  2062. return STATUS_FAILED
  2063. endif
  2064. set ControllerNumber = 0
  2065. nextcontroller = +
  2066. set-add ControllerNumber = $(ControllerNumber), 1
  2067. set CapiControllerKey = $(KeyNull)
  2068. OpenRegKey  $(CapiDeviceKey) "" $(ControllerNumber) (MAXPERM) CapiControllerKey
  2069. ifstr $(CapiControllerKey) == $(KeyNull)
  2070. CreateRegKey $(CapiDeviceKey) {$(ControllerNumber), 0, GenericClass} "" $(MAXPERM) "" CapiControllerKey
  2071. endif
  2072. ifstr $(CapiControllerKey) == $(KeyNull)
  2073. CloseRegKey $(CapiDeviceKey)
  2074. return STATUS_FAILED
  2075. endif
  2076. set ValueList = { +
  2077. {"Channels",$(NoTitle),$(!REG_VT_DWORD),$(Channels)},+
  2078. }
  2079. Shell $(UtilInf), AddValueList, $(CapiControllerKey), $(ValueList)
  2080. CloseRegKey $(CapiControllerKey)
  2081. ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2082. CloseRegKey $(CapiDeviceKey)
  2083. return STATUS_FAILED
  2084. endif
  2085. ifstr(i) $($R0) != NO_ERROR
  2086. CloseRegKey $(CapiDeviceKey)
  2087. return STATUS_FAILED
  2088. endif
  2089. ifint $(ControllerNumber) < $(Controllers)
  2090. goto nextcontroller
  2091. endif
  2092. CloseRegKey $(CapiDeviceKey)
  2093. return STATUS_SUCCESSFUL
  2094. exit
  2095. [RemoveCapiDevice]
  2096. set DeviceNumber = $($0)
  2097. read-syms GeneralConstants
  2098. set CapiKey = $(KeyNull)
  2099. OpenRegKey   $(!REG_H_LOCAL) "" $(CapiDevicesPath) $(MAXPERM) CapiKey
  2100. DeleteRegTree $(CapiKey) $(DeviceNumber)
  2101. CloseRegKey $(CapiKey)
  2102. return STATUS_SUCCESSFUL
  2103. exit
  2104. [UpdateControllerList]
  2105. set Function   = $($0)
  2106. set DeviceName = $($1)
  2107. read-syms GeneralConstants
  2108. set KeyServiceParameters = $(KeyNull)
  2109. OpenRegKey $(!REG_H_LOCAL), "", $(ServiceParameters), $(MAXPERM), KeyServiceParameters
  2110. ifstr $(KeyServiceParameters) == $(KeyNull)
  2111. return CANNOT_FIND_COMPONENT_SERVICE
  2112. endif
  2113. set Value = {}
  2114. GetRegValue $(KeyServiceParameters) "Controllers" Value
  2115. ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
  2116. CloseRegKey $(KeyServiceParameters)
  2117. return CANNOT_FIND_COMPONENT_SERVICE
  2118. endif
  2119. set Value = *($(Value), 4)
  2120. set Controllers = {}
  2121. ForListDo $(Value)
  2122. set Value = $($)
  2123. ifstr(i) $(Value) != $(DeviceName)
  2124. set Controllers = >($(Controllers),$(Value))
  2125. endif
  2126. EndForListDo
  2127. ifstr(i) $(Function) == ADD
  2128. set Controllers = >($(Controllers),$(DeviceName))
  2129. endif
  2130. SetRegValue $(KeyServiceParameters) {Controllers, $(NoTitle), $(!REG_VT_MULTI_SZ), $(Controllers)}
  2131. ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
  2132. CloseRegKey $(KeyServiceParameters)
  2133. return UNABLE_WRITE_REGISTRY
  2134. endif
  2135. CloseRegKey $(KeyServiceParameters)
  2136. return NO_ERROR
  2137. exit
  2138. [Install-Install-Diskette1]
  2139. set STF_VITAL = ""
  2140. ifstr(i) $(AddCopy) == "YES"
  2141. AddSectionFilesToCopyList Files-Driver$(CardFlag) $(SrcDir) $(!STF_WINDOWSSYSPATH)"\drivers"
  2142. AddSectionFilesToCopyList Files-CapiDll  $(SrcDir) $(!STF_WINDOWSSYSPATH)
  2143. AddSectionFilesToCopyList Files-Firm $(SrcDir) $(!STF_WINDOWSSYSPATH)"\"$(FirmDir)
  2144. ifstr $(CardFlag) != 1
  2145. AddSectionFilesToCopyList Files-Util $(SrcDir) $(!STF_WINDOWSSYSPATH)"\"$(FirmDir)
  2146. endif
  2147. AddSectionFilesToCopyList Files-DiskWAN $(SrcDir) $(!STF_WINDOWSSYSPATH)"\drivers"
  2148. endif
  2149. ifstr(i) $(DoCopy) == "YES"
  2150. set !STF_NCPA_FLUSH_COPYLIST = TRUE
  2151. CopyFilesInCopyList
  2152. endif
  2153. exit
  2154. [Install-Install-Diskette2]
  2155. set STF_VITAL = ""
  2156. ifstr(i) $(AddCopy) == "YES"
  2157. AddSectionFilesToCopyList "Files-DiskCard"$(CardNumber) $(SrcDir) $(!STF_WINDOWSSYSPATH)"\"$(FirmDir)
  2158. endif
  2159. ifstr(i) $(DoCopy) == "YES"
  2160. set !STF_NCPA_FLUSH_COPYLIST = TRUE
  2161. CopyFilesInCopyList
  2162. endif
  2163. exit
  2164. [Install-Update-Diskette1]
  2165. set STF_VITAL        = ""
  2166. set STF_OVERWRITE    = "VERIFYSOURCEOLDER"
  2167. AddSectionFilesToCopyList Files-Driver$(CardFlag) $(SrcDir) $(!STF_WINDOWSSYSPATH)"\drivers"
  2168. AddSectionFilesToCopyList Files-CapiDll  $(SrcDir) $(!STF_WINDOWSSYSPATH)
  2169. AddSectionFilesToCopyList Files-Inf    $(SrcDir) $(!STF_WINDOWSSYSPATH)
  2170. AddSectionFilesToCopyList Files-Firm   $(SrcDir) $(!STF_WINDOWSSYSPATH)"\"$(FirmDir)
  2171. ifstr $(CardFlag) != 1
  2172. AddSectionFilesToCopyList Files-Util   $(SrcDir) $(!STF_WINDOWSSYSPATH)"\"$(FirmDir)
  2173. endif
  2174. AddSectionFilesToCopyList Files-DiskWAN $(SrcDir) $(!STF_WINDOWSSYSPATH)"\drivers"
  2175. set !STF_NCPA_FLUSH_COPYLIST = TRUE
  2176. CopyFilesInCopyList
  2177. exit
  2178. [Install-Update-Diskette2]
  2179. set STF_VITAL        = ""
  2180. set STF_OVERWRITE    = "VERIFYSOURCEOLDER"
  2181. AddSectionFilesToCopyList "Files-DiskCard"$(CardNumber) $(SrcDir) $(!STF_WINDOWSSYSPATH)"\"$(FirmDir)
  2182. set !STF_NCPA_FLUSH_COPYLIST = TRUE
  2183. CopyFilesInCopyList
  2184. exit
  2185. [HtCreateRegKey]
  2186. Set ECR_Result          = NO_ERROR
  2187. Set ECR_BaseKeyHandle   = $($0)
  2188. Set ECR_NewPath         = $($1)
  2189. Set KeyNull             = ""
  2190. Set MAXIMUM_ALLOWED     = 33554432
  2191. OpenRegKey $(ECR_BaseKeyHandle) "" $(ECR_NewPath) $(MAXIMUM_ALLOWED) +
  2192. ECR_BaseKey
  2193. IfStr $(ECR_BaseKey) == $(KeyNull)
  2194. Else
  2195. Set ECR_KeyHandle = $(ECR_BaseKey)
  2196. GoTo  ECR_Return
  2197. EndIf
  2198. Set ECR_TmpPath = ""
  2199. Split-String $(ECR_NewPath) "\" ECR_PList
  2200. ForListDo $(ECR_PList)
  2201. IfStr(i) $($) != "\"
  2202. IfInt $(#) == 1
  2203. Set ECR_TmpPath = $($)
  2204. Else
  2205. Set ECR_TmpPath = $(ECR_TmpPath)"\"$($)
  2206. EndIf
  2207. OpenRegKey $(ECR_BaseKeyHandle) "" $(ECR_TmpPath) $(MAXIMUM_ALLOWED) ECR_BaseKey
  2208. IfStr $(ECR_BaseKey) == $(KeyNull)
  2209. CreateRegKey $(ECR_BaseKeyHandle)  {$(ECR_TmpPath),0,GenericClass} "" $(MAXIMUM_ALLOWED) "" ECR_KeyHandle
  2210. IfStr(i) $(ECR_KeyHandle) == $(KeyNull)
  2211. Set ECR_Result = $($R0)
  2212. GoTo ECR_Return
  2213. EndIf
  2214. EndIf
  2215. EndIf
  2216. EndForListDo
  2217. ECR_Return = +
  2218. Return $(ECR_Result) $(ECR_KeyHandle)
  2219.