pxe启动后如何自动加载网卡驱动及自动获得ＩＰ地址？ - 中国DOS联盟论坛

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 ]

第1楼　junexu	发表于 2008-03-21 11:20
新手上路　发帖 6　积分 16
pxe启动后如何自动加载网卡驱动及自动获得ＩＰ地址？我在研究ｐｘｅ远程启动ＤＯＳ环境中又遇到了一个问题，烦请各位高手指点一二。环境：pxelinux+dhcp+tftpd32 ｐｘｅ启动ＤＯＳ成功,现在考虑想启动后自动加载网卡驱动（已找到ＤＯＳ下的网卡驱动程序，不知道是否有通用的网卡驱动程序），然后自动运行ＭＳ　ＣＬＩＥＮＴ或者其他的联网程序抓取ＩＰ地址，我应该在Autoexec.bat和Config.sys里面写些什么呢？谢谢！

第2楼　qzxym	发表于 2008-03-21 23:49
中级用户　发帖 39　积分 210
建议你参考一下Maxdos的PXE版本吧

第3楼　xugaohui	发表于 2008-05-05 01:29
高级用户　发帖 293　积分 774　来自湖北仙桃
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 ]

第4楼　luowanli1984	发表于 2009-08-11 06:29
初级用户　发帖 27　积分 65　来自 china
楼上的高手！

第5楼　jamesdai2002	发表于 2009-08-14 01:13
新手上路　发帖 1　积分 2
太强了，这么长的程序

第6楼　wuchan	发表于 2009-08-25 23:14
初级用户　发帖 59　积分 119
没看明白。太高深了

第7楼　heixing	发表于 2010-07-29 23:43
初级用户　发帖 16　积分 28
好东西呀！确实强大！

第8楼　diy2222	发表于 2010-08-02 21:40
新手上路　发帖 6　积分 12
新手，还在学习，看不懂