Domino 9 und frühere Versionen > ND8: Administration & Userprobleme

Notes 802 Release oder Build Number auslesen?

(1/1)

mcilly:
Guten Morgen zusammen!

Wir haben auf unseren Clients 802 Basic installiert und anschließend FP2 ausgerollt. Nun steht schon FP3 da und wir sind noch nicht mal mit FP2 durch. Wie kann ich denn die genaue Release auslesen, damit ich weiß welche PCs bereits FP2 installiert haben?

Über notes.exe -v bekomme ich den Output über den Patchstand, kann ich das automatisiert übers Netzwerk abfragen?
In der notes.ini steht FaultRecovery_Build=Release 8.0.2 FP3, das würde mir helfen. Aber auch hier die Frage nach einem Automatismus?
Die Build Number in "Software" unter "Systemsteuerung sagt mir folgendes.

802 Standard FP2 (8255)
802 Basic FP2 (8162)
802 Standard FP3 (8255)

Also kann ich aus der Build Number scheinbar nicht den Patchstand auslesen. Kann mir da jemand weiterhelfen?

eknori:
versuche es mal über die Notes API (LS2API) :D


--- Zitat ---Declare Function W32_OSLoadString Lib "nnotes.dll" Alias "OSLoadString" (Byval handle As Integer, _
Byval errNum As Integer, Byval buffer As Lmbcs String, Byval textLen As Integer) As Integer
Const ERR_MASK = &H3FFF

Class NotesAPIError
   
   Private errNum As Integer
   
   Public Sub New(errorNum As Integer)
      Me.errNum = errorNum
   End Sub
   
   Public Function Message As String
      Dim temp As Integer
      Dim result As String
      temp = Me.errNum And ERR_MASK
      result = String$(255, 0)
      temp = W32_OSLoadString(0, temp, result, Len(result))
      Message = result
      
   End Function
   
End Class
--- Ende Zitat ---

aufrufen mit:


--- Zitat ---Sub Click(Source As Button)
   Dim NAE As New NotesAPIError (1)
   Msgbox NAE.Message
End Sub
--- Ende Zitat ---

Das dürfte dir dann zuverlässig die gewünschten Informationen ausgeben

mcilly:
Danke, werde es versuchen.

eknori:
Hier noch eine neue Funktion, die alle möglichen Informationen zun Notes Build ausliest.

Declaration:

--- Code: ---Type BUILDVERSION
MajorVersion As Long
MinorVersion As Long
QMRNumber As Long
QMUNumber As Long
HotfixNumber As Long
Flags As Long
FixpackNumber As Long
Spare(2) As Long
End Type

Declare Function NSFDbOpen Lib "nnotes" Alias "NSFDbOpen" (Byval dbName As Lmbcs String, hdb As Long) As Integer
Declare Function NSFDbClose Lib "nnotes" Alias "NSFDbClose" (Byval hdb As Long) As Integer
Declare Function NSFDbGetMajMinVersion Lib "nnotes" Alias "NSFDbGetMajMinVersion" (Byval hdb As Long, bv As BUILDVERSION) As Integer

--- Ende Code ---

Aufruf:

--- Code: ---Sub Click(Source As Button)
Dim dbHandle As Long
Dim ServerName As String
Dim dbName As String
ServerName = "dewvarc01/witte/de"
dbName = "names.nsf"
Dim BV As BUILDVERSION
Dim db As New NotesDatabase ( ServerName, dbName )
Call NSFDbOpen ( ServerName +"!!" + dbName, dbHandle)
If dbHandle <> 0 Then
Call NSFDbGetMajMinVersion ( dbHandle, BV )
End If
NSFDbClose dbHandle
End Sub
--- Ende Code ---

in BV gibt dann die Informationen gem. TYPE declaration zurück.

Navigation

[0] Themen-Index