Notes 802 Release oder Build Number auslesen?

[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)

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

aufrufen mit:

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

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

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

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