Ethernet kartı MAC adersimizi bulalım (.vbs)

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28802
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Ethernet kartı MAC adersimizi bulalım (.vbs)

Mesaj gönderen velociraptor » 16 Haz 2012, 13:16

Resim

Aşağıdakini not defterine yapıştırıp bir isim verin ve uzantısı .vbs olacak şekilde kaydedin

Kod: Tümünü seç

Option Explicit

Dim objWMIService, colItems, objItem, Tst
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
  Tst = Tst & vbCRLF & objItem.MACAddress
Next
MsgBox "MAC-Adresiniz: " & Tst, , WScript.ScriptName
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free



Kullanıcı avatarı
Bien
Kilobyte3
Kilobyte3
Mesajlar: 471
Kayıt: 04 Haz 2012, 16:47

Re: Ethernet kartı MAC adersimizi bulalım (.vbs)

Mesaj gönderen Bien » 16 Haz 2012, 15:06

Teşekkürler

Cevapla