---

Hallo!
Gibt es eine Möglichkeit die derzeit aktuell verwendete Konfiguration abzufragen?
Ist zwar nicht zwingend notwendig, aber in Supportfällen manchmal doch ganz praktisch.
Danke und Gruss

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Über CATIA.SystemConfiguration müsste es gehen

Aus der ‘V5Automation.chm’ :

Dim SystemConfiguration1 As SystemConfiguration
Set SystemConfiguration1 = CATIA.SystemConfiguration
ReDim NameArray(SystemConfiguration1.ProductNamesCount)
SystemConfiguration1.GetProductNames NameArray
MsgBox "IsProductAuthorized for product " & NameArray(0) & "  returns " & SystemConfiguration1.IsProductAuthorized(NameArray(0))

------------------
- Robert

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Irgendwie hat er Probleme mit GetProductNames..
Bekomme immer folgende Fehlermeldung ;(
Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden oder verwendet einen Typ der Automatisierung, der von VB nicht unterstützt wird.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Womit mal wieder bewiesen ist das man NIE was direkt aus der 'V5Automation.chm' kopieren sollte

Dim NameArray()
Dim SystemConfiguration1 As SystemConfiguration
Set SystemConfiguration1 = CATIA.SystemConfiguration
ReDim NameArray(SystemConfiguration1.ProductCount-1)
SystemConfiguration1.GetProductNames NameArray
MsgBox "IsProductAuthorized for product " & NameArray(0) & "  returns " & SystemConfiguration1.IsProductAuthorized(NameArray(0))

------------------
- Robert

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dim NameArray() habe ich profilaktisch auch schon eingefügt gehabt.
Bekomme allerdings weiterhin die selbe Fehlermeldung 
ProductCount selber funktioniert und zeigt mir 193 an (auch im Watchdog ersichtlich)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Als CATScript funktioniert das ganze, mit VB kenn ich mich leider zu wenig aus

Neue Version:

Option Explicit

Language="CATSCRIPT"

Sub CATMain()

Dim NameArray()
Dim SystemConfiguration1 As SystemConfiguration
Dim I, A As Integer

Set SystemConfiguration1 = CATIA.SystemConfiguration
A = SystemConfiguration1.ProductCount-1

ReDim NameArray(A)
SystemConfiguration1.GetProductNames NameArray

For I = 0 to A
  If SystemConfiguration1.IsProductAuthorized(NameArray(I))  And right(NameArray(I),3) <> "prd" Then
      MsgBox "aktive Lizenz: " &  NameArray(I) 
  End If
Next

End Sub

------------------
- Robert

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hmm stimmt! Als CATScript funktioniert es. In dem Fall muss ich mal schaun wie ich das in VBA migrieren kann.
Danke!

/edit:
So funktionierts:

Sub CATMain()
    Dim NameArray() As Variant
    Dim SystemConfiguration1
    Dim I, A As Integer
   
    Set SystemConfiguration1 = CATIA.SystemConfiguration
    A = SystemConfiguration1.ProductCount - 1

    ReDim NameArray(A)
    SystemConfiguration1.GetProductNames NameArray

    For I = 0 To A
      If SystemConfiguration1.IsProductAuthorized(NameArray(I)) And Right(NameArray(I), 3) <> "prd" Then
          MsgBox "aktive Lizenz: " & NameArray(I)
      End If
    Next
End Sub

[Diese Nachricht wurde von Maetes am 04. Mai. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

bei mir funktioniert es auch gut.

Nun würde ich gerne auch die Sharable Lizenzen abfragen.
Weiss jemand wie das geht?

------------------
[Umgebung: CATIA V5R18 SP5, V5R19 SP3
  OS: XP64 engl. Version, engl. V5 Benutzeroberflaeche]

  Mit freundlichem Gruss
   Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ich habe etwas vergleichbares gefunden:
Dassault "blendet" dynamische Lizenzen (sharable licenses) für die Handhabung per VBS aus. http://ww3.cad.de/foren/ubb/Forum137/HTML/001669.shtml#000014

=> Wahrscheinlich ist die gewünschte Anzeige daher nicht möglich.

------------------
[Umgebung: CATIA V5R18 SP5, V5R19 SP3
  OS: XP64 engl. Version, engl. V5 Benutzeroberflaeche]

  Mit freundlichem Gruss
   Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

sharable licenses liegen da genauso mit drin, wie alle anderen.
Du kannst halt nur nicht darauf zugreifen.
Abfragen sollte aber schon gehen.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Maetes,

wenn das Makro in VBA laufen soll, schreibst Du

Dim SystemConfiguration1 As Object

anstelle von

Dim SystemConfiguration1 As SystemConfiguration

Viele Grüße,

Michael Kirsch

------------------

www.em.ag

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP