version

Vérifier la version d’OFFICE sur les postes de travail

Vous souhaitez vérifier simplement la version OFFICE, quelque soit le poste de travail ?

Voici une section de code très utile :

on error resume next

filename = « .\Check_Office_Version_List.txt »

Set fso = CreateObject(« Scripting.FileSystemObject »)
If (fso.FileExists(filename)) Then
Else
Wscript.Echo « Check_Office_Version_List.txt non existant. »
Wscript.quit
End If

Set fso = CreateObject(« Scripting.FileSystemObject »)
Set f = fso.OpenTextFile(filename)

Do Until f.AtEndOfStream               

                machine = f.ReadLine
if ping(machine) then
Set objWord = CreateObject(« Word.Application », machine)
msgVersion = TransformOfficeVersion(objWord.version)
Wscript.Echo machine &  » – Version :  » & msgVersion
else
Wscript.Echo machine &  » – Version : Inconnue »
end if               

Loop

f.Close

Function Ping(myHostName)

     Dim colPingResults, objPingResult, strQuery
strQuery = « SELECT * FROM Win32_PingStatus WHERE Address = ‘ » & myHostName & « ‘ »
Set colPingResults = GetObject(« winmgmts://./root/cimv2 »).ExecQuery( strQuery )

     For Each objPingResult In colPingResults
If Not IsObject( objPingResult ) Then
Ping = False
ElseIf objPingResult.StatusCode = 0 Then
Ping = True
Else
Ping = False
End If
Next

     Set colPingResults = Nothing
End Function

Function TransformOfficeVersion(Numberof)

                Select Case Numberof
Case « 16.0 »
TransformOfficeVersion = « Office 2016 »
Case « 15.0 »
TransformOfficeVersion = « Office 2013 »
Case « 14.0 »
TransformOfficeVersion = « Office 2010 »
Case « 12.0 »
TransformOfficeVersion = « Office 2007 »
Case « 11.0 »
TransformOfficeVersion = « Office 2003 »
Case default
TransformOfficeVersion = « Office inconnu ou trop vieux … »
End Select

End Function

Ce code vous permettra d’identifier l’intelligence de votre programme.

Article écrit par Henri NGO

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *