VBS ou de chauve-souris - Déterminer les OS et la Version de microsoft Office

Quelqu'un aurait-il un script qui permet de déterminer le système d'exploitation Windows et la Version d'Office dans le même script.

J'ai des bribes du scénario, mais je n'arrive pas à comprendre comment intégrer à la fois l'OS et de la Version d'Office dans le script. J'ai commencé dans la chauve-souris maintenant j'ai déménagé sur VBS comme cela semble être en mesure de fournir plus de détails cependant, si quelqu'un pouvait juste aider avec la logique ci-dessous, que je pourrais être en mesure d'aller de l'avant.

Je voudrais savoir comment je peux configurer un script de ce genre.

If Windows 7 64bit & Office 2010
    do this
If Windows XP 32bit & Office 2007
    do this  
If Windows 7 & Office 2007
    do this

CODE POUR la Détection de la Version de Windows -- BAT SCRIPT

Echo Please wait.... detecting Windows OS version...
ver | find "2003" > nul
if %ERRORLEVEL% == 0 goto done

ver | find "XP" > nul
if %ERRORLEVEL% == 0 goto ver_xp

ver | find "2000" > nul
if %ERRORLEVEL% == 0 goto done

ver | find "NT" > nul
if %ERRORLEVEL% == 0 goto done

if not exist %SystemRoot%\system32\systeminfo.exe goto warnthenexit

systeminfo | find "OS Name" > %TEMP%\osname.txt
FOR /F "usebackq delims=: tokens=2" %%i IN (%TEMP%\osname.txt) DO set vers=%%i

echo %vers% | find "Windows 7" > nul
if %ERRORLEVEL% == 0 goto ver_7

echo %vers% | find "Windows Server 2008" > nul
if %ERRORLEVEL% == 0 goto done

echo %vers% | find "Windows Vista" > nul
if %ERRORLEVEL% == 0 goto ver_7

goto warnthenexit
InformationsquelleAutor brink668 | 2012-12-03
  1. 2

    Bien que l'Office de la partie est lente, il ne fonctionne pas.

    Il suffit d'inclure ce à l'intérieur d'un fichier avec un nom comme getversions.vbs

    Sur mon ordinateur, de l'imprimer:

    Microsoft Windows 8 Enterprise

    Microsoft Office 32-bits Composants de 2013, Version15

        strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colOperatingSystems = objWMIService.ExecQuery _
        ("Select * from Win32_OperatingSystem")

    For Each objOperatingSystem in colOperatingSystems
        Wscript.Echo objOperatingSystem.Caption
    Next

    Set colSoft = objWMIService.ExecQuery("SELECT * FROM Win32_Product WHERE Name Like 'Microsoft Office%'")

    If colSoft.Count = 0 Then
      wscript.echo "NO OFFFICE INSTALLED" 
    else
       For Each objItem In colSoft
          Wscript.echo objitem.caption & ", Version" & Left(objItem.Version, InStr(1,objItem.Version,".")-1)
          exit for
       Next
    End If
    • Merci je vais jeter un oeil. Je n'ai pas l'esprit étant de ralentir sera exécuté au moment de la nuit lorsque les utilisateurs ne sont pas connectés.
    InformationsquelleAutor Bruno
  2. 1

    Enregistrer ce (VB Script) en tant que fichier GetVersions.vbs.
    Il fonctionne
    En ce qui concerne,
    Shaun

    Option Explicit ' Enforce variable declaration
    ' Declare objects
Dim oShell
Dim sOSVersion
Dim lOfficeVersion

Set oShell = CreateObject("WScript.Shell")

On Error Resume Next
sOSVersion = oShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")' Read the registry for the operating system version

lOfficeVersion = GetOfficeVersionNumber() ' Read the office version from the function

MsgBox "sOSVersion = " & sOSVersion & vbCrLf & "lOfficeVersion = " & lOfficeVersion

    Function GetOfficeVersionNumber()
        GetOfficeVersionNumber = ""  ' or you could use "Office not installed"
        Dim sTempValue
                    ' Read the Classes Root registry hive (it is a memory-only instance amalgamation of HKCU\Software\Classes and HKLM\Software\Classes registry keys) as it contains a source of information for the currently active Microsoft Office Excel application major version - it's quicker and easier to read the registry than the file version information after a location lookup). The trailing backslash on the line denotes that the @ or default registry key value is being queried.
        sTempValue = oShell.RegRead("HKCR\Excel.Application\CurVer\")
        If Len(sTempValue) > 2 Then GetOfficeVersionNumber = Replace(Right(sTempValue, 2), ".", "") ' Check the length of the value found and if greater than 2 digits then read the last two digits for the major Office version value
    End Function    ' GetOfficeVersionNumber
    • Vous pouvez ajouter une ligne ou deux au sujet de comment et pourquoi il fonctionne.
    InformationsquelleAutor Shaun