Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Office Version via wsh auslesen

Frage Entwicklung Batch & Shell

Mitglied: redzack

redzack (Level 1) - Jetzt verbinden

23.12.2009 um 11:33 Uhr, 5548 Aufrufe, 2 Kommentare

Stecke mal wieder voll im Scriptfieber und sehe den Wald vor lauter Bäumen nicht mehr.
Ich versuche via Script die Officeversion auszulesen welche gerade aktuell auf dem System installiert ist. Doch irgendwo hat sich der Fehlerteufel in mein Script eingeschlichen vielleicht könnt Ihr ihn ja entdecken.

Hier mal das Script.


01.
Function GetOfficeVer()  
02.
  On Error Resume Next  
03.
  Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE  
04.
  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & "/root/default:StdRegProv")  
05.
   
06.
  If Err.Number <> 0 Then  
07.
    GetOfficeVer = "unknow"  
08.
  End If  
09.
 
10.
 
11.
  sValueName = "Path"  
12.
  sRegPre = "SOFTWARE\Microsoft\Office\"  
13.
  sRegPost = "\Common\InstallRoot"  
14.
 
15.
 
16.
  If oReg.GetStringValue(HKLM, sRegPre & "12.0" & sRegPost, sValueName, sValue) = 0 Then  
17.
    GetOfficeVer = "Office 2007"  
18.
  Elseif oReg.GetStringValue(HKLM, sRegPre & "11.0" & sRegPost, sValueName, sValue) = 0 Then  
19.
    GetOfficeVer = "Office 2003"  
20.
  Elseif oReg.GetStringValue(HKLM, sRegPre & "10.0" & sRegPost, sValueName, sValue) = 0 Then  
21.
    GetOfficeVer = "Office 2002"  
22.
  Elseif oReg.GetStringValue(HKLM, sRegPre & "9.0" & sRegPost, sValueName, sValue) = 0 Then  
23.
    GetOfficeVer = "Office 2000"  
24.
  Elseif oReg.GetStringValue(HKLM, sRegPre & "8.0" & sRegPost, sValueName, sValue) = 0 Then  
25.
    GetOfficeVer = "Office 97"  
26.
  Else  
27.
    GetOfficeVer = "0" 
28.
  End If  
29.
End Function  
30.
 
31.
msgbox GetOfficeVer
Vielen Dank im Vorraus
lg
red
Mitglied: redzack
23.12.2009 um 11:57 Uhr
Hat sich erledigt ;)

01.
Function GetOfficeVer()  
02.
  strComputer = "." 
03.
   
04.
  On Error Resume Next  
05.
  Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE  
06.
  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "/root/default:StdRegProv")  
07.
   
08.
  If Err.Number <> 0 Then  
09.
    GetOfficeVer = "unknow"  
10.
  End If  
11.
 
12.
 
13.
  sValueName = "Path"  
14.
  sRegPre = "SOFTWARE\Microsoft\Office\"  
15.
  sRegPost = "\Common\InstallRoot\"  
16.
 
17.
 
18.
  If oReg.GetStringValue(HKLM, sRegPre & "12.0" & sRegPost, sValueName, strValue) = 0 Then  
19.
    GetOfficeVer = "Office 2007"  
20.
  Elseif oReg.GetStringValue(HKLM, sRegPre & "11.0" & sRegPost, sValueName, strValue) = 0 Then  
21.
    GetOfficeVer = "Office 2003"  
22.
  Elseif oReg.GetStringValue(HKLM, sRegPre & "10.0" & sRegPost, sValueName, strValue) = 0 Then  
23.
    GetOfficeVer = "Office 2002"  
24.
  Elseif oReg.GetStringValue(HKLM, sRegPre & "9.0" & sRegPost, sValueName, strValue) = 0 Then  
25.
    GetOfficeVer = "Office 2000"  
26.
  Elseif oReg.GetStringValue(HKLM, sRegPre & "8.0" & sRegPost, sValueName, strValue) = 0 Then  
27.
    GetOfficeVer = "Office 97"  
28.
  Else  
29.
    GetOfficeVer = "unknow" 
30.
  End If  
31.
End Function  
32.
 
33.
msgbox GetOfficeVer
Funktioniert nun bestens.

lg
red
Bitte warten ..
Mitglied: 76109
23.12.2009 um 12:51 Uhr
Hallo redzack!

Alternativ könnte man es auch so machen:
01.
Function GetOfficeVer() 
02.
   On Error Resume Next 
03.
   
04.
   Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE 
05.
   
06.
   strComputer = "." 
07.
   
08.
   Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "/root/default:StdRegProv") 
09.
   
10.
   If Err.Number <> 0 Then GetOfficeVer = "unknow":  Exit Function 
11.
 
12.
   sValueName = "Path" 
13.
   sRegPre = "SOFTWARE\Microsoft\Office\" 
14.
   sRegPost = "\Common\InstallRoot" 
15.
 
16.
   aVersion = Array("12.0", "11.0", "10.0", "9.0", "8.0") 
17.
   aVerYear = Array("2007", "2003", "2002", "2000", "1997") 
18.
     
19.
   GetOfficeVer = "0" 
20.
 
21.
   For i = 0 To UBound(aVersion) 
22.
     If oReg.GetStringValue(HKLM, sRegPre & aVersion(i) & sRegPost, sValueName, sValue) = 0 Then 
23.
        GetOfficeVer = "Office " & aVerYear(i):  Exit For 
24.
     End If 
25.
   Next 
26.
End Function
Gruß Dieter
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...

Batch & Shell
Eventlog Druckjobs mit VBS auslesen (2)

Frage von joni2000de zum Thema Batch & Shell ...

Windows Server
gelöst Gruppenrichtlinien-Vorlage Office 2013 auf einem DC 2003 (5)

Frage von bluepython zum Thema Windows Server ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (27)

Frage von patz223 zum Thema Windows Userverwaltung ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (20)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...