中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS启动盘 & LOGO技术（启动盘室） » pxe启动后如何自动加载网卡驱动及自动获得ＩＰ地址？

junexu
新手上路

积分 16
发帖 6
注册 2008-3-12
状态离线

『楼主』: pxe启动后如何自动加载网卡驱动及自动获得ＩＰ地址？

我在研究ｐｘｅ远程启动ＤＯＳ环境中又遇到了一个问题，烦请各位高手指点一二。

环境：pxelinux+dhcp+tftpd32

ｐｘｅ启动ＤＯＳ成功,现在考虑想启动后自动加载网卡驱动（已找到ＤＯＳ下的网卡驱动程序，不知道是否有通用的网卡驱动程序），然后自动运行ＭＳ　ＣＬＩＥＮＴ或者其他的联网程序抓取ＩＰ地址，我应该在Autoexec.bat和Config.sys里面写些什么呢？

谢谢！

2008-3-21 11:20

qzxym
中级用户

积分 210
发帖 39
注册 2002-12-30
状态离线

『第 2 楼』:

建议你参考一下Maxdos的PXE版本吧

2008-3-21 23:49

xugaohui
高级用户

积分 774
发帖 293
注册 2003-4-16
来自湖北仙桃
状态离线

『第 3 楼』:

ms有三个最常用的协议。其中ip协议很容易获取ip.另两个需要加载DIS_PKT.DOS后在用基于packet的wattcp程序来获取ip
我不会wattcp编程，要准确的获取dhcp分配的ip信息，只好采取在内存中搜索dhcp数据包的方法实现的。在本论坛中找tftpboot这个东西。里面有query.exe就要启动msclient后获取ip的程序。
采用vbdos编写,源程序如下：
DECLARE FUNCTION hex2ip$ (hexstr$)
DECLARE FUNCTION hex2str$ (hexstr$)
DECLARE FUNCTION hex2data$ (hexstr$)
DECLARE SUB querydhcp (opticode$, optilen%, optistr$)
DIM SHARED subnetmask$, gateways$, dns$, si$
DIM dhcp$()
DIM memt AS STRING * 2
DIM memstr AS STRING * 4
DIM tmem$(31)
t1& = TIMER
sign$ = CHR$(&H53) + CHR$(&H63) + CHR$(&H35) + CHR$(&H1) + CHR$(&H5)
TIMER ON
ON TIMER(10) GOSUB Errorend
GOTO continue
Errorend:
t2& = TIMER
IF t2& < t1& THEN t2& = t2& + 86400
PRINT "Time"; t2& - t1&; " Offset="; offset&; " Start="; start&; " Count="; i%
RETURN
continue:
readlen% = 100
offset& = 1    '65535
start& = 20000
DEF SEG = offset&
startread:
IF start& > 65435 THEN
      start& = 16
      offset& = offset& + 4095
      IF offset& > 8191 THEN
         PRINT "Out of range."
         GOSUB Errorend
         END
      END IF
      DEF SEG = offset&
END IF
t$ = ""
FOR s1% = 0 TO readlen%
      t$ = t$ + CHR$(PEEK(start& + s1%))
NEXT s1%
s1% = INSTR(t$, sign$)
IF s1% = 0 THEN
      start& = start& + readlen%
      GOTO startread
ELSE
      start& = start& + s1% - 281
      k& = start& + 16
      k1% = PEEK(k&)
      autodebug% = 0
      IF k1% > 3 OR k1% = 0 THEN
         autodebug% = 1
      END IF
      IF autodebug% = 1 THEN
         endlen% = 340
         FOR mem% = 0 TO endlen% STEP 16
            mem1% = 0
            memstr = STR$(mem% + mem1%)
            m1$ = memstr + "->"
            FOR mem1% = 0 TO 15
                  mem$ = HEX$(PEEK(mem% + mem1% + start&))
                  IF LEN(mem$) < 2 THEN mem$ = "0" + mem$
                  masc% = VAL("&h" + mem$)
                  IF masc% < 32 OR masc% > 128 THEN masc% = 32
                  tmem$(mem1%) = mem$
                  tmem$(mem1% + 16) = CHR$(masc%)
            NEXT mem1%
            m$ = m1$ + tmem$(0) + " " + tmem$(1) + " " + tmem$(2) + " " + tmem$(3) + " " + tmem$(4) + " " + tmem$(5) + " " + tmem$(6) + " " + tmem$(7) + " "
            memstr = STR$(mem% + mem1% - 9)
            m2$ = "|" + memstr + "->"
            m$ = m$ + m2$ + tmem$(8) + " " + tmem$(9) + " " + tmem$(10) + " " + tmem$(11) + " " + tmem$(12) + " " + tmem$(13) + " " + tmem$(14) + " " + tmem$(15) + " | "
            m$ = m$ + tmem$(16) + tmem$(17) + tmem$(18) + tmem$(19) + tmem$(20) + tmem$(21) + tmem$(22) + tmem$(23) + tmem$(24) + tmem$(25) + tmem$(26) + tmem$(27) + tmem$(28) + tmem$(29) + tmem$(30) + tmem$(31) + "|"
            PRINT m$
            'IF (mem% > 320 AND mem% < 338) OR (mem% + 16 > endlen%) THEN
            IF mem% + 16 > endlen% THEN
                  PRINT "Offset="; offset&; " Start="; start&; " Count="; i%
                  'TIMER OFF
                  'DO: LOOP WHILE INKEY$ = ""
            END IF
         NEXT mem%
      END IF
      IF autodebug% = 1 THEN
         start& = start& + readlen% + 600
         i% = i% + 1
         GOTO startread
      END IF
      dlen% = k1% * 257 + PEEK(k& + 1)
      TIMER OFF
      REDIM dhcp$(dlen%)
      FOR mem% = 0 TO dlen% STEP 16
         mem1% = 0
         memstr = STR$(mem% + mem1%)
         m1$ = memstr + "->"
         FOR mem1% = 0 TO 15
            mem$ = HEX$(PEEK(mem% + mem1% + start&))
            IF LEN(mem$) < 2 THEN mem$ = "0" + mem$
            IF dlen% >= mem% + mem1% THEN dhcp$(mem% + mem1%) = mem$
            masc% = VAL("&h" + mem$)
            IF masc% < 32 OR masc% > 128 THEN masc% = 32
            tmem$(mem1%) = mem$
            tmem$(mem1% + 16) = CHR$(masc%)
         NEXT mem1%
         IF COMMAND$ = "/DEBUG" THEN
            m$ = m1$ + tmem$(0) + " " + tmem$(1) + " " + tmem$(2) + " " + tmem$(3) + " " + tmem$(4) + " " + tmem$(5) + " " + tmem$(6) + " " + tmem$(7) + " "
            memstr = STR$(mem% + mem1% - 8)
            m2$ = "|" + memstr + "->"
            m$ = m$ + m2$ + tmem$(8) + " " + tmem$(9) + " " + tmem$(10) + " " + tmem$(11) + " " + tmem$(12) + " " + tmem$(13) + " " + tmem$(14) + " " + tmem$(15) + " | "
            m$ = m$ + tmem$(16) + tmem$(17) + tmem$(18) + tmem$(19) + tmem$(20) + tmem$(21) + tmem$(22) + tmem$(23) + tmem$(24) + tmem$(25) + tmem$(26) + tmem$(27) + tmem$(28) + tmem$(29) + tmem$(30) + tmem$(31) + "|"
            PRINT m$
            IF (mem% > 300 AND mem% < 305) OR (mem% + 16 > dlen%) THEN
                  'DO: LOOP WHILE INKEY$ = ""
                  PRINT "Offset="; offset&; " Length="; dlen%; " Start="; start&; " Count="; i%
            END IF
         END IF
      NEXT mem%
      t2& = TIMER
      IF t2& < t1& THEN t2& = t2& + 86400
      PRINT "Timte="; t2& - t1&; " Offset="; offset&; " Start="; start&; " Length="; dlen%; " Count="; i%
END IF

'PRINT "Opcode="; hex2data$(dhcp$(42))
'PRINT "HType="; hex2data$(dhcp$(43))
'PRINT "Hlen="; hex2data$(dhcp$(44))
'PRINT "Hops="; hex2data$(dhcp$(45))
'PRINT "Transaction ID="; hex2data$(dhcp$(46) + dhcp$(47) + dhcp$(48) + dhcp$(49))
'PRINT "Seconds="; hex2data$(dhcp$(50) + dhcp$(51))
'PRINT "Flags="; hex2data$(dhcp$(52) + dhcp$(53))
'PRINT "CIAddr="; hex2ip$(dhcp$(54) + dhcp$(55) + dhcp$(56) + dhcp$(57))
yi$ = hex2ip$(dhcp$(58) + dhcp$(59) + dhcp$(60) + dhcp$(61))
'PRINT "YIAddr="; yi$
'***si$ = hex2ip$(dhcp$(62) + dhcp$(63) + dhcp$(64) + dhcp$(65))
si$ = hex2ip$(dhcp$(26) + dhcp$(27) + dhcp$(28) + dhcp$(29))
'PRINT "SIAddr="; si$
'PRINT "GIAddr="; hex2ip$(dhcp$(66) + dhcp$(67) + dhcp$(68) + dhcp$(69))
mac$ = dhcp$(70) + ":" + dhcp$(71) + ":" + dhcp$(72) + ":" + dhcp$(73) + ":" + dhcp$(74) + ":" + dhcp$(75)
'PRINT "CHAddr="; mac$
'ON ERROR GOTO nonefile
'ipfile$ = LEFT$(ENVIRON$("COMSPEC"), 2) + "\ip.dat"
'OPEN ipfile$ FOR INPUT AS #1
'DO WHILE NOT EOF(1)
' LINE INPUT #1, ip1$
' IF INSTR(ip1$, "Ethernet") > 0 THEN
'       mac$ = UCASE$(MID$(ip1$, 20))
' END IF
' IF INSTR(ip1$, "IP") > 0 THEN
'       yi$ = MID$(ip1$, 20)
' END IF
'LOOP
'CLOSE #1
'nonefile:
PRINT "CHAddr="; mac$
PRINT "YIAddr="; yi$
t$ = ""
FOR i% = 0 TO 63
a$ = dhcp$(86 + i%)
IF a$ = "00" THEN EXIT FOR
j% = VAL("&H" + a$)
t$ = t$ + CHR$(j%)
NEXT i%
'PRINT "Server name="; t$
t$ = ""
FOR i% = 0 TO 127
a$ = dhcp$(150 + i%)
IF a$ = "00" THEN EXIT FOR
j% = VAL("&H" + a$)
t$ = t$ + CHR$(j%)
NEXT i%
'PRINT "Boot file="; t$
'PRINT "Magic cookie=99.130.83.99"

FOR i% = 282 TO UBOUND(dhcp$) - 20
j% = VAL("&H" + dhcp$(i% + 1))
a$ = ""
FOR k% = i% + 2 TO i% + 1 + j%
      a$ = a$ + dhcp$(k%)
NEXT k%
querydhcp dhcp$(i%), j%, a$
IF dhcp$(k%) = "FF" THEN EXIT FOR
i% = k% - 1
NEXT
ipfile$ = LEFT$(ENVIRON$("COMSPEC"), 2) + "\setip.bat"
OPEN ipfile$ FOR OUTPUT AS #1
PRINT #1, "@echo off"
PRINT #1, "SET MAC="; mac$
PRINT #1, "SET MYIP="; yi$
PRINT #1, "SET SUBNETMASK="; subnetmask$
PRINT #1, "SET TFTPIP="; si$
PRINT #1, "SET GATEWAYS="; gateways$
PRINT #1, "SET DNSSERVERS="; dns$
CLOSE #1
END

FUNCTION hex2data$ (hexstr$)
IF LEN(hexstr$) < 8 THEN hexstr$ = STRING$(8 - LEN(hexstr$), "0") + hexstr$
a& = VAL("&H" + LEFT$(hexstr$, 2)) * 256 * 256 * 256
a& = a& + VAL("&H" + MID$(hexstr$, 3, 1)) * 256 * 256
a& = a& + VAL("&H" + MID$(hexstr$, 5, 2)) * 256
a& = a& + VAL("&H" + RIGHT$(hexstr$, 2))
hex2data$ = LTRIM$(STR$(a&))
END FUNCTION

DEFINT A-Z
FUNCTION hex2ip$ (hexstr$)
FOR i% = 1 TO 7 STEP 2
      u$ = u$ + LTRIM$(STR$(VAL("&H" + (MID$(hexstr$, i%, 2))))) + "."
NEXT i%
hex2ip$ = LEFT$(u$, LEN(u$) - 1)
END FUNCTION

FUNCTION hex2str$ (hexstr$)
FOR i% = 1 TO LEN(hexstr$) * 2 - 1 STEP 2
      a$ = a$ + CHR$(VAL("&H" + MID$(hexstr$, i%, 2)))
NEXT i%
hex2str$ = a$
END FUNCTION

SUB querydhcp (opticode$, optistr%, optistr$)
a% = VAL("&H" + opticode$)
SELECT CASE a%
      CASE 1
         subnetmask$ = hex2ip$(optistr$)
         PRINT "Subnet mask="; subnetmask$
      CASE 2
         'PRINT "Time offset="; hex2data$(optistr$)
      CASE 3
         FOR i% = 1 TO optistr% * 2 - 1 STEP 8
            a$ = a$ + hex2ip$(MID$(optistr$, i%, 8)) + ","
         NEXT i%
         gateways$ = LEFT$(a$, LEN(a$) - 1)
         PRINT "Gateways="; gateways$
      CASE 6
         FOR i% = 1 TO optistr% * 2 - 1 STEP 8
            a$ = a$ + hex2ip$(MID$(optistr$, i%, 8)) + ","
         NEXT i%
         dns$ = LEFT$(a$, LEN(a$) - 1)
         PRINT "DNS server="; dns$
      CASE 12
         PRINT "Host name="; hex2str$(optistr$)
      CASE 15
         PRINT "Domain name="; hex2str$(optistr$)
      CASE 44
         FOR i% = 1 TO optistr% * 2 - 1 STEP 8
            a$ = a$ + hex2ip$(MID$(optistr$, i%, 8)) + ","
         NEXT i%
         wins$ = LEFT$(a$, LEN(a$) - 1)
         PRINT "WINS/NBNS server address="; wins$
      CASE 46
         'PRINT "WINS/NBT node type="; hex2str$(optistr$)
      CASE 47
         'PRINT "NetBIOS scope ID="; hex2str$(optistr$)
      CASE 51
         PRINT "DHCP address lease time="; hex2data$(optistr$)
      CASE 53
         b% = VAL("&H" + optistr$)
         c$ = "DCHP message type="
         SELECT CASE b%
            CASE 1
                  'PRINT c$; "DHCP discover"
            CASE 2
                  'PRINT c$; "DHCP offer"
            CASE 3
                  'PRINT c$; "DHCP request"
            CASE 4
                  'PRINT c$; "DHCP decline"
            CASE 5
                  'PRINT c$; "DHCP ack"
            CASE 6
                  'PRINT c$; "DHCP nack"
            CASE 7
                  'PRINT c$; "DHCP release"
         END SELECT
      CASE 54
         seride$ = hex2ip$(optistr$)
         IF si$ <> seride$ THEN PRINT "Server IP address may be wrong."
         si$ = seride$
         'PRINT "Server identifier=";si$
         PRINT "SIAddr="; si$
END SELECT
END SUB

目前获取该客户机ip的准确性有99%了。以后还会进一步努力。