Here is another checking script. Will create error in dashboard if version number is not correct. Once a new version comes out, all you need to do is know the build numbers. Updating a machine, then running it on there will get it for you.

You will need to edit these build numbers, and the text for the latest versions. I have also notices that the main build doen’t change when you apply a hot fix, i will look into this later on to see where that get saved

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = “.”
Set objRegistry = GetObject(“winmgmts:” & strComputer & “rootdefault:StdRegProv”)

Dim strComputer, objWMIService, colSettings, objProcessor

strComputer = “.”

Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate,authenticationLevel=Pkt}!” _
& strComputer & “rootcimv2”)

Set colSettings = objWMIService.ExecQuery _
(“SELECT * FROM Win32_Processor”)

For Each objProcessor In colSettings
‘Wscript.Echo “System Type: ” & objProcessor.Architecture
‘Wscript.Echo “Processor: ” & objProcessor.Description

‘ 9 is x64 Opperating system
if (objProcessor.Architecture) = “9” then
strKeyPath = “SOFTWAREWow6432NodeTrendMicroOfficeScanserviceInformation”

Else

strKeyPath = “SOFTWARETrendMicroOfficeScanserviceInformation”

end if
next
strValueName = “Build_Version”
objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

If IsNull(dwValue) Then
Wscript.Echo “Cant find Trend or not SP2”
WScript.Quit(1)

elseIf (dwValue) >= 3052 Then
Wscript.Echo “Upgrade not required (” & dwValue & “) Version 3052 required”
WScript.Quit(0)

elseIf (dwValue) = 2122 Then
Wscript.Echo “Upgrade Required (” & dwValue & “) Version 3052 SP2 required”
WScript.Quit(1)

Else
Wscript.Echo “Upgrade to SP2 Requied (” & dwValue & “)”
WScript.Quit(1)
End If

« »