Script to find out what version of office prople have 1

timgerr · Sep 29, 2004

With this new MS vulnerability that is out MS04-028, I need to create a script that will remotely find out what version and service pact of office people are running. I was wondering if anyone has one.

Thanks,
Timgerr

-How important does a person have to be before they are considered assissinated instead of just murdered?

mwiner · Sep 29, 2004

Timgerr,

I am sure there is a script to do this. But I would also suggest looking at the Microsoft Baseline Security Analyzer. You can enter either a domain or an IP range and it will tell you which machines are vulnerable.

Check out:

http://www.microsoft.com/technet/security/tools/mbsahome.mspx

tsuji · Sep 30, 2004

Hello timgerr,

You can use filesystemobject's getfileversion method to determine office major executables' version which also reflects the patch. It can get itself into a complicated business. See Torgeir Bakken's posting for detail.

http://groups.google.com/groups?selm=3FBAE0DD.DB43B2C1@hydro.com

regards - tsuji

mrmovie · Sep 30, 2004

the base anal will do the trick, if not this will list all MSI based installations,,,i think

Const HKEY_LOCAL_MACHINE = &H80000002
Const UnInstPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
Dim oReg, arrSubKeys, subKey, strDisplayName, strDisplayVersion, blnOffice2000, blnOffice2003, strOfficeV
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
".\root\default:StdRegProv")
oReg.EnumKey HKEY_LOCAL_MACHINE, UnInstPath, arrSubKeys
blnOffice2000 = "false"
blnOffice2003 = "false"
strOfficeV = ""

For Each subKey In arrSubKeys
strDisplayName = ""
strDisplayVersion = ""
'On Error Resume Next
strDisplayName = LCase(WshShell.RegRead("HKEY_LOCAL_MACHINE\" & UnInstPath & subKey & "\DisplayName"))
strDisplayVersion = LCase(WshShell.RegRead("HKEY_LOCAL_MACHINE\" & UnInstPath & subKey & "\DisplayVersion"))
'On Error Goto 0
objTS.WriteLine Now() & vbTab & subKey & ";" & strDisplayName & ";" & strDisplayVersion
'check for Microsoft & Office & 2000
If Instr(strDisplayName, "microsoft") And Instr(strDisplayName, "office") And Instr(strDisplayName, "2000") Then
blnOffice2000 = "true"
End If
If Instr(strDisplayName, "microsoft") And Instr(strDisplayName, "office") And Instr(strDisplayName, "2003") Then
blnOffice2003 = "true"
End If
Next
'check office version
If blnOffice2000 = "true" Then
If blnOffice2003 = "true" Then
strOfficeV = "2003"
Else
strOfficeV = "2000"
End If
Else
If blnOffice2003 = "true" Then
strOfficeV = "2003"
Else
strOfficeV = "unknown"
End If
End If
objTS.WriteLine Now() & vbTab & strOfficeV & " = Office location

timgerr · Sep 30, 2004

Thank you all for the help.

Tim

-How important does a person have to be before they are considered assissinated instead of just murdered?

timgerr · Sep 30, 2004

OK here is what I did, It might not look pretty but it works for me:

Code:

On Error Resume Next 
Function sVersion(sLocation, sPath, sWinWord)

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & sLocation & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("SELECT * FROM CIM_Datafile WHERE Name = '" & sPath & sWinWord & "'")
For Each objFile in colFiles
	If objFile.Version = "9.0.0.6926" Then 
		WScript.Echo "OFF2000 SP3" 
	End If 
	If objFile.Version = "10.0.4219.0" Then 
		WScript.Echo "OFFXP SP2" 
	End If 
	If objFile.Version = "9.0.0.8216" Then 
		WScript.Echo "OFF2000" 
	End If 
	If objFile.Version = "10.0.5815.0" Then 
		WScript.Echo "OFFXP" 
	End If 	
	If objFile.Version = "10.0.6612" Then 
		WScript.Echo "OFFXP SP3" 
	End If 
	
    Wscript.Echo "Version: " & objFile.Version
Next
End Function 

Dim sLocation
Dim sPath(1)
Dim sWinWord
sLocation 	= InputBox("Please enter a computer name")
sWinWord 	= "\\winword.exe"
sPath(0)	= "C:\\Program Files\\Microsoft Office XP\\OFFICE11"
sPath(1)	= "C:\\Program Files\\Microsoft Office XP\\OFFICE10"
I = 0 
Do Until  I = 2
	sVersion sLocation, sPath(I), sWinWord
	
	I = I + 1
Loop


sVersion sLocation, sPath, sWinWord

-How important does a person have to be before they are considered assissinated instead of just murdered?

timgerr · Sep 30, 2004

The above script will allow me to connect to users remotly and get the information.

-How important does a person have to be before they are considered assissinated instead of just murdered?

tsuji · Sep 30, 2004

timegerr,

Thanks for sharing. It's real good.

- tsuji

PHV · Oct 6, 2004

To speed up the major version number search you may inspect this key value:
HKEY_CLASSES_ROOT\Word.Application\CurVer

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Script to find out what version of office prople have 1

timgerr

IS-IT--Management

mwiner

IS-IT--Management

tsuji

Technical User

mrmovie

Technical User

timgerr

IS-IT--Management

timgerr

IS-IT--Management

timgerr

IS-IT--Management

tsuji

Technical User

PHV

MIS

Similar threads

Part and Inventory Search

Sponsor