Get multiple computer details and send them by mail using a script

Set objMessage = CreateObject("CDO.Message") 
Dim strComputerName, strMemory, strHardDisk, strDescription 
For Each procItem in GetObject("winmgmts:").InstancesOf("Win32_PhysicalMemory")
	strMemory = Round(procItem.Capacity / 1048576, 0) & " MB"
Next 
For Each procItem in GetObject("winmgmts:").InstancesOf("Win32_DiskDrive")
	strHardDisk = Round(procItem.Size / 1073741824, 0) & "GB"
Next 
For Each procItem in GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
	strComputerName =  procItem.Name
Next 
For Each procItem in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
	strDescription = procItem.Description
Next 
objMessage.Subject = "Computer Inventory" ' Any subject you want
objMessage.From = "IT@test.com" ' The From field of the email
objMessage.To = "ITDept@test.com" ' A valid email address to send it to
' The body of the email goes here
objMessage.TextBody = "ComputerName: " & strComputerName & vbCrLf & "Computer Description: " & strDescription & vbCrLf & "Totla Memory: " & strMemory & vbCrLf & "HD size: " & strHardDisk
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Set your SMTP server here
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpserver" 
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update 
objMessage.Send

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

Option Explicit
Dim objMessage
Dim colItem
Dim strComputerName, strMemory, strHardDisk, strDescription, strMailServer, strOSversion
Dim strDay, strMonth, strYear, strHour, strMinute, strSecond
Dim intMailServerPort
set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Computer Inventory" ' The subject for the email.
objMessage.From = "user1@domain.com" ' The "From" field of the email.
objMessage.To = "user2@domain.com" ' A valid email address to send it to.
strMailServer = "domain.com" ' Your mail server name (preferably the FQDN).
intMailServerPort = "25" ' The port your mail server uses for SMTP. 
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
        strComputerName =  colItem.Name
Next
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
        strDescription = colItem.Description
Next
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_LogicalMemoryConfiguration")
        strMemory = Round(colItem.TotalPhysicalMemory / 1024, 0) & " MB"
Next
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_DiskDrive")
        strHardDisk = Round(colItem.Size / 1073741824, 2) & " GB"
Next
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
        strOSversion = colItem.Caption
Next
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
        strOSversion = strOSversion & " SP" & colItem.ServicePackMajorVersion
Next
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
        strOSversion = strOSversion & " v" & colItem.Version
Next
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_CurrentTime")
        strDay = colItem.Day
Next
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_CurrentTime")
        strMonth = colItem.Month
Next
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_CurrentTime")
        strYear= colItem.Year
Next
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_CurrentTime")
        strHour = colItem.Hour
Next
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_CurrentTime")
        strMinute = colItem.Minute
Next
For Each colItem in GetObject("winmgmts:").InstancesOf("Win32_CurrentTime")
        strSecond = colItem.Second
Next 
objMessage.TextBody = "Computer inventory report taken " & strDay & "/" & strMonth & "/" & strYear & " " & strHour & ":" & strMinute & ":" & strSecond & vbCrLf & _
	"==================================================" & vbCrLf & vbCrLf & _
	"Computer Name:" & Chr(9) & Chr(9) & strComputerName & vbCrLf & _
	"Computer Description:" & Chr(9) & strDescription & vbCrLf & _
	"Total Memory:" & Chr(9) & Chr(9) & strMemory & vbCrLf & _
	"Hard Disk Size:" & Chr(9) & Chr(9) & strHardDisk & vbCrLf & _
	"OS Version:" & Chr(9) & Chr(9) & strOSversion
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMailServer
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = intMailServerPort
objMessage.Configuration.Fields.Update
objMessage.Send
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65: