Script-Abfrage der Office-Version

[Doc Torte]

H@llo Notes-Nation...

...und wieder möchte er ein Problem haben...

wie kann ich es anstellen, nach der auf dem Rechner benutzten Office-Version zu fragen ?
Ich habe einen Excel-Upload-Agenten, der je nach Office-Version bestimmte Schritte abarbeiten muß.

Danke !

[Christoph Arras]

Stellt z.B. Einträge aus der Registry zur Verfügung (undokumentiert):
@RegQueryValue("HKEY_LOCAL_MACHINE"; "SOFTWARE\\Network Associates\\TVD\\Shared Components\\VirusScan Engine\\4.0.xx\\"; "szDatVersion")

[Hardy]

Hi,

So kann man es auch machen:

Dem User einen Button senden. Wenn das Script ausgeführt wird sendet dieser die Infos an eine vordefinierte Datenbank.

Script:

Sub Click(Source As Button)
%REM
This button agent collects:
Name of the user
Notes version
OS version
Word Version
Excel Version
Powerpoint version
and sends it to a tracking database where the data is parsed and displayed in a view.

%END REM
   Dim session As New NotesSession
   Dim Currentdb As NotesDatabase
   Dim CurrentView As NotesView
   Dim CurrentViewName As Variant
   Dim CurrentDbName As Variant
   Dim UserName As Variant
   Dim WhenUsed As String
   Dim Version As Variant
   Dim msApp As Variant
   
   Dim TrackingDb As New NotesDatabase( "", "" )
   Dim TrackingDoc As NotesDocument
   
   UserName = session.CommonUsername
   OSVersion = session.Platform
   NotesVer = Session.NotesVersion
   Version = "OS: " & OSVersion & "*" & "NotesVersion: " & NotesVer
   
   Set msApp = CreateObject("Excel.application")
   Version = Version & "*" & "Excel: " & msApp.Version
' Messagebox("Excel Version: " & Version)
   msApp.quit
   Set msApp = Nothing
   
   Set msApp = CreateObject("Word.application")
   Version = Version & "*" & "Word: " & msApp.Version
' Messagebox("Word Version: " & Version)
   msApp.quit
   Set msApp = Nothing
   
   Set msApp = CreateObject("Powerpoint.application")
   Version = Version & "*" & "Powerpoint: " & msApp.Version
' Messagebox("PowerPoint Version: " & Version)
   msApp.quit
   Set msApp = Nothing
   
   Call TrackingDb.Open( "Server", "Datenbank" )
   Set TrackingDoc = New NotesDocument( TrackingDb )
   TrackingDoc.Form = "Memo"
   TrackingDoc.Version = "User: " & UserName & "*" & Version
   Call TrackingDoc.Save(True, False)
   Messagebox("Version des Clients wurde ermittelt. Danke für Ihre Unterstützung.")
   
End Sub

Damit erhälst Du dann das OS,die Notes Version, Version von Word,Excel und Powerpoint

Ich habe mir z.Bsp. die Infos in meine Mail-DB senden lassen und dann eine Ansicht mit eingebaut.

nur ein Vorschlag


bye
Hardy