wmi windows Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
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

No	Macro Name
1	wmi windows
2	wmi bios
3	transfer processor information to a cell
4	wmi network adapters
5	wmi mouse
6	wmi motherboard
7	wmi information
8	wmi video card
9	to turn capslock on
10	a .bat file from a floppy disk
11	open the form in another open excel worksheet
12	endpoint in encryption
13	send alert e-mail from microsoft outlook
14	book sheet / page minimization
15	explorer opening full screen
16	midi playback
17	to maximize userform
18	opening all excel files with 85%
19	userform auto sizing 2
20	minimizing active workbook windows

Excel Free Macros (VBA)

Wmi Windows

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords