System Report Online Excel and Excel Macro (VBA) Courses 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 Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro 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