---

Date: Sat, 25 May 2013 06:29:02 +0200

---

Quote:

The Official Scripting Guys Forum! Forum (recent threads)
Email Results
http://services.social.microsoft.com/feeds/FeedItem?feedId=00000000-0000-0000-0000-000000000000&itemId=f25e242f-35f8-49e7-a66e-13f82387ff52&title=Email+Results&uri=http%3a%2f%2fsocial.technet.microsoft.com%2fForums%2fen-US%2fITCG%2fthread%2ff25e242f-35f8-49e7-a66e-13f82387ff52%2f&k=RXzyqBDmw25a%2fp%2bh53vYODdpBHSKJeNJ68rJDc00qhY%3d

---

Text:

does anyone know how I can email the results via an html or text attachement.

 

ption Explicit

Const strOU = "DC=XXX,DC=XXX"

Const HKLM = &H80000002
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(objFSO.GetParentFolderName(Wscript.ScriptFullname) & "\xxxxxx_versions.txt", True)

Dim objConnection
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject"

Dim objCommand
Set objCommand = CreateObject("ADODB.Command") 
objCommand.ActiveConnection = objConnection 
objCommand.Properties("Page Size") = 1000


' Get all names of all computer accounts
objCommand.CommandText = "SELECT name FROM 'LDAP://" & strOU & "' WHERE objectCategory='computer'" 
Dim objRS
Set objRS = objCommand.Execute 

' Loop through computer names and check McAfee definition versions
Dim objReg, strDAT, strMajor, strMinor
On Error Resume Next
WriteOut "Hostname" & vbTab & "Engine version" & vbTab & "DAT version"
Do Until objRS.EOF
	Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & objRS("name") & "\root\default:StdRegProv")
	If Err.Number = 0 Then
	
		objReg.GetDWORDValue HKLM, "SOFTWARE\McAfee\AVEngine", "EngineVersionMajor", strMajor
		objReg.GetDWORDValue HKLM, "SOFTWARE\McAfee\AVEngine", "EngineVersionMinor", strMinor
		objReg.GetDWORDValue HKLM, "SOFTWARE\McAfee\AVEngine", "AVDatVersion", strDAT
		WriteOut objRS("name") & vbTab & vbTab & strMajor & "." & strMinor & vbTab & strDAT
	Else
		WriteOut objRS("name")
	End If
	Set objReg = nothing
	objRS.MoveNext
Loop



Sub WriteOut(strText)
	'Write text to file
	objFile.WriteLine strText

	' Write text to screen if running under cscript
	If Instr(1, Wscript.FullName, "cscript",1) Then
		Wscript.Echo strText
	End If
End Sub

 

 

 

---

Via FeedShow.com