![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ntlanman.inf CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / ntddk / src / setup / inf / ndis|
Return to ntlanman.inf CVS log | Up to [WindowsNT SDKs] / ntddk / src / setup / inf / ndis |
1.1 root 1: ;***********************************************************************
2: ;
3:
4:
5:
6: ;
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23: ; NTLANMAN.INF
24: ;
25: ; This is the Network Setup INF for NT/Lanman installation.
26: ;
27: ; Usage:
28: ; NORMAL: This file is "shelled" from SETUP.INF during
29: ; main installation.
30: ;
31: ; Warning:
32: ;
33: ; This file is processed by that work of wonder, RCPP, into
34: ; three separate files: NTLANMAN.INF, NTIDWNET.INF
35: ; and NTLMINST.INF. Because of this, some spurious errors are
36: ; occasionally emitted due
37: ; to the 'C' syntax knowledge of RCPP. For this reason, some
38: ; comments dont use apostrophes and ellipses have been avoided.
39: ; Other errors, such as escaped quotes, are unavoidable.
40: ;
41:
42: ;
43: ; History:
44: ; davidhov 10-Mar-1992 Created
45: ;
46: ;
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87: ;***********************************************************************
88: ; CONSTANTS FOR USING DIALOGS
89: ;***********************************************************************
90: [GeneralConstants]
91:
92: Exit_Code = 0
93: BillboardVisible = 0
94: ;
95: ; Return codes; Exit_Code is set to one of these
96: ;
97: ExitCodeOk = 0
98: ExitCodeCancel = 1
99: ExitCodeFatal = 2
100: ;
101: ; Program flow control variables.
102: ;
103: retaddr = ""
104: callresult = 0
105: from = ""
106: to = ""
107: ;
108: ; Location of netcard product information
109: ;
110: NetworkCardKeyName = $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards"
111: KeyNull = ""
112: MAXIMUM_ALLOWED = 33554432
113: SERVICE_NO_CHANGE = 4294967295
114: KeyInfo = {}
115: NoTitle = 0
116: UtilityInf = "UTILITY.INF"
117: NcParamInf = "NCPARAM.INF"
118: RasAutoInstall = 0
119:
120: !STF_DOMAIN_ROLE = STANDALONE
121: !STF_DOMAIN = ""
122: !STF_SRCDIR_WINNT = ""
123:
124: [DialogConstants]
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143: ;
144: ; Common button names, etc.
145: ;
146: Help = "&Help"
147: Exit = "Cancel"
148: HelpContext = ""
149: Continue = "Continue"
150: ExitState = "Active"
151: Cancel = "Cancel"
152: ;
153: ; Constants to support the use of radio button dialogs
154: ;
155: Radio1 = "1"
156: Radio2 = "2"
157: Radio3 = "3"
158: Radio4 = "4"
159: Radio5 = "5"
160: Radio6 = "6"
161: Radio7 = "7"
162: Radio8 = "8"
163: Radio9 = "9"
164: ;
165: ; Constants to support the use of checkbox dialogs
166: ;
167: ; DON'T TRANSLATE -- Internal use only
168: ;
169: Chosen = "ON"
170: NotChosen = "OFF"
171:
172: NullFileName = "NOSUCH.FIL"
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237: ;***********************************************************************
238: ; ERROR MESSAGE CONSTANTS-- Language-dependent
239: ;***********************************************************************
240: [ErrorConstants]
241: ;
242: ; Error handling variables
243: ;
244: RegistryErrorList = ^(RegistryErrors$(!STF_LANGUAGE),1)
245: RegistryErrorIndex = 1
246:
247: ;------------------------------------------------------------------
248: ; UI VARIABLES
249: ; these variables are initialised with defaults, detected from the
250: ; system configuration and/or queried from the user. the variables
251: ; are language independent.
252: ;------------------------------------------------------------------
253:
254: [UiVars]
255: DummyUnsedUiVar = ""
256:
257: ;**************************************************************************
258: ; Network UI Variables
259: ;**************************************************************************
260: [DestNetPathNames]
261: DEST_NET_DRIVER = $(!STF_NTPATH)\drivers
262: DEST_NET_PROTOCOL = $(!STF_NTPATH)\drivers
263: DEST_NET_EXE = $(!STF_WINDOWSSYSPATH)
264: DEST_NET_INF = $(!STF_WINDOWSSYSPATH)
265: DEST_NET_DLL = $(!STF_WINDOWSSYSPATH)
266:
267: ;
268: ; Instantiate the platform dependent lists
269: ;
270: [NetworkVars]
271: ;
272: ; Global variables which would otherwise be supplied by NCPASHEL.INF
273: ;
274: !STF_SRCDIR_KEYED = "" ; source dir as entered
275: !STF_SRCDIR_USED = "" ; source dir as used
276: !STF_SRCDIR_OVERRIDE = "" ; OEM source path
277: !NTN_RegBase = ""
278: !NTN_ServiceBase = "SYSTEM\CurrentControlSet\SERVICES"
279: !NTN_SoftwareBase = "SOFTWARE"
280: !NTN_InstallMode = "install"
281: !NTN_Origination = "install"
282: !NTN_InstallPhase = "primary"
283:
284: ;
285: ; Set up the default lists for services and protocols
286: ;
287: ServiceInfList = ^(ServiceData, 1)
288: ServiceOptionList = ^(ServiceData, 2)
289: ServiceBbList = ^(ServiceData,3)
290: ServiceNameList = ^(ServiceData,4)
291:
292: ProtoInfList = ^(ProtoData, 1)
293: ProtoOptionList = ^(ProtoData, 2)
294: ProtoBbList = ^(ProtoData, 3)
295: ProtoNameList = ^(ProtoData, 4)
296:
297: ;
298: ; SERVICE and PROTOCOL INF lists.
299: ;
300: ; Format: <name of INF to run>,<option to install>,<billboard index>
301: ;
302: ; Default NetBIOS transport INF: NetBeui (NBF.SYS)
303: ;
304: [ProtoData]
305: ProtoData_1 = "OEMNXPNB.INF","NBF",4,Nbf
306: ;
307: ; NT LM service INFs. Files is this list are "shelled" to, along with
308: ; the appropriate protocol INF and netcard INF.
309: ;
310: [ServiceData]
311: ; Server service
312: ServiceData_1 = "OEMNSVSV.INF","SRV",3,LanmanServer
313: ; Workstation service
314: ServiceData_2 = "OEMNSVWK.INF","WKSTA",2,LanmanWorkstation
315: ; NetBIOS API support
316: ServiceData_3 = "OEMNSVNB.INF","NETBIOS",5,NetBIOS
317: ; RPC API support
318: ServiceData_4 = "OEMNSVRP.INF","RPCLOCATE",11,RPCLOCATOR
319:
320: [RasServiceData]
321: RAS_InfName = "OEMNSVRA.INF"
322: RAS_Option = "RAS"
323: RAS_Billboard = 12
324: RAS_Service = "RAS"
325:
326:
327: ;**************************************************************************
328: ;**************************************************************************
329: ;
330: ; SHELL COMMANDS SECTION
331: ;
332: ;**************************************************************************
333: ;**************************************************************************
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672: [DoNetwork]
673:
674: Set !G:DebugOutputControl = 0
675:
676: Debug-Output "NTLANMAN.INF: Section: Shell Commands"
677:
678: Set NetInstallStatus = STATUS_SUCCESSFUL
679:
680: set-subst LF = "\n"
681:
682: StartWait
683: ;
684: ; read general constants, etc.
685: ;
686: read-syms GeneralConstants
687:
688: Ifstr(i) $(!STF_PRODUCT) == "LANMANNT"
689: read-syms ProductTitleLanmanNt$(!STF_LANGUAGE)
690: Else
691: read-syms ProductTitleWinNt$(!STF_LANGUAGE)
692: Endif
693: Debug-Output "NTLANMAN.INF: Product title is: "$(!NetProductTitle)
694: set-title $(!NetProductTitle)" Network Installation"
695:
696: read-syms UiVars
697: read-syms DestNetPathNames
698: read-syms DialogConstants
699: read-syms NetworkVars
700: read-syms ProgressCopy$(!STF_LANGUAGE)
701:
702: Set !STF_IDW = FALSE
703:
704: Debug-Output "NTLANMAN.INF: Base variables loaded"
705:
706: LoadLibrary "x" $(!STF_CWDDIR)\setupdll.dll !LIBHANDLE
707:
708: Debug-Output "NTLANMAN.INF: Successfully linked to SETUPDLL.DLL"
709:
710: LoadLibrary "x" $(!STF_CWDDIR)\ncpa.cpl !NCPA_HANDLE
711:
712: Debug-Output "NTLANMAN.INF: Successfully linked to NCPA.CPL"
713:
714: Shell "subroutn.inf" ReadSetupHelpIds
715: SetHelpFile "setupnt.hlp" $(!MinimumID) $(!MaximumID)
716:
717: EndWait
718:
719: Debug-Output "NTLANMAN.INF: Network variables loaded"
720:
721: ;
722: ; To support WINNT setup, record STF_SRCDIR into the Registry.
723: ; If present, this is used as an override to the "SourcePath"
724: ; value SETUP normally records. The problem is that the "SourcePath"
725: ; is a lie for WINNT setup-- it always points at "A:\", not to the
726: ; hidden temporary directory.
727: ;
728: OpenRegKey $(!REG_H_LOCAL) "" "SYSTEM\Setup" $(MAXIMUM_ALLOWED) KeySetup
729: Ifstr(i) $(KeySetup) != ""
730: SetRegValue $(KeySetup) {WinntPath,$(NoTitle),$(!REG_VT_SZ),$(!STF_SRCDIR)}
731: CloseRegKey $(KeySetup)
732: Debug-Output "NTLANMAN.INF: Setup\WinntPath value set to: "$(!STF_SRCDIR)
733: Endif
734:
735:
736:
737: ;------------------------------------------------------------------------
738: ;
739: ; NETCARD INSTALLATION
740: ;
741: ; Since detection is always activated merely by shelling to
742: ; [InitialAdapterInstall], we just call the INF OEMHOOK.INF.
743: ; This file, normally absent, allows vendors to copy files,
744: ; manipulate the Registry, etc., to prepare for netcard operations.
745: ;
746: ;------------------------------------------------------------------------
747:
748: ;
749: ; Get global variables set up and enable detection.
750: ;
751: Shell $(NcParamInf) Param_SetGlobals
752: Set !STF_NCDETECT = YES
753:
754: ; Silently run the INF called OEMHOOK.INF if there is one.
755:
756: Shell "" InstallOemHook
757:
758: Debug-Output "NTLANMAN.INF: Establish netcard option"
759:
760: set retaddr = nphase$runinfs
761: goto netgetdriver
762:
763: nphase$runinfs = +
764: Debug-Output "NTLANMAN.INF: Run subordinate INFs"
765:
766: Set retaddr = nphase$installfiles
767: Goto netruninfs
768: ;
769: ; Add all the networking files to the install list and
770: ; copy them.
771: ;
772: nphase$installfiles = +
773: Set retaddr = nphase$ncpacmdline
774:
775: Ifstr(i) $(!STF_IDW) != "TRUE"
776: Goto netinstallfiles
777: Endif
778:
779: ;
780: ; Create the NCPA command line parameters
781: ;
782: nphase$ncpacmdline = +
783: Set retaddr = nphase$runncpa
784: Goto netncpacmdline
785: ;
786: ; Run the NCPA to configure the network
787: ;
788: nphase$runncpa = +
789: ;
790: ; Does ActiveComputerName exist? If so, stomp on it.
791: ;
792: Set KeyComputerName = $(KeyNull)
793: OpenRegKey $(!REG_H_LOCAL) "" "SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName" $(MAXIMUM_ALLOWED) KeyComputerName
794:
795: Ifstr(i) $(KeyComputerName) != $(KeyNull)
796: GetRegValue $(KeyComputerName) "ComputerName" ValueActiveComputerName
797: Set ActiveComputerName = *($(ValueActiveComputerName),4)
798: Debug-Output "NTLANMAN.INF: *************************************"
799: Debug-Output "NTLANMAN.INF: ActiveComputerName key exists: "$(ActiveComputerName)
800: SetRegValue $(KeyComputerName) {ComputerName,$(NoTitle),$(!REG_VT_SZ),$(!STF_COMPUTERNAME)}
801: Debug-Output "NTLANMAN.INF: ActiveComputerName was set to: "$(!STF_COMPUTERNAME)
802: Debug-Output "NTLANMAN.INF: *************************************"
803: CloseRegKey $(KeyComputerName)
804: Else
805: Debug-Output "NTLANMAN.INF: ActiveComputerName key does not exist."
806: Endif
807:
808: Debug-Output "NTLANMAN.INF: Run NCPA to configure the network"
809: Ifint $(BillboardVisible) != 0
810: Shell "subroutn.inf" PopBillboard
811: Set BillboardVisible = 0
812: Endif
813: set retaddr = nphase$startnet
814: goto netrunncpa
815: ;
816: ; Start the network (workstation, rdr, xport, driver)
817: ;
818: nphase$startnet = +
819: Debug-Output "NTLANMAN.INF: Run NCPA to start the network"
820:
821: read-syms Billboard6$(!STF_LANGUAGE)
822: Shell "subroutn.inf" PushBillboard NETSTATUSDLG $(Status)
823: Set BillboardVisible = 1
824:
825: Set retaddr = nphase$domainrole
826: Goto netstartnetwork
827: ;
828: ; Determine this machine's role in the network
829: ;
830: nphase$domainrole = +
831: Debug-Output "NTLANMAN.INF: Run NCPA to establish domain"
832: Ifint $(BillboardVisible) != 0
833: Shell "subroutn.inf" PopBillboard
834: Set BillboardVisible = 0
835: Endif
836:
837: set retaddr = nphase$connectshare
838: goto netdomain
839: ;
840: ; Connect to a remote sharepoint if necessary
841: ;
842: nphase$connectshare = +
843: ;
844: ; connecting to a remote share is not necessary... in initial setup we don't
845: ; have unc shares.
846: ;
847:
848: Debug-Output "NTLANMAN.INF: Domain Role = "$(!STF_DOMAIN_ROLE)
849: Set retaddr = nphase$done
850: Debug-Output "NTLANMAN.INF: NOT connecting to remote sharepoint"
851: Goto $(retaddr)
852: ;
853: ; That's all for now...
854: ;
855: nphase$done = +
856: Debug-Output "NTLANMAN.INF: Done ************************"
857: ;
858: ; Remove the billboard, if any
859: ;
860: Ifint $(BillboardVisible) != 0
861: Shell "subroutn.inf" PopBillboard
862: Set BillboardVisible = 0
863: Endif
864:
865:
866:
867:
868:
869:
870:
871:
872:
873:
874:
875:
876:
877:
878:
879:
880:
881:
882:
883:
884:
885:
886:
887:
888:
889:
890:
891:
892:
893:
894:
895:
896:
897:
898:
899:
900:
901:
902:
903:
904:
905:
906:
907:
908:
909:
910:
911:
912:
913:
914:
915:
916:
917:
918:
919:
920:
921:
922:
923:
924:
925:
926:
927:
928:
929:
930:
931:
932:
933:
934:
935:
936:
937:
938:
939:
940:
941:
942:
943:
944:
945:
946:
947:
948:
949:
950:
951:
952:
953:
954:
955:
956:
957:
958:
959:
960:
961:
962:
963:
964:
965:
966:
967:
968:
969:
970:
971:
972:
973:
974:
975:
976:
977:
978:
979:
980:
981:
982:
983:
984:
985:
986:
987:
988:
989:
990:
991:
992:
993:
994:
995:
996:
997:
998:
999:
1000:
1001:
1002:
1003:
1004:
1005:
1006:
1007:
1008:
1009:
1010:
1011:
1012:
1013:
1014:
1015:
1016:
1017:
1018:
1019:
1020:
1021:
1022:
1023:
1024:
1025:
1026:
1027:
1028:
1029:
1030:
1031:
1032:
1033:
1034:
1035:
1036:
1037:
1038:
1039:
1040:
1041:
1042:
1043:
1044:
1045:
1046:
1047:
1048:
1049:
1050:
1051:
1052:
1053:
1054:
1055:
1056:
1057:
1058:
1059:
1060:
1061:
1062:
1063:
1064:
1065:
1066:
1067:
1068:
1069:
1070:
1071:
1072:
1073: ;
1074: ; Discard the Billboard dialog if still present
1075: ;
1076: Ifint $(BillboardVisible) != 0
1077: Shell "subroutn.inf" PopBillboard
1078: Set BillboardVisible = 0
1079: Endif
1080:
1081: Goto end
1082:
1083: ;===========================================================================
1084: ;===========================================================================
1085: ;===========================================================================
1086: ;
1087: ; Worker functions.
1088: ;
1089: ;===========================================================================
1090: ;===========================================================================
1091: ;===========================================================================
1092:
1093: ;****************************************************************
1094: ;
1095: ; Install all files in copy list.
1096: ;
1097: ;****************************************************************
1098:
1099: netinstallfiles = +
1100:
1101:
1102: Shell "initial.inf" ControlBitmaps START
1103:
1104:
1105: Debug-Output "NTLANMAN.INF: Installing all files in copy list"
1106: Install Install-All-Files-Now
1107:
1108:
1109: Shell "initial.inf" ControlBitmaps STOP
1110:
1111:
1112: goto $(retaddr)
1113:
1114: ;****************************************************************
1115: ;
1116: ; Build the command line parameters for the NCPA exports
1117: ;
1118: ;****************************************************************
1119: netncpacmdline = +
1120: ;
1121: ; Build the command line paramters for the NCPA's calls to SETUP
1122: ;
1123: Set NCPA_CMD_LINE = " /t STF_PRODUCT = "$(!STF_PRODUCT)
1124: Set NCPA_CMD_LINE = " /t STF_COMPUTERNAME = """$(!STF_COMPUTERNAME)""""$(NCPA_CMD_LINE)
1125: Set NCPA_CMD_LINE = " /t STF_USERNAME = """$(!STF_USERNAME)""""$(NCPA_CMD_LINE)
1126: Set NCPA_CMD_LINE = " /t STF_INSTALL_MODE = "$(!STF_INSTALL_MODE)$(NCPA_CMD_LINE)
1127: Set NCPA_CMD_LINE = " /t STF_SRCDIR = "$(!STF_SRCDIR)$(NCPA_CMD_LINE)
1128:
1129: Ifstr(i) $(!STF_IDW) == TRUE
1130: Set NCPA_CMD_LINE = " /t STF_IDW = "$(!STF_IDW)$(NCPA_CMD_LINE)
1131: Endif
1132:
1133: goto $(retaddr)
1134:
1135: ;****************************************************************
1136: ;
1137: ; Run the NCPA.CPL in "NCPA" mode; i.e., cause network binding,
1138: ; OEM installation, etc.
1139: ;
1140: ;****************************************************************
1141: netrunncpa = +
1142:
1143: StartDetachedProcess STATUS "" "" $(!STF_WINDOWSSYSPATH)"\spoolss.exe"
1144: ifstr(i) $(STATUS) != "ERROR"
1145: set !STF_START_SPOOLSS = "NO"
1146: endif
1147:
1148: ;
1149: ; Run the NCPA, giving it the proper information: the window handle
1150: ; of the main SETUP window, the function to run ("NCPA"), and
1151: ; the parameters to use for dialogs and subordinate SETUP invocation.
1152: ;
1153: Set NCPA_FUNC = NCPA
1154:
1155: goto netcallncpa
1156:
1157: netstartservice = +
1158: ;
1159: ; Call the NCPA's StartService wrapper. It allows passing of parameters,
1160: ; but we currently don't need this capability.
1161: ;
1162: Debug-Output "NTLANMAN.INF: calling NCPA.CPL to start service "$(NCPA_SERVICE)
1163:
1164: LibraryProcedure NCPA_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), STARTSVC, $(NCPA_SERVICE)
1165: Goto netreturnncpa
1166:
1167: netcallncpa = +
1168: ;
1169: ; Call the NCPA.CPL. There are three standard parameters:
1170: ;
1171: ; [0] ASCII form of LONG window handle
1172: ; [1] ASCII name of NCPA.CPL function to perform
1173: ; [2] command line to pass to NCPA and subordinate INFs
1174: ;
1175: ;
1176: Debug-Output "NTLANMAN.INF: calling NCPA.CPL, function "$(NCPA_FUNC)
1177:
1178: LibraryProcedure NCPA_RESULT $(!NCPA_HANDLE),CPlSetup $(!STF_HWND), $(NCPA_FUNC), $(NCPA_CMD_LINE)
1179:
1180: netreturnncpa = +
1181:
1182: Set NCPA_STATUS = *($(NCPA_RESULT),1)
1183: Debug-Output "NTLANMAN.INF: NCPA Status was: "$(NCPA_STATUS)
1184: goto $(retaddr)
1185:
1186: ;****************************************************************
1187: ;
1188: ; Start the Network: start LanmanWorkstation and LMHOSTS if it exists
1189: ;
1190: ;****************************************************************
1191: netstartnetwork = +
1192: Debug-Output "NTLANMAN.INF: Starting workstation..."
1193: StartWait
1194: Set WaitStarted = 1
1195: Set FLibraryErrCtl = 1
1196:
1197: LibraryProcedure NCPA_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), STARTSVC, LanmanWorkstation
1198:
1199: Set NCPA_STATUS = *($(NCPA_RESULT),1)
1200:
1201: Debug-Output "NTLANMAN.INF: Start workstation; result was: "$(NCPA_STATUS)
1202:
1203: Ifint $(NCPA_STATUS) != 0
1204: EndWait
1205: Set WaitStarted = 0
1206:
1207: LibraryProcedure NCPA_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), ERRORMSG, $(NCPA_STATUS)
1208:
1209: Set NCPA_ERROR_MESSAGE = *($(NCPA_RESULT),2)
1210: Debug-Output "NTLANMAN.INF: Error "$(NCPA_STATUS)" translated to: "$(NCPA_ERROR_MESSAGE)
1211: Read-syms WarningNoNet$(!STF_LANGUAGE)
1212: Set Error = $(NCPA_ERROR_MESSAGE)$(ErrorSuffix)
1213: read-syms WarningDlg$(!STF_LANGUAGE)
1214: ui start SetupMessage
1215: goto netstartnetdone
1216: Endif
1217:
1218: Debug-Output "NTLANMAN.INF: Starting LMHOSTS service..."
1219:
1220: ;
1221: ; Start LMHOSTS service if it exists
1222: ;
1223: OpenRegKey $(!REG_H_LOCAL) "" "SYSTEM\CurrentControlSet\Services\LmHosts" $(MAXIMUM_ALLOWED) KeyLmHosts
1224: ifstr(i) $(KeyLmHosts) != ""
1225: EndWait
1226: Set WaitStarted = 0
1227:
1228: LibraryProcedure NCPA_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), STARTSVC, LmHosts
1229:
1230: Set NCPA_STATUS = *($(NCPA_RESULT),1)
1231:
1232: Debug-Output "NTLANMAN.INF: Start Lmhosts; result was: "$(NCPA_STATUS)
1233:
1234: Ifint $(NCPA_STATUS) != 0
1235: LibraryProcedure NCPA_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), ERRORMSG, $(NCPA_STATUS)
1236: Set NCPA_ERROR_MESSAGE = *($(NCPA_RESULT),2)
1237: Debug-Output "NTLANMAN.INF: Error "$(NCPA_STATUS)" translated to: "$(NCPA_ERROR_MESSAGE)
1238: Read-syms WarningNoLmHosts$(!STF_LANGUAGE)
1239: Set Error = $(NCPA_ERROR_MESSAGE)$(ErrorSuffix)
1240: read-syms WarningDlg$(!STF_LANGUAGE)
1241: ui start SetupMessage
1242: goto netstartnotdone
1243: Endif
1244: Endif
1245:
1246: netstartnetdone =+
1247:
1248: Set FLibraryErrCtl = 0
1249: Ifint $(WaitStarted) == 1
1250: EndWait
1251: Endif
1252:
1253:
1254:
1255: Goto $(retaddr)
1256:
1257: ;****************************************************************
1258: ;
1259: ; Run NCPA.CPL in "DOMAIN" mode; i.e., establish domain
1260: ; role, security info, etc.,
1261: ;
1262: ; The DOMAIN subfunction returns a string (NCPA_RESULT) in
1263: ; the following format:
1264: ;
1265: ; { <numeric error code>,
1266: ; COMPUTERNAME,
1267: ; DOMAINNAME,
1268: ; LOGONPASSWORD,
1269: ; COMPUTERROLE
1270: ; }
1271: ;****************************************************************
1272: netdomain = +
1273: Debug-Output "NTLANMAN.INF: Running Domain Settings dialog..."
1274:
1275: Set FLibraryErrCtl = 1
1276:
1277: LibraryProcedure NCPA_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), DOMAIN, $(NCPA_CMD_LINE)
1278:
1279: Set FLibraryErrCtl = 0
1280:
1281: Set NCPA_STATUS = *($(NCPA_RESULT),1)
1282:
1283: Debug-Output "NTLANMAN.INF: Domain Settings result was: "$(NCPA_STATUS)
1284:
1285: Ifint $(NCPA_STATUS) != 0
1286: ;
1287: ; Check for IDS_NCPA_SETUP_CANCELLED. If so, and LanmanNT,
1288: ; discontinue installation.
1289: ;
1290: Ifint $(NCPA_STATUS) == 13074
1291: Ifstr(i) $(!STF_PRODUCT) == "LANMANNT"
1292: Debug-Output "NTLANMAN.INF: Aborting LanmanNT installation; user cancellation."
1293: Set NetInstallStatus = STATUS_USERCANCEL
1294: Goto setupnotdone
1295: Endif
1296: Endif
1297: Endif
1298:
1299: ;
1300: ; Check the return variable, and update globals with new
1301: ; information derived from domain installation process.
1302: ;
1303: Set TEMP_COMPUTERNAME = *($(NCPA_RESULT),2)
1304: Set TEMP_DOMAINNAME = *($(NCPA_RESULT),3)
1305: Set TEMP_COMPUTERROLE = *($(NCPA_RESULT),5)
1306:
1307: Ifstr(i) $(TEMP_COMPUTERNAME) != ""
1308: Ifstr(i) $(TEMP_COMPUTERNAME) != $(!STF_COMPUTERNAME)
1309: Set !STF_COMPUTERNAME = $(TEMP_COMPUTERNAME)
1310: Debug-Output "NTLANMAN.INF: Computername changed to "$(!STF_COMPUTERNAME)
1311: Endif
1312: Endif
1313: Ifstr(i) $(TEMP_DOMAINNAME) != ""
1314: Set !STF_DOMAIN = $(TEMP_DOMAINNAME)
1315: Debug-Output "NTLANMAN.INF: Domain name is "$(!STF_DOMAIN)
1316: Endif
1317: Ifstr(i) $(TEMP_COMPUTERROLE) != ""
1318: Set !STF_DOMAIN_ROLE = $(TEMP_COMPUTERROLE)
1319: Debug-Output "NTLANMAN.INF: Domain role is "$(!STF_DOMAIN_ROLE)
1320: Endif
1321: ;
1322: ; Check to see if TEMP_COMPUTERROLE is STANDALONE. If so, alter the NetLogon
1323: ; service to be startable on demand (not auto-started).
1324: ;
1325: Ifstr(i) $(TEMP_COMPUTERROLE) == STANDALONE
1326: Debug-Output "NTLANMAN.INF: Prevent NETLOGON service from autostarting"
1327: LibraryProcedure DontCare, $(!LIBHANDLE), SetupChangeServiceConfig, NetLogon,+
1328: $(SERVICE_NO_CHANGE), 3, $(SERVICE_NO_CHANGE), "", "", "", "", "", ""
1329: Endif
1330:
1331: goto $(retaddr)
1332: ;****************************************************************
1333: ;
1334: ; Get Primary Adapter Type
1335: ;
1336: ;****************************************************************
1337: netgetdriver = +
1338: Debug-Output "NTLANMAN.INF: Label: netgetdriver"
1339:
1340: Shell "" InitialAdapterInstall
1341:
1342: Set NetInstallStatus = $($R0)
1343:
1344: Ifstr(i) $(NetInstallStatus) == STATUS_WANTRAS
1345: Set NetInstallStatus = STATUS_SUCCESSFUL
1346: Set RasAutoInstall = 1
1347: Debug-Output "NTLANMAN.INF: RAS auto-installation chosen"
1348: Endif
1349:
1350: Debug-Output "NTLANMAN.INF: netgetdriver; returning: "$(NetInstallStatus)
1351:
1352: ;****************************************************************
1353: ;
1354: ; See if user has cancelled; exit if so. Convert EXITNET to
1355: ; SUCCESSFUL if this is main installation.
1356: ;
1357: ;****************************************************************
1358: netcheckquit = +
1359: Debug-Output "NTLANMAN.INF: netcheckquit original status: "$(NetInstallStatus)
1360:
1361: Set UserChoiceList = {"STATUS_SUCCESSFUL",+ ; all is well
1362: "STATUS_USERCANCEL",+ ; user wants to exit completely
1363: "STATUS_EXITNET",+ ; user wants no network
1364: "STATUS_FAILED"} ; things are dismal
1365:
1366: Ifstr(i) $(!STF_PRODUCT) == "LANMANNT"
1367: Set InfReturnList = {"STATUS_SUCCESSFUL",+ ; SUCCESSFUL -> SUCCESSFUL
1368: "STATUS_USERCANCEL",+ ; USERCANCEL -> USERCANCEL
1369: "STATUS_SUCCESSFUL",+ ; EXITNET -> SUCCESSFUL
1370: "STATUS_FAILED"} ; FAILED -> FAILED
1371: Set LabelList = {$(retaddr),setupnotdone,setupnotdone,setupnotdone}
1372: Else
1373: Set InfReturnList = {"STATUS_SUCCESSFUL",+ ; SUCCESSFUL -> SUCCESSFUL
1374: "STATUS_USERCANCEL",+ ; USERCANCEL -> USERCANCEL
1375: "STATUS_USERCANCEL",+ ; EXITNET -> USERCANCEL
1376: "STATUS_FAILED"} ; FAILED -> FAILED
1377: Set LabelList = {$(retaddr),setupnotdone,nphase$done,setupnotdone}
1378: Endif
1379:
1380:
1381:
1382:
1383:
1384:
1385: ; Set the user's choice index
1386:
1387: Set UserChoice = ~($(UserChoiceList),$(NetInstallStatus))
1388: Ifint $(UserChoice) == 0
1389: ; Default to "STATUS_FAILED" if unintelligible
1390: Debug-Output "NTLANMAN.INF: netcheckquit defaulting status to STATUS_FAILED"
1391: Set UserChoice = 4
1392: Endif
1393:
1394: ; Set the return value and return point based on status
1395:
1396: Set NetInstallStatus = *($(InfReturnList),$(UserChoice))
1397: Set UserRetAddr = *($(LabelList),$(UserChoice))
1398:
1399: Debug-Output "NTLANMAN.INF: netcheckquit status: "$(NetInstallStatus)", label: "$(UserRetAddr)
1400:
1401: Goto $(UserRetAddr)
1402:
1403:
1404: ;****************************************************************
1405: ;
1406: ; Run the Subordinate INFs
1407: ;
1408: ; Execute all the necessary component INFs. First, run the adapter
1409: ; INF, then the protocol INF. After, run all the NT LM service INFs
1410: ;
1411: ;****************************************************************
1412: netruninfs = +
1413:
1414: Debug-Output "NTLANMAN.INF: Label: netruninfs"
1415:
1416: Set InfsToBeRun = {}
1417: Set OptionsToInstall = {}
1418: Set BbToBeShown = {}
1419: Set SvcNameList = {}
1420: Set AdapterSrcDir = $(!STF_SRCDIR)
1421:
1422: ForListDo $(ProtoInfList)
1423: Set InfsToBeRun = >($(InfsToBeRun),$($))
1424: Set OptionsToInstall = >($(OptionsToInstall),*($(ProtoOptionList),$(#)))
1425: Set BbToBeShown = >($(BbToBeShown),*($(ProtoBbList),$(#)))
1426: EndForListDo
1427:
1428: ForListDo $(ServiceInfList)
1429: Set InfsToBeRun = >($(InfsToBeRun),$($))
1430: Set OptionsToInstall = >($(OptionsToInstall),*($(ServiceOptionList),$(#)))
1431: Set BbToBeShown = >($(BbToBeShown),*($(ServiceBbList),$(#)))
1432: EndForListDo
1433:
1434: ;
1435: ; If selected, append the RAS tokens to the extant lists
1436: ;
1437: Ifint $(RasAutoInstall) == 1
1438: Debug-Output "NTLANMAN.INF: Preparing RAS for installation"
1439: read-syms RasServiceData
1440: Set InfsToBeRun = >($(InfsToBeRun),$(RAS_InfName))
1441: Set OptionsToInstall = >($(OptionsToInstall),$(RAS_Option))
1442: Set BbToBeShown = >($(BbToBeShown),$(RAS_Billboard))
1443: Endif
1444:
1445: Debug-Output "NTLANMAN.INF: INFs to be run: "$(InfsToBeRun)
1446: Debug-Output "NTLANMAN.INF: Options to install: "$(OptionsToInstall)
1447: Debug-Output "NTLANMAN.INF: Billboards to be shown: "$(BbToBeShown)
1448: ;
1449: ; The list of INFs is now complete. Start shelling...
1450: ;
1451: Set FailedInfFile = ""
1452:
1453: ForListDo $(InfsToBeRun)
1454: Set ThisInfName = $($)
1455: Set BbIndex = *($(BbToBeShown),$(#))
1456:
1457: Debug-Output "NTLANMAN.INF: Installing "$(ThisInfName)
1458:
1459: Ifint $(BbIndex) != 0
1460: read-syms Billboard$(BbIndex)$(!STF_LANGUAGE)
1461: Shell "subroutn.inf" PushBillboard NETSTATUSDLG $(Status)
1462: Set BillboardVisible = 1
1463: Else-ifint $(BillboardVisible) != 0
1464: Shell "subroutn.inf" PopBillboard
1465: Set BillboardVisible = 0
1466: Endif
1467:
1468: Set FailedInfFile = $(ThisInfName)
1469:
1470: Set InfOption = *($(OptionsToInstall),$(#))
1471:
1472: Shell $(ThisInfName) InstallOption $(!STF_LANGUAGE) $(InfOption) $(AdapterSrcDir) "YES" "NO" "NO"
1473:
1474: ; Reset the title string
1475: Set-title $(!NetProductTitle)" Network Installation"
1476:
1477: Ifint $($ShellCode) != $(!SHELL_CODE_OK)
1478: Debug-Output "NTLANMAN.INF: INF "$(ThisInfName)" SHELL ERROR!"
1479: Goto netruninfescape
1480: Endif
1481:
1482: Set NetInstallStatus = $($R0)
1483:
1484: Ifstr(i) $(NetInstallStatus) != STATUS_SUCCESSFUL
1485: Ifstr(i) $(NetInstallStatus) != STATUS_USERCANCEL
1486: Debug-Output "NTLANMAN.INF: INF "$(ThisInfName)" returned "$(NetInstallStatus)
1487: Goto netruninfescape
1488: Endif
1489: Endif
1490:
1491: Set FailedInfFile = ""
1492:
1493: EndForListDo
1494:
1495: ;
1496: ; All the products are set to be copied, and the Registry is up to date.
1497: ;
1498: netruninfescape = +
1499:
1500: Ifint $(BillboardVisible) != 0
1501: Shell "subroutn.inf" PopBillboard
1502: Set BillboardVisible = 0
1503: Endif
1504:
1505: Ifstr(i) $(FailedInfFile) != ""
1506: Read-syms FatalError14$(!STF_LANGUAGE)
1507: read-syms FatalDlg$(!STF_LANGUAGE)
1508: ui start "FatalError"
1509: Set NetInstallStatus = STATUS_FAILED
1510: Endif
1511:
1512: Goto netcheckquit
1513:
1514: ;****************************************************************
1515: ;
1516: ; ERROR MESSAGE AND EXIT ROUTINES
1517: ;
1518: ;****************************************************************
1519: ;
1520: ; information display
1521: ;
1522: infomsg = +
1523: read-syms InfoDlg
1524: ui start "Warning"
1525: goto $(from)
1526:
1527: ;
1528: ; non fatal error display
1529: ;
1530: nonfatal = +
1531: read-syms NonfatalDlg$(!STF_LANGUAGE)
1532: ui start "NonFatalError"
1533: ifstr(i) $(DLGEVENT) == "OK"
1534: goto $(from)
1535: else
1536: goto end
1537: endif
1538:
1539: ;
1540: ; Internal error in dialog handling.
1541: ;
1542: bogusexit = +
1543: Debug-Output "NTLANMAN.INF: BOGUS EXIT from "$(from)" Return addr: "$(retaddr)
1544: read-syms FatalError999$(!STF_LANGUAGE)
1545: goto fatal
1546:
1547: ;
1548: ; fatal error display
1549: ;
1550: fatal = +
1551: read-syms FatalDlg$(!STF_LANGUAGE)
1552: ui start "FatalError"
1553: goto term
1554:
1555: end = +
1556: goto term
1557:
1558: term =+
1559:
1560: Ifstr(i) $(!LIBHANDLE) != ""
1561: LibraryProcedure DontCare, $(!LIBHANDLE), DeleteAllConnections
1562: Endif
1563:
1564:
1565:
1566: setupnotdone = +
1567: Set InfoMsgText = "Returning to INITIAL.INF"
1568: Debug-Output "NTLANMAN.INF: "$(InfoMsgText)"; status "$(NetInstallStatus)
1569:
1570: returntocaller = +
1571: Return $(NetInstallStatus)
1572:
1573:
1574: exit
1575:
1576:
1577:
1578:
1579:
1580:
1581:
1582:
1583:
1584:
1585:
1586:
1587:
1588:
1589:
1590:
1591:
1592:
1593:
1594:
1595:
1596:
1597:
1598:
1599:
1600:
1601:
1602:
1603:
1604:
1605:
1606:
1607:
1608:
1609:
1610:
1611:
1612:
1613: ;**************************************************************************
1614: ;
1615: ; Code Lifted from HARDWARE.INF for the management of the "adapter type"
1616: ; interface.
1617: ;
1618: ;**************************************************************************
1619:
1620: [AdapterVars]
1621: AdapterHardwareDetected = ""
1622: AdapterSystemSet = ""
1623: AdapterDefault = ""
1624: AdapterOurINFOptions = {}
1625: AdapterOemINFOptions = {}
1626: AdapterMergedOptions = {}
1627: AdapterSpecialOption = {}
1628: AdapterCurrentOption = {}
1629:
1630: AdapterOptionList = {}
1631: AdapterOptionTextList = {}
1632: AdapterOption = {}
1633: AdapterINF = ""
1634: AdapterInstall = "NO"
1635: AdapterSrcDir = ""
1636: AdapterDstDir = ""
1637: NcParamInf = "NCPARAM.INF"
1638:
1639: [InitialAdapterInstall]
1640: ;
1641: ;
1642: StartWait
1643:
1644: ;
1645: ; Guarantee that netcard detection is activated
1646: ;
1647: Shell "" StartDetection
1648:
1649: set Status = STATUS_FAILED
1650: read-syms OemOptionDiskette$(!STF_LANGUAGE)
1651: read-syms Strings$(!STF_LANGUAGE)
1652: read-syms ProgressCopy$(!STF_LANGUAGE)
1653:
1654: Shell "subroutn.inf" ReadSetupHelpIds
1655: SetHelpFile "setupnt.hlp" $(!MinimumID) $(!MaximumID)
1656:
1657: read-syms AdapterVars
1658:
1659: ;
1660: ;;;;detect AdapterVars
1661: ;
1662:
1663: ;
1664: ; Set the Copy and Config flags based upon whether
1665: ; the NCPA called us or this is main installation
1666: ;
1667: Set !NtLmDoCopy = "YES"
1668: Set !NtLmAddCopy = "YES"
1669: Set !NtLmDoConfig = "NO"
1670:
1671: Ifstr(i) $(!NTN_Origination) == "ncpa"
1672: ; Secondary installation
1673: Ifstr(i) $(!STF_IDW) == "TRUE"
1674: Set !NtLmAddCopy = "NO"
1675: Set !NtLmDoCopy = "NO"
1676: Endif
1677: Else
1678: ; Primary installation
1679: Set !NtLmDoCopy = "NO"
1680: Ifstr(i) $(!STF_IDW) == "TRUE"
1681: Set !NtLmAddCopy = "NO"
1682: Endif
1683: Endif
1684:
1685: EndWait
1686: ;
1687: ; initialize all the adapter option vars
1688: ;
1689: read-syms Billboard1$(!STF_LANGUAGE)
1690: Shell "subroutn.inf" PushBillboard NETSTATUSDLG $(Status)
1691:
1692: StartWait
1693: shell "" InitOptionVars $(!STF_LANGUAGE) NetAdapter +
1694: $(AdapterHardwareDetected) $(AdapterSystemSet) $(AdapterDefault)
1695: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
1696: set AdapterOurINFOptions = $($R1)
1697: set AdapterOemINFOptions = $($R2)
1698: set AdapterMergedOptions = $($R3)
1699: set AdapterSpecialOption = $($R4)
1700: set AdapterCurrentOption = $($R5)
1701: set AdapterOption = *($($R5), 1)
1702: else
1703: EndWait
1704: Shell "subroutn.inf" PopBillboard
1705: shell "SUBROUTN.INF" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error1)
1706: Set Status = STATUS_FAILED
1707: goto finish_adapter
1708: endif
1709:
1710: EndWait
1711: Shell "subroutn.inf" PopBillboard
1712: StartWait
1713: ;
1714: ; Initalize the listbox vars. Only allow the "None" option during
1715: ; primary installation.
1716: ;
1717: Ifstr(i) $(!NTN_Origination) != "NCPA"
1718: Set NoneOption = $(None)
1719: Else
1720: Set NoneOption = ""
1721: Endif
1722:
1723: Shell "" InitListBoxVars $(!STF_LANGUAGE) $(AdapterMergedOptions) $(AdapterSpecialOption) $(Other) $(NoneOption)
1724:
1725: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
1726: set AdapterOptionList = $($R1)
1727: set AdapterOptionTextList = $($R2)
1728: else
1729: EndWait
1730: shell "SUBROUTN.INF" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error2)
1731: goto finish_adapter
1732: endif
1733:
1734: read-syms DialogConstants
1735: EndWait
1736:
1737: ;------------------------------------------------------------
1738: ; Netcard Detection Logic
1739: ;------------------------------------------------------------
1740: ;
1741: ; Clear all the local and global variables associated with
1742: ; netcard detection.
1743: ;
1744: Set DtOption = ""
1745: Set DtIndex = 0
1746: Set DtInfIndex = 0
1747: Set DtAnyFound = NO
1748: Set !STF_NCOPTION = $(DtOption)
1749: Set !STF_NCDETCARD = $(DtIndex)
1750: Set !STF_NCDETINFO = {}
1751:
1752: ;
1753: ; Call the NCPA wrapper (through NCPARAM.INF) to enable detection.
1754: ;
1755: Debug-Output "NTLANMAN.INF: calling DTSTART wrapper, mode = "$(!STF_INSTALL_MODE)
1756:
1757: Shell $(NcParamInf) Param_ControlDetection DTSTART
1758: Ifstr(i) $($ShellCode) != $(!SHELL_CODE_OK)
1759: Debug-Output "NTLANMAN.INF: shell error (NCPARAM.INF:Param_ControlDetection) : "$($ShellCode)
1760: Goto adapter_shell_error
1761: Endif
1762:
1763: Ifstr(i) $($R0) != STATUS_SUCCESSFUL
1764: Debug-Output "NTLANMAN.INF: DTSTART wrapper FAILED"
1765: Goto detectbypass
1766: Endif
1767: ;
1768: ; If we aren't supposed to detect, skip out
1769: ;
1770: Ifstr(i) $(!STF_NCDETECT) == NO
1771: Goto detectbypass
1772: Endif
1773: ;
1774: ; If CUSTOM, allow the user to skip detection
1775: ;
1776: Ifstr(i) $(!STF_INSTALL_MODE) == CUSTOM
1777:
1778:
1779:
1780:
1781:
1782:
1783:
1784:
1785: Shell "" WarnDetectStart
1786: Ifstr(i) $($R0) != STATUS_SUCCESSFUL
1787: Goto detectbypass
1788: Endif
1789:
1790: Endif
1791:
1792: detectcycle = +
1793:
1794: Debug-Output "NTLANMAN.INF: calling DTCARD wrapper"
1795:
1796: StartWait
1797:
1798: Shell $(NcParamInf) Param_DetectCard
1799: Set StartResult = $($R0)
1800: Set StartStatus = *($(StartResult),1)
1801:
1802: Ifstr(i) $($ShellCode) != $(!SHELL_CODE_OK)
1803: Debug-Output "NTLANMAN.INF: shell error (NCPARAM.INF:Param_DetectCard) : "$($ShellCode)
1804: Goto adapter_shell_error
1805: Endif
1806:
1807: EndWait
1808:
1809: Ifint $(StartStatus) == 0
1810: Set DtOption = *($(StartResult),2)
1811: Set DtIndex = *($(StartResult),3)
1812: Set DtType = *($(StartResult),4)
1813: Set DtConf = *($(StartResult),5)
1814: Set DtBusType = *($(StartResult),6)
1815: Set DtBusNum = *($(StartResult),7)
1816: Set DtInfo = {$(DtOption),$(DtIndex),$(DtType),$(DtConf),$(DtBusType),$(DtBusNum)}
1817:
1818: Debug-Output "NTLANMAN.INF: card found is type "$(DtOption)", index "$(DtIndex)
1819: ;
1820: ; Guarantee that there's an INF file for this card type;
1821: ; if not, just try again.
1822: ;
1823: Set DtInfIndex = ~($(AdapterOptionList),$(DtOption))
1824: Ifint $(DtInfIndex) == 0
1825: Debug-Output "NTLANMAN.INF: Detect: no INF file for option: "$(DtOption)
1826: Set DtOption = ""
1827: Goto detectcycle
1828: Endif
1829: Else
1830: Set DtOption = ""
1831: Set DtIndex = 0
1832: Set DtInfIndex = 0
1833: Goto detectnotfound
1834: Endif
1835:
1836: Set DtAnyFound = YES
1837: Set DtInfOptionName = *($(AdapterOptionTextList),$(DtInfIndex))
1838: ;
1839: ; If EXPRESS, accept the card automatically
1840: ;
1841: Ifstr(i) $(!STF_INSTALL_MODE) == EXPRESS
1842: Goto detectend
1843: Endif
1844: ;
1845: ; See if the user wants this card or wants to quit
1846: ;
1847:
1848:
1849:
1850:
1851:
1852:
1853:
1854:
1855:
1856:
1857:
1858: Shell "" WarnDetectAccept $(DtInfOptionName)
1859:
1860: Ifstr(i) $($R0) == STATUS_SUCCESSFUL
1861: Goto detectend ; user likes this choice
1862: Endif
1863:
1864:
1865: Set DtInfOption = 0
1866: Set DtOption = ""
1867: Set DtInfIndex = 0
1868:
1869: Ifstr(i) $($R0) != STATUS_TRY_AGAIN
1870: Goto detectend ; user wants to quit
1871: Endif
1872: ;
1873: ; User doesn't want this card; try again.
1874: ;
1875: Goto detectcycle
1876:
1877: detectnotfound = +
1878:
1879: Shell "" WarnDetectFail $(DtAnyFound)
1880: Ifstr(i) $($R0) == STATUS_SUCCESSFUL
1881: Goto detectend
1882: Endif
1883: ;
1884: ; User wants to keep trying; reset the iteration
1885: ;
1886: Debug-Output "NTLANMAN.INF: calling DTRESET wrapper"
1887:
1888: Shell $(NcParamInf) Param_ControlDetection DTRESET
1889: Ifstr(i) $($ShellCode) != $(!SHELL_CODE_OK)
1890: Debug-Output "NTLANMAN.INF: shell error (NCPARAM.INF:Param_ControlDetection) : "$($ShellCode)
1891: Goto adapter_shell_error
1892: Endif
1893:
1894: Goto detectcycle
1895:
1896: detectend = +
1897: ;
1898: ; Establish global variables.
1899: ;
1900: Set !STF_NCOPTION = $(DtOption)
1901: Set !STF_NCDETCARD = $(DtIndex)
1902: Set !STF_NCDETINFO = $(DtInfo)
1903:
1904: detectbypass = +
1905: ;
1906: ; If we detected (and accepted) a netcard, use it.
1907: ;
1908: Ifstr(i) $(!STF_NCOPTION) != ""
1909: Set AdapterOption = $(!STF_NCOPTION)
1910: Goto install_adapter
1911: Endif
1912:
1913: ;
1914: ; If main installation, check to see if the user wants RAS
1915: ;
1916: Ifstr(i) $(!NTN_Origination) != "ncpa"
1917: Shell "" WarnCheckRas
1918: Ifstr(i) $($R0) == STATUS_WANTRAS
1919: Set Status = STATUS_WANTRAS
1920: Goto finish_adapter
1921: Endif
1922: Endif
1923:
1924: adapter = +
1925:
1926: read-syms QueryAdapter$(!STF_LANGUAGE)
1927: ;
1928: ; Set textual variations for dialog text based on mode and product type
1929: ;
1930: Ifstr(i) $(!NTN_Origination) == "ncpa"
1931: ; Secondary installation or NTLMINST.INF
1932: Set DlgText = $(DlgText2)
1933: Else-Ifstr(i) $(!STF_PRODUCT) == "LANMANNT"
1934: ; Primary installation, Advanced Server
1935: Set DlgText = $(DlgTextLm)
1936: Set Cancel = $(ExitSetup)
1937: Else
1938: ; Primary installation, Windows NT
1939: Set Cancel = $(ExitNoNet)
1940: Endif
1941:
1942: ui start "System"
1943:
1944: ifstr(i) $(DLGEVENT) == "CONTINUE"
1945: Debug-Output "NTLANMAN.INF: CONTINUE message from adapter dialog"
1946:
1947: ; Find out the option which changed.
1948: ;
1949: ifstr(i) $(Combo1Out) == $(None)
1950:
1951: ; Verify that this is REALLY what the user wants
1952:
1953: Shell "" QueryNoNic $(!STF_LANGUAGE)
1954: Ifstr(i) $($ShellCode) != $(!SHELL_CODE_OK)
1955: Debug-Output "NTLANMAN.INF: SHELL ERROR: "$($ShellCode)
1956: Endif
1957: Ifstr(i) $($R0) == "OK"
1958: set AdapterOption = NONE
1959: ui pop 1
1960: goto install_adapter
1961: Endif
1962:
1963: set ReInit = NO
1964: goto adapter
1965:
1966: else-ifstr(i) $(Combo1Out) != $(Other)
1967: set AdapterOption = *($(AdapterOptionList), ~($(Combo1List), $(Combo1Out)))
1968: ui pop 1
1969: goto install_adapter
1970: else
1971: Debug-Output "NTLANMAN.INF: Chose OTHER; calling GetNewOEMOption..."
1972: shell "OTHER.INF" GetNewOEMMultiOption $(!STF_LANGUAGE) +
1973: $(AdapterOemINFOptions) NetAdapter +
1974: $(AdapterDisketteSrc)
1975: set ReInit = YES
1976: ifstr(i) $($R0) == STATUS_SUCCESSFUL
1977: Debug-Output "NTLANMAN.INF: GetNewOEMOption successful"
1978: ;
1979: ; extract the new variables
1980: ;
1981: set AdapterOemINFOptions = $($R1)
1982: set AdapterOption = $($R2)
1983: set AdapterDisketteSrc = $($R4)
1984: ;
1985: ; Merge our options with the oem options
1986: ;
1987: shell "" MergeOptions $(AdapterOurINFOptions) $(AdapterOemINFOptions)
1988: ifstr(i) $($R0) == STATUS_SUCCESSFUL
1989: set AdapterMergedOptions = {$($R1), $($R2)}
1990: else
1991: shell "SUBROUTN.INF" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error4)
1992: ui pop 1
1993: goto finish_adapter
1994: endif
1995:
1996: ;
1997: ; Initialise the listbox vars
1998: ;
1999: shell "" InitListBoxVars $(!STF_LANGUAGE) $(AdapterMergedOptions) $(AdapterSpecialOption) $(Other) $(None)
2000: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
2001: set AdapterOptionList = $($R1)
2002: set AdapterOptionTextList = $($R2)
2003: else
2004: shell "SUBROUTN.INF" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error2)
2005: ui pop 1
2006: goto finish_adapter
2007: endif
2008:
2009: ui pop 1
2010: goto install_adapter
2011:
2012: else-ifstr(i) $($R0) == "STATUS_USERCANCEL"
2013: Debug-Output "NTLANMAN.INF: GetNewOEMOption user cancelled"
2014: goto adapter
2015: else
2016: Debug-Output "NTLANMAN.INF: GetNewOEMOption other error"
2017: shell "SUBROUTN.INF" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(Error3)
2018: goto adapter
2019: endif
2020:
2021: endif
2022:
2023: set ReInit = NO
2024: goto adapter
2025:
2026: else-ifstr(i) $(DLGEVENT) == "BACK"
2027: set ExitChoice = "OK"
2028:
2029: ifstr(i) $(!NTN_Origination) != "NCPA"
2030: Debug-Output "NTLANMAN.INF: EXIT button: see if user wants to quit"
2031: Shell "" QueryUserQuit $(!STF_LANGUAGE)
2032:
2033: Ifstr(i) $($ShellCode) != $(!SHELL_CODE_OK)
2034: Debug-Output "NTLANMAN.INF: SHELL ERROR: "$($ShellCode)
2035: Endif
2036:
2037: Set Status = $($R0)
2038: Debug-Output "NTLANMAN.INF: QueryUserQuit returned "$(Status)
2039: Else
2040: Set Status = STATUS_USERCANCEL
2041: endif
2042:
2043: ifstr(i) $(Status) != STATUS_SUCCESSFUL
2044: Debug-Output "NTLANMAN.INF: Quitting [InitialAdapterInstall]"
2045: ui pop 1
2046: goto finish_adapter
2047: else
2048: set ReInit = NO
2049: goto adapter
2050: endif
2051: else
2052: ui pop 1
2053: goto finish_adapter
2054: endif
2055:
2056: install_adapter = +
2057: Debug-Output "NTLANMAN.INF: Adapter option is "$(AdapterOption)
2058:
2059: ;
2060: ; See if the option is NONE; skip out if so
2061: ;
2062: Ifstr(i) $(AdapterOption) == NONE
2063: Set Status = STATUS_SUCCESSFUL
2064: goto skip_setinstall
2065: Endif
2066:
2067: ;
2068: ; See if option has changed
2069: ;
2070: set Changed = YES
2071: ifstr(i) $(AdapterOption) == *($(AdapterCurrentOption), 1)
2072: set Changed = NO
2073: endif
2074:
2075: set AdapterInstall = YES
2076:
2077: ;
2078: ; check special option first... skip
2079: ;
2080:
2081: ifstr(i) $(AdapterSpecialOption) != {}
2082: ifstr(i) $(AdapterOption) == *($(AdapterSpecialOption), 1)
2083: goto skip_setinstall
2084: endif
2085: endif
2086:
2087: ; choose file name and path based upon origin
2088:
2089: set AdapterSrcDir = $(AdapterDisketteSrc)
2090:
2091: shell "" GetOptionFile $(AdapterOption) $(AdapterOemINFOptions)
2092: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
2093: set AdapterINF = $(!STF_WINDOWSSYSPATH)"\"$($R1)
2094: set AdapterSrcDir = $(AdapterDisketteSrc)
2095: ;
2096: ; For both IDW and OEM, force "do copy" and "add copy" back to YES
2097: ;
2098: Set !STF_SRCDIR_OVERRIDE = $(AdapterSrcDir)
2099: Set !NtLmDoCopy = "YES"
2100: Set !NtLmAddCopy = "YES"
2101: goto skip_setinstall
2102: endif
2103:
2104: ;
2105: ; check if our option
2106: ;
2107:
2108: shell "" GetOptionFile $(AdapterOption) $(AdapterOurINFOptions)
2109: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
2110: set AdapterINF = $($R1)
2111: set AdapterSrcDir = $(!STF_SRCDIR)
2112: endif
2113:
2114: skip_setinstall = +
2115:
2116: ifstr(i) $(AdapterInstall) == YES
2117: ifstr(i) $(AdapterINF) != ""
2118: read-syms Billboard8$(!STF_LANGUAGE)
2119:
2120: Shell "subroutn.inf" PushBillboard NETSTATUSDLG $(Status)
2121:
2122: shell $(AdapterINF) InstallOption $(!STF_LANGUAGE) $(AdapterOption) $(AdapterSrcDir) +
2123: $(!NtLmAddCopy) $(!NtLmDoCopy) $(!NtLmDoConfig)
2124: Set Status = $($R0)
2125:
2126: Set !STF_SRCDIR_OVERRIDE = ""
2127:
2128: Shell "subroutn.inf" PopBillboard
2129: Ifstr(i) $(Status) == STATUS_USERCANCEL
2130: Goto adapter
2131: Endif
2132: endif
2133: endif
2134:
2135: goto finish_adapter
2136:
2137: adapter_shell_error = +
2138: set Status = STATUS_FAILED
2139: ;
2140: ; At this point, $(Status) is one of:
2141: ;
2142: ; STATUS_SUCCESSFUL
2143: ; STATUS_USERCANCEL
2144: ; STATUS_EXITNET (only if main installation)
2145: ; STATUS_WANTRAS (if RAS was chosen as netcard option)
2146: ;
2147: finish_adapter = +
2148: Ifstr(i) $(AdapterSrcDir) != ""
2149: Ifstr(i) $(AdapterSrcDir) != $(!STF_SRCDIR)
2150: Set !STF_SRCDIR_OVERRIDE = $(AdapterSrcDir)
2151: Endif
2152: Endif
2153:
2154: Return $(Status)
2155:
2156: ;-----------------------------------------------------------------------
2157: ;-----------------------------------------------------------------------
2158: ;-----------------------------------------------------------------------
2159: ;-----------------------------------------------------------------------
2160: ;-----------------------------------------------------------------------
2161: ;-----------------------------------------------------------------------
2162: ;-----------------------------------------------------------------------
2163: ;-----------------------------------------------------------------------
2164: ; GenMergeLists
2165: ;
2166: ; Merge any two lists:
2167: ;
2168: ; INPUTS: $0 list A
2169: ; $1 list B
2170: ;
2171: ; OUTPUTS: $R0 list (A+B)
2172: ;
2173: [GenMergeLists]
2174: ForListDo $($1)
2175: Set $0 = >($($0),$($))
2176: EndForListDo
2177:
2178: Return $($0)
2179:
2180:
2181: [OemSoftVars]
2182: OemSoftHardwareDetected = ""
2183: OemSoftSystemSet = ""
2184: OemSoftDefault = ""
2185: OemSoftOurINFOptions = {}
2186: OemSoftOemINFOptions = {}
2187: OemSoftMergedOptions = {}
2188: OemSoftSpecialOption = {}
2189: OemSoftCurrentOption = {}
2190:
2191: OemSoftOptionList = {}
2192: OemSoftOptionTextList = {}
2193: OemSoftOption = {}
2194: OemSoftINF = ""
2195: OemSoftInstall = "NO"
2196: OemSoftSrcDir = ""
2197: OemSoftDstDir = ""
2198:
2199: [OemSoftTypes]
2200: NDR = NetDriver, ndr
2201: NXP = NetTransport, nxp
2202: NSV = NetService, nsv
2203: NWK = Network, nwk
2204: NPR = NetProvider, npr
2205:
2206: [OemSoftwareInstall]
2207: Debug-Output "NTLANMAN.INF: Begin OEM software installation"
2208: ;
2209: ;
2210: StartWait
2211:
2212: set Status = STATUS_FAILED
2213: read-syms OemOptionDiskette$(!STF_LANGUAGE)
2214: read-syms Strings$(!STF_LANGUAGE)
2215: read-syms ProgressCopy$(!STF_LANGUAGE)
2216:
2217: Shell "subroutn.inf" ReadSetupHelpIds
2218: SetHelpFile "setupnt.hlp" $(!MinimumID) $(!MaximumID)
2219:
2220: read-syms OemSoftVars
2221:
2222: ;
2223: ; Set the Copy and Config flags based upon whether
2224: ; the NCPA called us or this is main installation
2225: ;
2226: Set !NtLmDoCopy = "YES"
2227: Set !NtLmAddCopy = "YES"
2228: Set !NtLmDoConfig = "NO"
2229:
2230: Ifstr(i) $(!NTN_Origination) == "ncpa"
2231: ; Secondary installation
2232: Ifstr(i) $(!STF_IDW) == "TRUE"
2233: Set !NtLmAddCopy = "NO"
2234: Set !NtLmDoCopy = "NO"
2235: Endif
2236: Else
2237: ; Primary installation
2238: Set !NtLmDoCopy = "NO"
2239: Ifstr(i) $(!STF_IDW) == "TRUE"
2240: Set !NtLmAddCopy = "NO"
2241: Endif
2242: Endif
2243:
2244:
2245: Set OemSoftTypeNames = ^(OemSoftTypes,1)
2246: Set OemSoftTypeIds = ^(OemSoftTypes,2)
2247: EndWait
2248:
2249: ;
2250: ; initialize all the OEM software option vars
2251: ;
2252: read-syms Billboard9$(!STF_LANGUAGE)
2253: Shell "subroutn.inf" PushBillboard NETSTATUSDLG $(Status)
2254: StartWait
2255:
2256: shell "" InitOptionVars $(!STF_LANGUAGE) $(OemSoftTypeNames) $(OemSoftHardwareDetected) $(OemSoftSystemSet) $(OemSoftDefault)
2257: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
2258: set OemSoftOurINFOptions = $($R1)
2259: set OemSoftOemINFOptions = $($R2)
2260: set OemSoftMergedOptions = $($R3)
2261: set OemSoftSpecialOption = $($R4)
2262: set OemSoftCurrentOption = $($R5)
2263: set OemSoftOption = *($($R5), 1)
2264: else
2265: EndWait
2266: Shell "subroutn.inf" PopBillboard
2267: shell "SUBROUTN.INF" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error1)
2268: goto finish_oemsoft
2269: endif
2270:
2271: EndWait
2272: Shell "subroutn.inf" PopBillboard
2273: StartWait
2274: ;
2275: ; Initalize the listbox vars
2276: ;
2277: shell "" InitListBoxVars $(!STF_LANGUAGE) $(OemSoftMergedOptions) $(OemSoftSpecialOption) $(Other) ""
2278:
2279: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
2280: set OemSoftOptionList = $($R1)
2281: set OemSoftOptionTextList = $($R2)
2282: else
2283: EndWait
2284: shell "SUBROUTN.INF" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error2)
2285: goto finish_oemsoft
2286: endif
2287:
2288: read-syms DialogConstants
2289: EndWait
2290:
2291: oemsoft = +
2292:
2293: read-syms QueryOemSoft$(!STF_LANGUAGE)
2294:
2295: ui start "System"
2296:
2297: ifstr(i) $(DLGEVENT) == "CONTINUE"
2298: Debug-Output "NTLANMAN.INF: CONTINUE message from OEM software dialog"
2299: ;
2300: ; Find out the option which changed.
2301: ;
2302: ifstr(i) $(Combo1Out) != $(Other)
2303: set OemSoftOption = *($(OemSoftOptionList), ~($(Combo1List), $(Combo1Out)))
2304: Debug-Output "NTLANMAN.INF: Changed to choice "$(OemSoftOption)
2305: ui pop 1
2306: goto install_oemsoft
2307: else
2308: Debug-Output "NTLANMAN.INF: Chose OTHER; calling GetNewOEMMultiOption..."
2309: shell "OTHER.INF" GetNewOEMMultiOption $(!STF_LANGUAGE) $(OemSoftOemINFOptions) $(OemSoftTypeNames) $(OemSoftDisketteSrc)
2310: Set ReInit = YES
2311: ifstr(i) $($R0) == STATUS_SUCCESSFUL
2312: Debug-Output "NTLANMAN.INF: GetNewOEMOption successful"
2313: ;
2314: ; extract the new variables
2315: ;
2316: set OemSoftOemINFOptions = $($R1)
2317: set OemSoftOption = $($R2)
2318: set OemSoftDisketteSrc = $($R4)
2319: ;
2320: ; Merge our options with the oem options
2321: ;
2322: shell "" MergeOptions $(OemSoftOurINFOptions) $(OemSoftOemINFOptions)
2323: ifstr(i) $($R0) == STATUS_SUCCESSFUL
2324: set OemSoftMergedOptions = {$($R1), $($R2)}
2325: else
2326: shell "SUBROUTN.INF" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error4)
2327: ui pop 1
2328: goto finish_oemsoft
2329: endif
2330:
2331: ;
2332: ; Initialise the listbox vars
2333: ;
2334: shell "" InitListBoxVars $(!STF_LANGUAGE) $(OemSoftMergedOptions) $(OemSoftSpecialOption) $(Other) ""
2335: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
2336: set OemSoftOptionList = $($R1)
2337: set OemSoftOptionTextList = $($R2)
2338: else
2339: shell "SUBROUTN.INF" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error2)
2340: ui pop 1
2341: goto finish_oemsoft
2342: endif
2343:
2344: ui pop 1
2345: goto install_oemsoft
2346:
2347: else-ifstr(i) $($R0) == "STATUS_USERCANCEL"
2348: Debug-Output "NTLANMAN.INF: GetNewOEMOption user cancelled"
2349: goto oemsoft
2350: else
2351: Debug-Output "NTLANMAN.INF: GetNewOEMOption other error"
2352: shell "SUBROUTN.INF" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(Error3)
2353: goto oemsoft
2354: endif
2355:
2356: endif
2357:
2358: set ReInit = NO
2359: goto oemsoft
2360:
2361: else-ifstr(i) $(DLGEVENT) == "BACK"
2362: set Status = STATUS_USERCANCEL
2363: ui pop 1
2364: goto finish_oemsoft
2365: else
2366: ui pop 1
2367: goto finish_oemsoft
2368: endif
2369:
2370: install_oemsoft = +
2371: ;
2372: ; See if option has changed
2373: ;
2374: set Changed = YES
2375: ifstr(i) $(OemSoftOption) == *($(OemSoftCurrentOption), 1)
2376: set Changed = NO
2377: endif
2378:
2379: ;
2380: ; If option has not changed and we are SETUPBOOTED mode then skip
2381: ;
2382: ifstr(i) $(Changed) == "NO"
2383: ifstr(i) $(!STF_INSTALL_TYPE) == "SETUPBOOTED"
2384: set OemSoftInstall = "NO"
2385: goto skip_setinstall
2386: endif
2387: endif
2388: set OemSoftInstall = "YES"
2389:
2390: ;
2391: ; check special option first
2392: ;
2393:
2394: ifstr(i) $(OemSoftSpecialOption) != {}
2395: ifstr(i) $(OemSoftOption) == *($(OemSoftSpecialOption), 1)
2396: goto skip_setinstall
2397: endif
2398: endif
2399:
2400: ; choose file name and path based upon origin
2401:
2402: set OemSoftSrcDir = $(OemSoftDisketteSrc)
2403:
2404: shell "" GetOptionFile $(OemSoftOption) $(OemSoftOemINFOptions)
2405: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
2406: set OemSoftINF = $(!STF_WINDOWSSYSPATH)"\"$($R1)
2407: set OemSoftSrcDir = $(OemSoftDisketteSrc)
2408: ;
2409: ; For both IDW and OEM, force "do copy" and "add copy" back to YES
2410: ;
2411: Set !STF_SRCDIR_OVERRIDE = $(OemSoftSrcDir)
2412: Set !NtLmDoCopy = "YES"
2413: Set !NtLmAddCopy = "YES"
2414: goto skip_setinstall
2415: endif
2416:
2417: ; check if our option
2418:
2419: shell "" GetOptionFile $(OemSoftOption) $(OemSoftOurINFOptions)
2420: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
2421: set OemSoftINF = $($R1)
2422: set OemSoftSrcDir = $(!STF_SRCDIR)
2423: goto skip_setinstall
2424: endif
2425:
2426: skip_setinstall = +
2427:
2428: ifstr(i) $(OemSoftInstall) == "YES"
2429: ifstr(i) $(OemSoftINF) != ""
2430:
2431: shell $(OemSoftINF) InstallOption $(!STF_LANGUAGE) $(OemSoftOption) $(OemSoftSrcDir) +
2432: $(!NtLmAddCopy) $(!NtLmDoCopy) $(!NtLmDoConfig)
2433:
2434: Set !STF_SRCDIR_OVERRIDE = ""
2435: Set Status = $($R0)
2436:
2437: Ifstr(i) $(Status) == STATUS_USERCANCEL
2438: Goto oemsoft
2439: Endif
2440: endif
2441: endif
2442:
2443: finish_oemsoft = +
2444:
2445: Ifstr(i) $(OemSoftSrcDir) != ""
2446: Ifstr(i) $(OemSoftSrcDir) != $(!STF_SRCDIR)
2447: Set !STF_SRCDIR_OVERRIDE = $(OemSoftSrcDir)
2448: Endif
2449: Endif
2450:
2451: Return $(Status)
2452:
2453:
2454:
2455: ;-----------------------------------------------------------------------
2456: ;
2457: ; ROUTINE: InitOptionVars
2458: ;
2459: ; DESCRIPTION: This routine intialises the values for the option we are
2460: ; dealing with. It finds out the options supported by setup.
2461: ; It also sees if there is an OEM INF in the windows system
2462: ; directory which represents this option. If so it reads in
2463: ; the options supported by this INF and then forms a merged
2464: ; list from the two.
2465: ;
2466: ; INPUTS: $0: Language to use
2467: ; $1: OptionTypeList; e.g., { NetDriver, NetTransport }
2468: ; $2: Hardware detected option
2469: ; $3: Software set option
2470: ; $4: Default value for option
2471: ;
2472: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
2473: ; STATUS_FAILED
2474: ;
2475: ; $R1: OurINFOptions var {{filename, {OptionList}, {OptionTextList}}}
2476: ; $R2: OemINFOptions var {{filename, {OptionList}, {OptionTextList}}, etc}
2477: ; $R3: Merged INF Options {{OptionList}, {OptionTextList}}
2478: ; $R4: Special Options {Option, OptionText}
2479: ; $R5: Current Option {Option, OptionText}
2480: ;
2481: ;------------------------------------------------------------------------
2482: [InitOptionVars]
2483:
2484: Debug-Output "NTLANMAN.INF: InitOptionVars called"
2485:
2486: set Status = STATUS_FAILED
2487: set OurINFOptions = {}
2488: set OemINFOptions = {}
2489: set MergedINFOptions = {}
2490: set SpecialOption = {}
2491: set CurrentOption = {}
2492: Set IovTypeList = $($1)
2493:
2494: ;
2495: ; Determine all Oem options for all types given. These
2496: ; are considered to be "our" options, as opposed to newly
2497: ; added INF files, which are "oem".
2498: ;
2499: ForListDo $(IovTypeList)
2500: Debug-Output "NTLANMAN.INF: Get options for type "$($)
2501: shell "OTHER.INF" ReturnOemOptions $($0) $($)
2502: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
2503: Debug-Output "NTLANMAN.INF: Other OEM options found for type "$($)
2504: shell "" GenMergeLists $(OurINFOptions) $($R1)
2505: set OurINFOptions = $($R0)
2506: endif
2507: EndForListDo
2508: ;
2509: ; Merge the two and set the merged list
2510: ;
2511: shell "" MergeOptions $(OurINFOptions) $(OemINFOptions)
2512: ifstr(i) $($R0) == STATUS_SUCCESSFUL
2513: set MergedINFOptionList = $($R1)
2514: set MergedINFOptionTextList = $($R2)
2515: set MergedINFOptions = {$($R1), $($R2)}
2516: else
2517: Debug-Output "NTLANMAN.INF: InitOptionVars: MergeOptions failed"
2518: goto finish_InitOptionVars
2519: endif
2520:
2521: ;
2522: ; Form current option.
2523: ;
2524: ; Algorithm:
2525: ;
2526: ; Check software set value. If this doesn't exist get hardware detected
2527: ; value. If not detected set value to default.
2528: ;
2529: set Option = ""
2530: ifstr(i) $($3) != ""
2531: set Option = $($3)
2532: else
2533: ifstr(i) $($2) != ""
2534: set Option = $($2)
2535: else-ifstr(i) $($4) == ""
2536: set Option = ""
2537: else
2538: set Option = $($4)
2539: endif
2540: endif
2541:
2542: ;
2543: ; Check Option against all the options supported
2544: ; If found set Current Option, else set the special options var
2545: ; and set this to the current option.
2546: ;
2547:
2548: ifstr(i) $(Option) == ""
2549: set OptionText = ""
2550: else-ifcontains(i) $(Option) in $(MergedINFOptionList)
2551: set OptionText = *($(MergedINFOptionTextList), ~($(MergedINFOptionList), $(Option)))
2552: else
2553: set OptionText = $(Option)
2554: set Option = "OEMINSTALLEDOPTION"
2555: set SpecialOption = {$(Option), $(OptionText)}
2556: endif
2557:
2558: set CurrentOption = {$(Option), $(OptionText)}
2559: set Status = STATUS_SUCCESSFUL
2560:
2561: finish_InitOptionVars = +
2562: Debug-Output "NTLANMAN.INF::InitOptionVars complete "
2563:
2564: Return $(Status) $(OurINFOptions) $(OemINFOptions) $(MergedINFOptions) $(SpecialOption) $(CurrentOption)
2565:
2566:
2567: ;-------------------------------------------------------------------------
2568: ;
2569: ; ROUTINE: InitListBoxVars
2570: ;
2571: ; DESCRIPTION: This routine initialises the option list and the option text
2572: ; list to be displayed to the user.
2573: ;
2574: ; INPUTS: $0: Language
2575: ; $1: MergedINFOptions
2576: ; $2: SpecialOption
2577: ; $3: OtherOption
2578: ; $4: NoneOption
2579: ;
2580: ; OUTPUTS: $R0: STATUS: STATUS_FAILED |
2581: ; STATUS_SUCCESSFUL
2582: ;
2583: ; $R1: OptionList
2584: ; $R2: OptionTextList
2585: ;
2586: ;----------------------------------------------------------------------------
2587: [InitListBoxVars]
2588:
2589: Debug-Output "NTLANMAN.INF::InitListBoxVars invoked"
2590:
2591: set Status = STATUS_FAILED
2592: set OptionList = {}
2593: set OptionTextList = {}
2594: Set OptOther = $($3)
2595: Set OptNone = $($4)
2596: Set UtilityInf = "UTILITY.INF"
2597:
2598: ;
2599: ; Process the standard options
2600: ;
2601:
2602: ifstr(i) $($1) != {}
2603: set OptionList = *($($1), 1)
2604: set OptionTextList = *($($1), 2)
2605: endif
2606:
2607: ;
2608: ; Process the special option if present
2609: ;
2610:
2611: ifstr(i) $($2) != {}
2612: set OptionList = >($(OptionList), *($($2), 1))
2613: set OptionTextList = >($(OptionTextList), *($($2), 2))
2614: endif
2615: ;
2616: ; Sort the lists ascending, case-insensitive
2617: ;
2618: Shell $(UtilityInf) SortListIndex $(OptionTextList) TRUE FALSE
2619: Set IndexList = $($R0)
2620: Shell $(UtilityInf) SortByIndex $(OptionTextList) $(IndexList)
2621: Set OptionTextList = $($R0)
2622: Shell $(UtilityInf) SortByIndex $(OptionList) $(IndexList)
2623: Set OptionList = $($R0)
2624:
2625: ;
2626: ; Add the "other" and "none" options only to the text list
2627: ; (if present)
2628: ;
2629: Ifstr(i) $(OptOther) != ""
2630: set OptionTextList = >($(OptionTextList), $(OptOther))
2631: Endif
2632: Ifstr(i) $(OptNone) != ""
2633: set OptionTextList = >($(OptionTextList), $(OptNone))
2634: Endif
2635:
2636: set Status = STATUS_SUCCESSFUL
2637:
2638: Return $(Status) $(OptionList) $(OptionTextList)
2639:
2640:
2641: ;-----------------------------------------------------------------------
2642: ;
2643: ; ROUTINE: MergeOptions
2644: ;
2645: ; DESCRIPTION: This merges the option lists to form the master list of
2646: ; options and optiontext.
2647: ;
2648: ; INPUTS: $0: OurOptionList
2649: ; $1: OemOptionList
2650: ;
2651: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
2652: ; STATUS_FAILED
2653: ;
2654: ; $R1: MergedOptionList
2655: ; $R2: MergedOptionTextList
2656: ;
2657: ;
2658: ;------------------------------------------------------------------------
2659: [MergeOptions]
2660:
2661: Debug-Output "NTLANMAN.INF: MergeOptions called"
2662:
2663: set Status = STATUS_FAILED
2664: set MergedOptionList = {}
2665: set MergedOptionTextList = {}
2666:
2667: ;
2668: ; First merge our options in
2669: ;
2670:
2671: ForListDo $($0)
2672: set OptionList = *($($), 2)
2673: set OptionTextList = *($($), 3)
2674: ForListDo $(OptionList)
2675: Ifcontains $($) in $(MergedOptionList)
2676: else
2677: set MergedOptionList = >($(MergedOptionList), $($))
2678: set MergedOptionTextList = >($(MergedOptionTextList), *($(OptionTextList), $(#)))
2679: endif
2680: EndForListDo
2681: EndForListDo
2682:
2683:
2684: ;
2685: ; Then merge the oem options in
2686: ;
2687:
2688: ForListDo $($1)
2689: set OptionList = *($($), 2)
2690: set OptionTextList = *($($), 3)
2691: ForListDo $(OptionList)
2692: Ifcontains $($) in $(MergedOptionList)
2693: else
2694: set MergedOptionList = >($(MergedOptionList), $($))
2695: set MergedOptionTextList = >($(MergedOptionTextList), *($(OptionTextList), $(#)))
2696: endif
2697: EndForListDo
2698: EndForListDo
2699:
2700: set Status = STATUS_SUCCESSFUL
2701: Return $(Status) $(MergedOptionList) $(MergedOptionTextList)
2702:
2703:
2704: ;-----------------------------------------------------------------------
2705: ;
2706: ; ROUTINE: GetOptionFile
2707: ;
2708: ; DESCRIPTION: Given the Option list and the current option, determines
2709: ; if the current option is a supported option and returns the
2710: ; file representing the option
2711: ;
2712: ; INPUTS: $0: OptionChosen
2713: ; $1: OptionList {{filename, {optionlist}, {optiontextlist}}
2714: ;
2715: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
2716: ; STATUS_FILENOTFOUND |
2717: ; STATUS_FAILED
2718: ;
2719: ; $R1: FileName
2720: ;
2721: ;------------------------------------------------------------------------
2722: [GetOptionFile]
2723:
2724: Debug-Output "NTLANMAN.INF: GetOptionFile called"
2725:
2726: set Status = STATUS_FILENOTFOUND
2727: set FileName = ""
2728: ;
2729: ForListDo $($1)
2730: set OptionFile = *($($), 1)
2731: set OptionList = *($($), 2)
2732: ForListDo $(OptionList)
2733: ifstr(i) $($) == $($0)
2734: set Status = STATUS_SUCCESSFUL
2735: set FileName = $(OptionFile)
2736: endif
2737: EndForListDo
2738: EndForListDo
2739:
2740: finish_GetOptionFile = +
2741: Debug-Output "NTLANMAN.INF: GetOptionFile status "$(Status)"; file: "$(FileName)
2742: Return $(Status) $(FileName)
2743:
2744: ;-----------------------------------------------------------------------
2745: ; ROUTINE: QueryUserQuit
2746: ;
2747: ; DESCRIPTION: This routine queries whether the user wants to quit
2748: ; networking setup. Three choices are allowed:
2749: ;
2750: ; OK means cancel the installation operation
2751: ; CANCEL means cancel
2752: ;
2753: ;
2754: ; INPUTS: $0: Language To Use
2755: ;
2756: ; OUTPUTS: $R0: STATUS_EXITNET if OK in WinNT
2757: ; STATUS_USERCANCEL if OK in LanmanNT (AS)
2758: ; STATUS_SUCCESSFUL if CANCEL (continue installation)
2759: ;
2760: ;------------------------------------------------------------------------
2761: [QueryUserQuit]
2762: Set Status = STATUS_SUCCESSFUL
2763: Set StatusOK = STATUS_USERCANCEL
2764:
2765:
2766:
2767:
2768: Ifstr(i) $(!STF_PRODUCT) == "LANMANNT"
2769: read-syms LmExitWarningDlg$($0)
2770: Else
2771: Set StatusOK = STATUS_EXITNET
2772: read-syms ExitWarningDlg$($0)
2773: Endif
2774:
2775:
2776: ui start "MessageBox"
2777: Ifstr(i) $(DLGEVENT) == "OK"
2778: Set Status = $(StatusOK)
2779: Endif
2780:
2781: fin_QueryUserQuit = +
2782: Return $(Status)
2783:
2784: ;-----------------------------------------------------------------------
2785: ; ROUTINE: QueryNoNic
2786: ;
2787: ; DESCRIPTION: This routine queries whether the user really wants
2788: ; the "None" network card choice.
2789: ;
2790: ; INPUTS: $0: Language To Use
2791: ;
2792: ; OUTPUTS: $R0: OK or CANCEL
2793: ;
2794: ;------------------------------------------------------------------------
2795: [QueryNoNic]
2796: read-syms NoNicWarningDlg$($0)
2797: ui start "MessageBox"
2798: return $(DLGEVENT)
2799:
2800:
2801: ;-----------------------------------------------------------------------
2802: ; ROUTINE: InstallLmNetFiles
2803: ;
2804: ; DESCRIPTION: Function called by NTLMINST.INF to install network files.
2805: ;
2806: ; INPUTS: none
2807: ;
2808: ; OUTPUTS: $R0: STATUS_SUCCESSFUL
2809: ; or STATUS_USERCANCEL
2810: ; or STATUS_FAILED
2811: ;
2812: ;------------------------------------------------------------------------
2813: [InstallLmNetFiles]
2814: read-syms GeneralConstants
2815: read-syms DestNetPathNames
2816: Set Status = STATUS_FAILED
2817:
2818: Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(!STF_SRCDIR) NO
2819:
2820: Ifint $($ShellCode) != $(!SHELL_CODE_OK)
2821: Goto ILMNF_Return
2822: Else-Ifstr(i) $($R0) == STATUS_FAILED
2823: Goto ILMNF_Return
2824: Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
2825: Set Status = $($R0)
2826: Goto ILMNF_Return
2827: Endif
2828:
2829: Set !STF_SRCDIR = $($R1)
2830:
2831: Set Status = STATUS_SUCCESSFUL
2832:
2833: ILMNF_Return = +
2834: Return $(Status)
2835:
2836:
2837:
2838: ;-----------------------------------------------------------------------
2839: ;
2840: ; ROUTINE: InstallOemHook
2841: ;
2842: ; DESCRIPTION: Install the INF file OEMHOOK.INF, which contains
2843: ; whatever network alterations and enhancements the
2844: ; OEM requires.
2845: ;
2846: ; Since this file is not required, no error checking
2847: ; is done.
2848: ;
2849: ; INPUTS: None
2850: ;
2851: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL always
2852: ;
2853: ;------------------------------------------------------------------------
2854: [InstallOemHook]
2855: Set InfName = "OEMHOOK.INF"
2856:
2857: Debug-Output "NTLANMAN.INF: Installing OEMHOOK.INF if present"
2858:
2859: Shell $(InfName) InstallOption $(!STF_LANGUAGE) $(InfOption) $(!STF_SRCDIR) "YES" "NO" "NO"
2860:
2861: IHK_Exit = +
2862: Return STATUS_SUCCESSFUL
2863:
2864:
2865:
2866:
2867:
2868:
2869:
2870:
2871:
2872:
2873:
2874:
2875:
2876:
2877:
2878:
2879:
2880:
2881:
2882:
2883:
2884:
2885:
2886:
2887:
2888:
2889:
2890:
2891:
2892:
2893:
2894:
2895:
2896:
2897:
2898:
2899:
2900:
2901:
2902:
2903:
2904:
2905:
2906:
2907:
2908:
2909:
2910:
2911:
2912: ;-----------------------------------------------------------------------
2913: ;
2914: ; ROUTINE: StartDetection
2915: ;
2916: ; DESCRIPTION: Start the newly installed netcard detection service
2917: ;
2918: ;
2919: ; INPUTS: None
2920: ;
2921: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL always
2922: ;
2923: ;------------------------------------------------------------------------
2924: [StartDetection]
2925: Set UtilityInf = "UTILITY.INF"
2926: Set ServiceName = "NETDETECT"
2927: Set ReturnStatus = STATUS_SUCCESSFUL
2928:
2929: Debug-Output "NTLANMAN.INF: Starting the netcard detection service"
2930:
2931: Set FLibraryErrCtl = 1
2932: LibraryProcedure StartResult $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), STARTSVC, $(ServiceName)
2933: Set FLibraryErrCtl = 0
2934:
2935: Set StartStatus = *($(StartResult),1)
2936: Debug-Output "NTLANMAN.INF: NETDETECT status was: "$(StartStatus)
2937:
2938: ; Check that it started or is already running
2939:
2940: Ifint $(StartStatus) != 0
2941: Ifint $(StartStatus) != 1056
2942: Set ReturnStatus = STATUS_FAILED
2943: Endif
2944: Endif
2945:
2946: ; Update the netcard detection DLL name list
2947:
2948: Shell $(UtilityInf) UpdateDetectionDllNames
2949:
2950: IHK_Exit = +
2951: Return $(ReturnStatus)
2952:
2953:
2954: ;-----------------------------------------------------------------------
2955: ;
2956: ; ROUTINE: WarnDetectStart
2957: ;
2958: ; DESCRIPTION: Warn the user that netcard detection is about to start
2959: ;
2960: ; INPUTS: None
2961: ;
2962: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL if detection desired
2963: ; STATUS_FAILED if undesirable
2964: ;
2965: ;------------------------------------------------------------------------
2966: [WarnDetectStart]
2967: Set Result = STATUS_SUCCESSFUL
2968: Read-syms WarnDetectDlg$(!STF_LANGUAGE)
2969:
2970: ui start "Info"
2971:
2972: Ifstr(i) $(DLGEVENT) != CONTINUE
2973: Set Result = STATUS_FAILED
2974: Endif
2975:
2976: ui pop 1
2977: Return $(Result)
2978:
2979: ;-----------------------------------------------------------------------
2980: ;
2981: ; ROUTINE: WarnDetectAccept
2982: ;
2983: ; DESCRIPTION: Warn the user that netcard detection is about to start
2984: ;
2985: ; INPUTS: $0: Name of netcard found
2986: ;
2987: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL if card is OK
2988: ; STATUS_FAILED if detection is to cease
2989: ; STATUS_TRY_AGAIN if another card is to be found
2990: ;
2991: ;------------------------------------------------------------------------
2992: [WarnDetectAccept]
2993: Set Result = STATUS_SUCCESSFUL
2994: Set DlgData = $($0)
2995: Read-syms WarnDetectAccept$(!STF_LANGUAGE)
2996: ui start "Info"
2997:
2998: Ifstr(i) $(DLGEVENT) == EXIT
2999: Set Result = STATUS_FAILED
3000: Else-Ifstr(i) $(DLGEVENT) == BACK
3001: Set Result = STATUS_TRY_AGAIN
3002: Else
3003: Set Result = STATUS_SUCCESSFUL
3004: Endif
3005:
3006: ui pop 1
3007: Return $(Result)
3008:
3009: ;-----------------------------------------------------------------------
3010: ;
3011: ; ROUTINE: WarnDetectFail
3012: ;
3013: ; DESCRIPTION: Warn the user that netcard detection has failed.
3014: ; Allow reiteration
3015: ;
3016: ; INPUTS: $0: YES if a netcard was detected previously
3017: ;
3018: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL if user wants to stop
3019: ; STATUS_FAILED if user wants to retry
3020: ;
3021: ;------------------------------------------------------------------------
3022: [WarnDetectFail]
3023: Set FoundCard = $($0)
3024: Set Result = STATUS_SUCCESSFUL
3025: Read-syms WarnDetectFail$(!STF_LANGUAGE)
3026: Ifstr(i) $(FoundCard) != YES
3027: Read-syms WarnDetectFail2$(!STF_LANGUAGE)
3028: Endif
3029:
3030: ui start "Info"
3031:
3032: Ifstr(i) $(DLGEVENT) != CONTINUE
3033: Set Result = STATUS_FAILED
3034: Endif
3035:
3036: ui pop 1
3037: Return $(Result)
3038:
3039: ;-----------------------------------------------------------------------
3040: ;
3041: ; ROUTINE: WarnCheckRas
3042: ;
3043: ; DESCRIPTION: See if the user wants RAS installed.
3044: ;
3045: ; INPUTS: None
3046: ;
3047: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL if continue to pick net card
3048: ; STATUS_WANTRAS if RAS is to be installed
3049: ;
3050: ;------------------------------------------------------------------------
3051: [WarnCheckRas]
3052: Set Result = STATUS_SUCCESSFUL
3053: Read-syms WarnInstallRas$(!STF_LANGUAGE)
3054:
3055: ui start "Info"
3056:
3057: Ifstr(i) $(DLGEVENT) != CONTINUE
3058: Set Result = STATUS_WANTRAS
3059: Endif
3060:
3061: ui pop 1
3062: Return $(Result)
3063:
3064:
3065:
3066:
3067:
3068:
3069:
3070:
3071:
3072:
3073:
3074:
3075:
3076:
3077:
3078:
3079:
3080:
3081:
3082:
3083:
3084:
3085:
3086:
3087:
3088:
3089:
3090:
3091:
3092:
3093:
3094:
3095:
3096:
3097:
3098:
3099:
3100:
3101:
3102:
3103:
3104:
3105:
3106:
3107:
3108:
3109:
3110:
3111:
3112:
3113:
3114:
3115: ;****************************************************************************
3116: ; *
3117: ; Network File Installation *
3118: ; *
3119: ;****************************************************************************
3120: [Install-All-Files-Now]
3121: set !STF_NCPA_FLASH_COPYLIST = TRUE
3122: CopyFilesInCopyList
3123: exit
3124:
3125:
3126:
3127:
3128:
3129:
3130:
3131:
3132:
3133:
3134:
3135:
3136:
3137:
3138:
3139:
3140:
3141:
3142: ;***********************************************************************************************
3143: ;
3144: ; File Lists
3145: ;
3146: ;
3147: ; Network INF files must already be present on the drive when this INF is run.
3148: ;
3149: ;***********************************************************************************************
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.