如何获得不带冒号的mac地址

电脑考拉

$sky=mac()

Func mac()
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$Output=""
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled != 0", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) then
   For $objItem In $colItems
      $Output1 = $Output & "" & $objItem.MACAddress & @CRLF
   Next
Return $Output1
Else
Endif
EndFunc

MsgBox(0,"","你的mac地址:   "&$sky)

[ 本帖最后由 电脑考拉 于 2009-3-17 11:52 编辑 ]

大绯狼

MsgBox(0,"","你的mac地址:   "&StringReplace($sky,":",""))

电脑考拉

非常感谢
8字补丁.exe

lixiang

这个可以在网络还未连通的情况下使用吗？

au3x

在 网线拔出 的情况下 不能正常 显示，，，，