Email from startup when there is a change in the Ram.

'On error resume next
 
'Get Windows folder location
Set oShell  = CreateObject( "WScript.Shell" )
windir      = oShell.ExpandEnvironmentStrings("%windir%")
 
'Set some other variables
Set fso     = CreateObject("Scripting.FileSystemObject")
strComputer = oShell.ExpandEnvironmentStrings("%computername%")
strFile     = windir & "\system32\ram.log"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
objName = objFSO.GetTempName
objTempFile = objName
 
'Run command line to get system information
objShell.Run "cmd /c systeminfo >" & windir & "\system32\" & objTempFile, 0, True
Set objTextFile = objFSO.OpenTextFile(windir & "\system32\" & objTempFile, 1)
strMemory = "0"
Do While objTextFile.AtEndOfStream <> True
	strText = objTextFile.ReadLine
	'Look for the line that has the RAM amount
	If Instr(strText, "Total Physical Memory:") > 0 Then
		strMemory = trim(replace(strText,"Total Physical Memory:",""))
		Exit Do
	End If
Loop
objTextFile.Close
 
'Delete the temp file
Set filesys = CreateObject("Scripting.FileSystemObject") 
filesys.DeleteFile windir & "\system32\" & objTempFile
 
'Create the log file if it does not exist
if NOT fso.FileExists(strFile) Then
	Set objFile = fso.CreateTextFile(strFile, True)
	objFile.WriteLine(strMemory)
	objFile.Close
end if
 
'Read the file
Set objFile = fso.OpenTextFile(strFile, 1)
strContents = replace(objFile.ReadAll,vbCRLF,"")
objFile.Close
 
'Set the log file to the current amount of RAM
Set objFile  = fso.OpenTextFile(strFile, 2, True)
objFile.WriteLine(strMemory)
objFile.Close
 
'Compare the file to what was discovered in the first part of the script
if strContents <> strMemory then
	'There is a change - email an alert
	SendAlert strContents,strMemory,strComputer
end if
 
Sub SendAlert(OriginalRAM,CurrentRAM,sComputer)
	On Error Resume Next
 
	Dim objMessage
	Set objMessage = CreateObject("CDO.Message")
	with objMessage
		.From = "helpdesk@yourdomain.com" 
		.To = "helpdesk@yourdomain.com"
		.Subject = "The machine " & sComputer & " has had a change in RAM"
		.TextBody = "Please confirm that the computer '" & sComputer & "' has had a change in RAM." & vbCRLF & "Last known RAM value: " & OriginalRAM & vbCRLF & "Current RAM value: " & CurrentRAM
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "youremailserver"
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
		.Configuration.Fields.Update
		.Send
	end with 
	Set objMessage = Nothing
End Sub
                                              

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:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:

'On error resume next
 
'Get Windows folder location
Set oShell  = CreateObject( "WScript.Shell" )
windir      = oShell.ExpandEnvironmentStrings("%windir%")
 
'Set some other variables
Set fso     = CreateObject("Scripting.FileSystemObject")
strComputer = oShell.ExpandEnvironmentStrings("%computername%")
strFile     = windir & "\system32\ram.log"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
objName = objFSO.GetTempName
objTempFile = objName
 
'Run command line to get system information
wscript.echo "cmd /c systeminfo > " & windir & "\system32\" & objTempFile
wscript.quit

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

'On error resume next
 
'Get Windows folder location
Set oShell  = CreateObject( "WScript.Shell" )
windir      = oShell.ExpandEnvironmentStrings("%windir%")
 
'Set some other variables
Set fso     = CreateObject("Scripting.FileSystemObject")
strComputer = oShell.ExpandEnvironmentStrings("%computername%")
strFile     = windir & "\system32\ram.log"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
objName = objFSO.GetTempName
objTempFile = objName
 
'Run command line to get system information
objShell.Run "cmd /c systeminfo > " & windir & "\Temp\" & objTempFile, 0, True
Set objTextFile = objFSO.OpenTextFile(windir & "\Temp\" & objTempFile, 1)
strMemory = "0"
Do While objTextFile.AtEndOfStream <> True
	strText = objTextFile.ReadLine
	'Look for the line that has the RAM amount
	If Instr(strText, "Total Physical Memory:") > 0 Then
		strMemory = trim(replace(strText,"Total Physical Memory:",""))
		Exit Do
	End If
Loop
objTextFile.Close
 
'Delete the temp file
Set filesys = CreateObject("Scripting.FileSystemObject") 
filesys.DeleteFile windir & "\Temp\" & objTempFile
 
'Create the log file if it does not exist
if NOT fso.FileExists(strFile) Then
	Set objFile = fso.CreateTextFile(strFile, True)
	objFile.WriteLine(strMemory)
	objFile.Close
end if
 
'Read the file
Set objFile = fso.OpenTextFile(strFile, 1)
strContents = replace(objFile.ReadAll,vbCRLF,"")
objFile.Close
 
'Set the log file to the current amount of RAM
Set objFile  = fso.OpenTextFile(strFile, 2, True)
objFile.WriteLine(strMemory)
objFile.Close
 
'Compare the file to what was discovered in the first part of the script
if strContents <> strMemory then
	'There is a change - email an alert
	SendAlert strContents,strMemory,strComputer
end if
 
Sub SendAlert(OriginalRAM,CurrentRAM,sComputer)
	On Error Resume Next
 
	Dim objMessage
	Set objMessage = CreateObject("CDO.Message")
	with objMessage
		.From = "helpdesk@yourdomain.com" 
		.To = "helpdesk@yourdomain.com"
		.Subject = "The machine " & sComputer & " has had a change in RAM"
		.TextBody = "Please confirm that the computer '" & sComputer & "' has had a change in RAM." & vbCRLF & "Last known RAM value: " & OriginalRAM & vbCRLF & "Current RAM value: " & CurrentRAM
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "youremailserver"
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
		.Configuration.Fields.Update
		.Send
	end with 
	Set objMessage = Nothing
End Sub

                                              

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:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76: