wmi windows 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 OS_Info()
    Dim strComputerName As String
    Dim strNameSpace As String
    Dim strClassName As String
    Dim OS As Object
    Dim objWMIService As Object
    Dim Osinf As Object
    Dim strManufacturer As String, strRegisteredUser As String, strSerialNumber As String
    Dim strVersionId As String, strVersionName As String
        strComputerName = "."
        strNameSpace = "rootcimv2"
        strClassName = "Win32_OperatingSystem"
        '
        On Error Resume Next
        If Err.Number  0 Then
                MsgBox "WMI yüklenmemis! Programdan çikilacak...", vbExclamation, _
                        "Windows Management Instrumentation"
                Exit Sub
            On Error GoTo 0
        End If
    Set objWMIService = GetObject("winmgmts:\" & strComputerName & "" & strNameSpace)
    Set Osinf = objWMIService.ExecQuery("Select * from " & strClassName)
    For Each OS In Osinf
        strManufacturer = "Üretici Firma = " & OS.Manufacturer & vbCrLf
        strRegisteredUser = "Kayitli Kullanici = " & OS.RegisteredUser & vbCrLf
        strSerialNumber = "Windows Seri Numarasi = " & OS.SerialNumber & vbCrLf
        strVersionId = "Windows Versiyonu ID = " & OS.Version & vbCrLf
        strVersionName = "Windows Versiyonu = " & OS.Name
        strServicePack = "Güncelleme = " & OS.CSDVersion & vbCrLf
        strVersionName = Mid(strVersionName, 1, InStr(1, strVersionName, "|") - 1) & vbCrLf
        strInstallDate = "Windows kurulum tarihi = " & Left(OS.InstallDate, 4) & "/" & Mid(OS.InstallDate, 5, 2) & "/" & Mid(OS.InstallDate, 7, 2) & vbCrLf
        MsgBox strManufacturer & strRegisteredUser & _
               strSerialNumber & strVersionId & strVersionName & strServicePack & strInstallDate, _
               vbInformation, "Windows Bilgileri   (Raider ®)"
    Next
End Sub

Benzer Sonuçlar
No	Makro Adı
1	wmi windows
2	wmi bios
3	işlemci bilgilerini hücreye aktarma
4	wmi network adaptörleri
5	wmi mouse
6	wmi anakart
7	wmi bilgi
8	wmi ekran kartı
9	capslock'u açtırma (ışığını yakma)
10	disketten .bat dosyası açma
11	dosyada kişi resmi olmadiğinda formdaki imagenin boş olmasi
12	başka açık bir excel çalışma sayfasındaki formu açma
13	şifrelemede son nokta
14	microsoft outlookdan uyarı e-maili göndersin
15	exploreri açma tam ekran
16	kitap sayfasını simge durumunda küçültme
17	midi çalma
18	userformu maksimize yapmak için
19	userformun yeri.
20	bütün excel dosyalarının %85 ile açılması

Benzer Sonuçlar

Makro Adı

wmi windows

wmi bios

işlemci bilgilerini hücreye aktarma

wmi network adaptörleri

capslock'u açtırma (ışığını yakma)

disketten .bat dosyası açma