vb如何读 cmd 里 ipconfig /all生成的txt里的mac和describe？

千问 · 2011-7-10 02:42:56

PrivateDeclareSubSleepLib\"kernel32\"(ByValdwMillisecondsAsLong)
PrivateSubCommand1_Click()
DimDescriptionAsString
DimMacAsString
Shell\"cmd.exe/cipconfig/all\"\"\"\"\"
DoEvents
Loop
Sleep1000
OpenApp.Pathdefds123\"\\temp.tmp\"ForInputAs#1
DoWhileNotEOF(1)
LineInput#1,a
IfLeft(a,Len(\"Description...........:\"))=\"Description...........:\"Then
Description=Right(a,Len(a)-Len(\"Description...........:\"))
EndIf
IfLeft(a,Len(\"PhysicalAddress.........:\"))=\"PhysicalAddress.........:\"Then
Mac=Right(a,Len(a)-Len(\"PhysicalAddress.........:\"))
EndIf
Loop
Close#1
KillApp.Pathdefds123\"\\temp.tmp\"
MsgBox\"Description:\"defds123Description
MsgBox\"Mac:\"defds123Mac
EndSub