网卡信息获取.doc

_SUB 主界面,W525H470,查看网卡信息 - by lmle,CALL UnMouALL,#1 GROU GrouDir,L10T12W291H55,指定目标系统Windows文件夹 EDIT SystemDir,L19T37W211H18,C:Windows,CALL CheckFile,0 ITEM 浏览按钮,L240T34W53H24,浏 览,CALL BrowseFile,0 GROU GrouTips,L312T12W197H55,温馨提示 LABE -left LabeTips,L346T39W160H16,-请选择系统文件夹！,0x0000ff GROU GrouPosition,L10T75W499H75,选择读取位置 RADI Radi_A,L50T95W100H20,第一读取位置,CALL ShowInfo_A,1,1 RADI Radi_B,L200T95W100H20,第二读取位置,CALL ShowInfo_B,0,1 RADI Radi_C,L350T95W100H20,第三读取位置,CALL ShowInfo_C,0,1 LABE -left LabeWeizhi,L20T125W480H20,HKLMSOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards,0x006600 GROU GrouShow,L10T158W499H230,网卡相关信息 LABE LabeLJMC,L21T185W60H16,连接名称： LABE LabeWKSL,L338T185W60H16,网卡数量： EDIT EditWKSL,L400T182W95H17,0 LABE LabeWKMS,L21T220W60H16,网卡描述： EDIT EditWKMS,L84T218W411H17,0 LIST ListLJMC,L83T182W242H20,CALL ShowIP LABE LabeIPDZ,L21T253W60H17,IP 地址： EDIT| EditIPDZ,L84T250W410H54,4 LABE LabeMRWG,L22T325W60H16,默认网关： EDIT| EditMRWG,L84T321W160H54,4 LABE LabeDNS,L275T325W60H16,DNS 地址： EDIT| EditDNS,L335T321W160H54,4 LABE -left MingXie1,L55T400W200H17,PECMD - WinPE Commander,0x0000AA LABE -left MingXie2,L40T415W300H17,DSystem ,0x002200 ITEM 保存按钮,L370T398W90H30,保存到文件,CALL SaveFile,-1 TIME t1,100,CALL CheckFile_END_SUB BrowseFile BROW &zhucebiao,*C:Windows,请选择目标Windows系统目录 LSTR &ChooseCancel=1,%&zhucebiao% FIND $%&ChooseCancel%=%,EXIT _SUB ENVI SystemDir=%&zhucebiao% CALL CheckFile_END_SUB CheckFile ENVI t1=0 CALL UnMouALL CALL InitList LSTR &kong=1,%SystemDir% FIND $%&kong%=%,TEAM MESS 请输入目标系统windows目录！也可以用“浏览”按钮来选择！目录选择错误#OK|ENVI Err=1|ENVI LabeTips=-请输入windows目录！|EXIT _SUB FIND $%SystemDir%=,TEAM MESS 请输入目标系统windows目录！也可以用“浏览”按钮来选择！目录选择错误#OK|ENVI Err=1|ENVI LabeTips=0,CALL DoLoop_A FIND $%NIC_Sum%=1,TEAM ENVI ListLJMC.DEL=1.%LJM1%|ENVI ListLJMC.ADDSEL=%LJM1%|ShowIP|EXIT _SUB FIND $%NIC_Sum%1, ENVI ListLJMC.SEL=1.%LJM1% ShowIP _END _SUB DoLoop_A READ %temp%wangka.reg,%ReadLine%,CurLine MSTR ID=16,38,%CurLine% RSTR IDisOK=1,%ID% FIND $%IDisOK%=,CALL IsNIC ENVI Number=%NIC_Sum% CALL GetInfo CALC #ReadLine=%ReadLine%-1_END_SUB ShowInfo_B ENVI LabeWeizhi=HKLMSystem%ControlSetNumber%ServicesTcpipParametersAdapters FIND $%MouSysOK%=0,CALL MountSystem FIND $%MouSoftOK%=0,FIND $%S_Err%=0,CALL MountSoft FILE %temp%wangka.txt ENVI ListLJMC= EXEC =!CMD.EXE /C reg query HKLM%SystemLJ%ControlSetNumber%ServicesTcpipParametersAdapters %temp%wangka.txt READ %temp%wangka.txt,-1,LastLine CALC #LastLine=%LastLine%+1 ENVI NIC_Sum=0 ENVI ReadLine=1 LOOP #%ReadLine%1, ENVI ListLJMC.SEL=1.%LJM1% ShowIP _END _SUB DoLoop_B READ %temp%wangka.txt,%ReadLine%,CurLine RSTR ID=38,%CurLine% RSTR IDisOK=1,%ID% FIND $%IDisOK%=,CALL IsNIC ENVI Number=%NIC_Sum% CALL GetInfo CALC #ReadLine=%ReadLine%+1_END_SUB ShowInfo_C ENVI LabeWeizhi=HKLMSystem%ControlSetNumber%ControlNetwork4D36E972-E325-11CE-BFC1-08002BE10318 FIND $%MouSysOK%=0,CALL MountSystem FIND $%MouSoftOK%=0,FIND $%S_Err%=0,CALL MountSoft FILE %temp%wangka.txt ENVI ListLJMC= EXEC =!CMD.EXE /C reg query HKLM%SystemLJ%ControlSetNumber%ControlNetwork4D36E972-E325-11CE-BFC1-08002BE10318 %temp%wangka.txt READ %temp%wangka.txt,-1,LastLine CALC #LastLine=%LastLine%+1 ENVI NIC_Sum=0 ENVI ReadLine=1 LOOP #%ReadLine%1, ENVI ListLJMC.SEL=1.%LJM1% ShowIP _END _SUB IsNIC CALC NIC_Sum=%NIC_Sum%+1 CALC NextLine=%ReadLine%+1 ENVI NIC%NIC_Sum%NIC_ID=%ID% ENVI LJM%NIC_Sum%=% REGI $HKLM%SystemLJ%ControlSetNumber%ControlNetwork4D36E972-E325-11CE-BFC1-08002BE10318%NIC%NIC_Sum%NIC_ID%Connectionname,LJM%NIC_Sum% ENVI LJM_NIC_Sum=LJM%NIC_Sum% LSTR NameOK=1,%LJM_NIC_Sum% FIND $%NameOK%=%,TEAM CALC NIC_Sum=%NIC_Sum%-1|EXIT _SUB LPOS NameOK=*,1,%LJM_NIC_Sum% FIND $%NameOK%0,TEAM CALC NIC_Sum=%NIC_Sum%-1|EXIT _SUB LPOS NameOK=,1,%LJM_NIC_Sum% FIND $%NameOK%0,TEAM CALC NIC_Sum=%NIC_Sum%-1|EXIT _SUB ENVI &i=0 LOOP %&i%0,ENVI 保存按钮.Enable=1 LSTR OKProductName=1,%ProductName% FIND $%OKProductName%=%,!ENVI GrouShow=网卡相关信息 目标系统：%ProductName% ENVI Number=0 LOOP #%Number%0, IFEX $%&CanShuSum%=3,ENVI OutStr=%OutStr%StrAAA%i%&HuanHang% IFEX $%&CanShuSum%=4, STRL SpaceLen=%StrAAA%i% CALC SpaceLen=30 - %SpaceLen% ENVI$ SP=*%SpaceLen% 0x20 ENVI OutStr=%OutStr%StrAAA%i%SP%StrBBB%i%&HuanHang% CALC i=%i% + 1 CALC StrSum=%StrSum% - 1 STRL &OutStrLen=%OutStr% CALC &OTLen=%&OutStrLen% - %&HuanHangLen% LSTR OutStr=%&OTLen%,%OutStr%_END_SUB GetStr ENVI &OldStr=%1 ENVI &StrName=%2 ENVI &HuaFen=%3 STRL &HuaFenLen=%&HuaFen% ENVI StrSum=0 STRL &Len=%&OldStr% IFEX $%&Len%0, CALC &StrLen=%&StrEnd%-%&StrStart% CALC StrSum=%StrSum% + 1 MSTR %&StrName%StrSum%=%&StrStart%,%&StrLen%,%&OldStr% CALC &i=%&i% + 1 LPOS* &StrEnd2=%&HuaFen%,%&i%,%&OldStr% IFEX $%&StrEnd2%=0, CALC &MoWei=%&Len%-%&StrEnd% IFEX $%&MoWei%6, CALC StrSum=%StrSum% + 1 CALC &StrStart=%&StrEnd% + %&HuaFenLen% CALC &StrLen=%&Len% - %&StrStart% + 1 MSTR %&StrName%StrSum%=%&StrStart%,%&StrLen%,%&OldStr% TEAM ENVI &TuiChu=1|EXIT LOOP CALC &StrEnd2=%&StrEnd2% - %&HuaFenLen% IFEX $%&StrEnd%=%&StrEnd2%,TEAM ENVI &TuiChu=1|EXIT LOOP CALC &StrStart=%&StrEnd% + %&HuaFenLen% IFEX $%&TuiChu%=1,EXIT LOOP _END_SUB SaveFile BROW SaveName,&,保存网卡信息,txt LSTR ChooseCancel=1,%SaveName% FIND $%ChooseCancel%=%,EXIT _SUB IFEX %SaveName%,TEAM MESS %SaveName%文件已存在！请重新选择。错误#ok*8000|EXIT _SUB FIND $%OKProductName%=%,!WRIT %SaveName%,$+0,目标系统是 %ProductName% WRIT %SaveName%,$+0,目标系统下共有%NIC_Sum%块网卡 WRIT %SaveName%,$+0, IFEX %SaveName%,!TEAM MESS %SaveName%不可写或磁盘已满！请重新选择。错误#ok*8000|EXIT _SUB ENVI Number=0 LOOP #%Number%NIC_Sum%,CALL WriteFile MESS “%SaveName%”保存完毕！保存网卡信息#ok*5000_END _SUB WriteFile CALC #Number=%Number%+1 WRIT %SaveName%,$+0,第%Number%块网卡 WRIT %SaveName%,$+0,连接名称：%LJM%Number% WRIT %SaveName%,$+0,网卡描述：%NIC%Number%Description% WRIT %SaveName%,$+0,设IP方式：%EnDHCP%Number% FIND $%EnDHCP%Number%=自动获取,TEAM WRIT %SaveName%,$+0,|EXIT _SUB WRIT %SaveName%,$+0,IP 地 址： ENVI IPN=IP%Number% ENVI SubnetMaskN=SubnetMask%Number% LinkStr %IPN% %SubnetMaskN% 0 FIND $=%OutStr%,WRIT