Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: redzack

redzack (Level 1) - Jetzt verbinden

23.12.2009 um 11:33 Uhr, 5641 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 ..
Ähnliche Inhalte
Batch & Shell
BATCH: Office Version prüfen
Frage von 118710Batch & Shell1 Kommentar

Hallo zusammen, vllt könnt ihr mir helfen. Ich möchte eine simple Batch Datei bauen, die erkennt welche Office Version ...

Microsoft Office

Office Produktkey auslesen über Netzwerk

Frage von InternationalinlandMicrosoft Office7 Kommentare

Hallo, gibt es eine möglichkeit, den MS Office Produktkey jedes einzelnen Clients über ein Tool (oder auch auf dem ...

Windows Tools

WSH - Dateien umbennnen

Frage von peter58haWindows Tools8 Kommentare

Hallo zusammen, ich bin absoluter Neuling in Sachen WSH und benötige eure Hilfe bei einem Script, welches Dateien umbenennt. ...

Cloud-Dienste

Passwort Office Exchange 365 auslesen

gelöst Frage von YannoschCloud-Dienste4 Kommentare

Hallo zusammen, Gibt es eine Möglichkeit ein vergebenes Passwort für ein 365 Exchange Postfach auszulesen? Evtl. über Powershell oder ...

Neue Wissensbeiträge
Sicherheit

Zero Day-Schwachstelle im Internet Explorer - wird von APT bereits ausgenutzt

Information von kgborn vor 7 StundenSicherheit

Im Kernel des Internet Explorer scheint es eine Zero Day-Lücke zu geben, die von staatlichen Akteuren (APT) im Rahmen ...

Microsoft
Folder Security Viewer-Lizenzen zu gewinnen
Information von kgborn vor 7 StundenMicrosoft

Ich nehme das Thema mal in Absprache mit Frank hier auf, da es für den einen oder anderen Administrator ...

Hardware

Feueralarm killt Festplatten in Rechenzentrum - führt zu größerem Ausfall

Information von kgborn vor 7 StundenHardware10 Kommentare

Noch ein kleiner Beitrag für Administratoren, die in Rechenzentren aktiv sind - so als Fingerzeig. Denn es gibt Szenarien, ...

MikroTik RouterOS

Mikrotik Advisory: Vulnerability exploiting the Winbox port

Information von colinardo vor 7 StundenMikroTik RouterOS

Brand aktuell: Eine Schwachstelle im Winbox-Port bei Mikrotik Routern erlaubt das Auslesen der User-Datenbank der Router. Patch ist aktuell ...

Heiß diskutierte Inhalte
Linux
Linux Server oder Windows Server - lohnt eine Umstellung auf Linux und ebenso basierende SW bei einer langfristigen Planung?
Frage von motus5Linux23 Kommentare

Wir brauchen bei uns einen neuen Server. Dieser wird als Fileserver, Domäne Controller sowie Exchange Server verwendet. Wir versuchen ...

DSL, VDSL
ISP Wechsel auf Vodefone Koax, Gebäudeverkabelung nur per Cat 7
gelöst Frage von wusa88DSL, VDSL16 Kommentare

Hallo Zusammen, ich bin momentan bei Mnet als Glasfaser Kunde und möchte Preis/Leistungs-Technisch zu Kabel Deutschland / Vodafone wechseln. ...

Windows Server
Domänencontroller trennen
Frage von Akit57Windows Server13 Kommentare

Hallo, ich hoffe das mir hier jemand meine Frage trotz der spärlichen Informationen die ich geben kann beantworten kann: ...

Router & Routing
Gesichertes NTP, wie z.B. NTPsec oder andere Variante bei Fritzboxen möglich ?
Frage von BruniumRouter & Routing11 Kommentare

Aktueller Zustand: Verwendung von ungesicherten NTP mit Fritzbox Gewünschter Zustand: Verwendung von gesicherten NTP mit Fritzbox Frage: Was gibt ...