标题: pxe启动后如何自动加载网卡驱动及自动获得ＩＰ地址？ [打印本页]

---

作者: junexu     时间: 2008-3-21 11:20    标题: pxe启动后如何自动加载网卡驱动及自动获得ＩＰ地址？

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

环境：pxelinux+dhcp+tftpd32

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

谢谢！

---

作者: qzxym     时间: 2008-3-21 23:49
建议你参考一下Maxdos的PXE版本吧

---

作者: xugaohui     时间: 2008-5-5 01:29
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%了。以后还会进一步努力。


[ Last edited by xugaohui on 2008-5-9 at 04:03 AM ]

---

作者: luowanli1984     时间: 2009-8-11 06:29
楼上的高手！

---

作者: jamesdai2002     时间: 2009-8-14 01:13
太强了，这么长的程序

---

作者: wuchan     时间: 2009-8-25 23:14
没看明白。太高深了

---

作者: heixing     时间: 2010-7-29 23:43
好东西呀！
确实强大！

---

作者: diy2222     时间: 2010-8-2 21:40
新手，还在学习，看不懂