电脑考拉 发表于 2009-3-17 11:15:02

如何获得不带冒号的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 编辑 ]

大绯狼 发表于 2009-3-17 11:17:41

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

电脑考拉 发表于 2009-3-17 11:21:52

非常感谢
8字补丁.exe

lixiang 发表于 2009-5-16 17:35:29

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

au3x 发表于 2014-8-22 16:38:24

在 网线拔出 的情况下 不能正常 显示，，，，
页: [1]
查看完整版本: 如何获得不带冒号的mac地址