system report Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub SysInfo()
Dim s As String, oSystem As Object, item As Object

Set oSystem = GetObject("winmgmts:").instancesOf("Win32_ComputerSystem")

For Each item In oSystem
    s = "Computer Info" & vbCrLf
    s = s & "-------------------------------" & vbCrLf
    s = s & "Name: " & item.Name & vbCrLf
    s = s & "Status: " & item.Status & vbCrLf
    s = s & "Type: " & item.SystemType & vbCrLf
    s = s & "Mfg: " & item.Manufacturer & vbCrLf
    s = s & "Model: " & item.Model & vbCrLf
    s = s & "RAM: " & item.TotalPhysicalMemory  1024000 & "mb" & vbCrLf
    s = s & "Domain: " & item.Domain & vbCrLf
    s = s & "Role: " & TranslateDomainRole(item.DomainRole) & vbCrLf
    s = s & "Current User: " & item.UserName & vbCrLf
    
    MsgBox s
Next

Set oSystem = Nothing

End Sub

Function TranslateDomainRole(ByVal roleID) As String
Dim RetString As String

Select Case roleID
        Case 0
            RetString = "Standalone Workstation"
        Case 1
            RetString = "Member Workstation"
        Case 2
            RetString = "Standalone Server"
        Case 3
            RetString = "Member Server"
        Case 4
            RetString = "Backup Domain Controller"
        Case 5
            RetString = "Primary Domain Controller"
        Case Else
            RetString = "Unknown"
    End Select

TranslateDomainRole = RetString

End Function

No	Macro Name
1	system report
2	Detailed report on harddisk
3	excel operators hk
4	opening calculator
5	ping the address in the cell
6	api
7	a .bat file from a floppy disk
8	calculator on / off
9	folder import
10	harddisk serial number import into cell a1
11	import file
12	a code that gives the full directory name
13	file cd rom checks your name does not keep closing
14	opening and preparing text file 3
15	userform full screen2
16	userform on top right
17	wmi windows
18	dialog box without userform
19	view system printers
20	closing the users book

Excel Free Macros (VBA)

System Report

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords