wmi anakart Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub MotherBoardInfo()
Dim strComputerName As String
Dim strNameSpace As String
Dim strClassName As String
Dim objWMIMboard As Object
Dim objWMIService As Object
Dim objWMI_Mboards As Object
Dim strRet As String
strComputerName = "."
strNameSpace = "rootcimv2"
strClassName = "Win32_BaseBoard"
On Error Resume Next
If Err.Number  0 Then
  MsgBox "WMI yüklenmemiş! Programdan çıkılacak...", vbExclamation, _
  "Windows Management Instrumentation"
Exit Sub
On Error GoTo 0
End If
Set objWMIService = GetObject("winmgmts:\" & strComputerName & _
                        "" & strNameSpace)
Set objWMI_Mboards = objWMIService.ExecQuery _
                        ("Select * from " & strClassName)
For Each objWMIMboard In objWMI_Mboards
strRet = "Üretici Firma = " & objWMIMboard.Manufacturer & vbCrLf
strRet = strRet & "Seri Numarası = " & objWMIMboard.SerialNumber
    MsgBox strRet, vbInformation, "Ana Kart Bilgileri   (Raider ®)"
Next
End Sub

Benzer Sonuçlar
No	Makro Adı
1	wmi anakart
2	işlemci hızı
3	wmi ekran kartı
4	wmi network adaptörleri
5	wmi bios
6	işlemci bilgilerini hücreye aktarma
7	wmi sistem
8	wmi mouse
9	wmi bilgi
10	wmi windows
11	disketten .bat dosyası açma
12	capslock'u açtırma (ışığını yakma)
13	Çift tekrar eden / aynı olan satırları silmek
14	statusbar da (durum çubuğunda) kayan yazı
15	işlemciyi uyutma
16	fare kursörünü gizlemek 1
17	e10 hücresine yazı yaz sağdan sola kayarak yazsın
18	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
19	sayfa sekmelerine koruma atamak
20	geçici dosya ismi alma

Benzer Sonuçlar

Makro Adı

wmi anakart

işlemci hızı

wmi ekran kartı

wmi network adaptörleri

wmi bios

işlemci bilgilerini hücreye aktarma