Überprüfung, ob bestimmte Lizenz vorhanden ist (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung)

Autor	Thema: Überprüfung, ob bestimmte Lizenz vorhanden ist (1347 mal gelesen)
Ex-Mitglied Beiträge: 4755 Registriert: 27.09.2000 Dell precision M4300, 4GB Arbeitsspeicher NVidia FX360M Windows XP professional SP3 CATIA V5 R16SP9, R17SP8, R18SP8, R19SP4 Adobe Acrobat 8 Linux: Ubuntu 8.04LTS	erstellt am: 18. Jan. 2006 10:23 <-- editieren / zitieren --> Unities abgeben: Hallo zusammen, für ein größeres Programmierprojekt muß ich abfragen ob eine bestimmte Lizenz vorhande ist. Im Augenblick sieht mein Code so aus (Ausschnitt): Dim CATIAKonfig As SystemConfiguration Set CATIAKonfig = CATIA.SystemConfiguration CATIAKonfig.GetProductNames NameArray Leider kommt beim Testlauf eine Fehlermeldung: Function or interface marked as restricted, or the function uses an Automation type not supported in VisaulBasic. Gekennzeichnet ist "GetProductNames". Ich habe auch den Originalcode aus der Hilfe ausprobiert, leider mit dem gleichen Ergebnis... Über andere Abfragen der Systemkonfiguration wird nicht gemosert.. Kann mir jemand einen Tipp geben, wie ich die Abfrage hinbekomme? Viele Grüße CEROG ------------------ Inoffizielle Linux-Hilfeseite Meine Firma Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Ex-Mitglied Beiträge: 4755 Registriert: 27.09.2000 Dell precision M4300, 4GB Arbeitsspeicher NVidia FX360M Windows XP professional SP3 CATIA V5 R16SP9, R17SP8, R18SP8, R19SP4 Adobe Acrobat 8 Linux: Ubuntu 8.04LTS	erstellt am: 18. Jan. 2006 12:08 <-- editieren / zitieren --> Unities abgeben: Nur für CEROG Hallo zusammen, ein Nachtrag: Bei R16SP1 wird über die anderen Angaben bei SystemConfiguration nicht gemosert. Bei R15 leider schon. Da ich an einen Einsatz bei einer niedrigeren Version denke, muß ich mir was anderes überlegen, um diese Informationen abzufragen... Viele Grüße, CEROG ------------------ Inoffizielle Linux-Hilfeseite Meine Firma Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
tomtom1972 Mitglied dipl ing maschinenbau Beiträge: 605 Registriert: 22.03.2005 NVidia Quadro K4000 Intel Xeon E5-1620, 64GB RAM Windows10 64bit R30 <= CATIA V5 > =R19	erstellt am: 18. Jan. 2006 12:54 <-- editieren / zitieren --> Unities abgeben: Nur für CEROG Hallo, du musst zuerst die Grösse des Arrays (bei dir NameArray) bestimmen, dann läuft es in den Releases 14-16. U.s. Code gibt dir aus, welche Lizenzen angezogen sind. Language="VBSCRIPT" Sub CATMain() Set oCatiaConfig = Catia.SystemConfiguration ReDim aLizenzArray(oCatiaConfig.ProductCount - 1) oCatiaConfig.GetProductNames aLizenzArray For x = 0 To UBound(aLizenzArray) If oCatiaConfig.IsProductAuthorized(aLizenzArray(x)) Then sMsgBox = aLizenzArray(x) & vbLf & sMsgBox End If Next MsgBox sMsgBox, 64, "Lizenz vorhanden für" End Sub ------------------ tomtom1972 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Ex-Mitglied Beiträge: 4755 Registriert: 27.09.2000 Dell precision M4300, 4GB Arbeitsspeicher NVidia FX360M Windows XP professional SP3 CATIA V5 R16SP9, R17SP8, R18SP8, R19SP4 Adobe Acrobat 8 Linux: Ubuntu 8.04LTS	erstellt am: 18. Jan. 2006 14:15 <-- editieren / zitieren --> Unities abgeben: Nur für CEROG Hallo tomtom, ich hab deinen Code ausprobiert. Er läuft sowohl mit VBScript als auch mit VBA. Es läuft auch in meinem Code. Sobald ich aber anfange, meine Namen einzubauen, läuft es nicht mehr. Dann muß ich wohl mal sehen, daß ich andere Namen verwende... Danke. Viele Grüße, CEROG ------------------ Inoffizielle Linux-Hilfeseite Meine Firma Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Ex-Mitglied Beiträge: 4755 Registriert: 27.09.2000 Dell precision M4300, 4GB Arbeitsspeicher NVidia FX360M Windows XP professional SP3 CATIA V5 R16SP9, R17SP8, R18SP8, R19SP4 Adobe Acrobat 8 Linux: Ubuntu 8.04LTS	erstellt am: 18. Jan. 2006 14:29 <-- editieren / zitieren --> Unities abgeben: Nur für CEROG Hallo zusammen. Ich habe den Fehler gefunden: Es lag an der Dim-Anweisung. Viele Grüße, CEROG ------------------ Inoffizielle Linux-Hilfeseite Meine Firma Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
tomtom1972 Mitglied dipl ing maschinenbau Beiträge: 605 Registriert: 22.03.2005 NVidia Quadro K4000 Intel Xeon E5-1620, 64GB RAM Windows10 64bit R30 <= CATIA V5 > =R19	erstellt am: 18. Jan. 2006 16:12 <-- editieren / zitieren --> Unities abgeben: Nur für CEROG Hallo, aus Neugierde: was heisst in dem Zusammenhang andere Namen verwenden? Kannst du die aufgelisteten Lizenzen mit eigenen Namen versehen, die aussagekräftiger sind? TomTom ------------------ tomtom1972 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Ex-Mitglied Beiträge: 4755 Registriert: 27.09.2000 Dell precision M4300, 4GB Arbeitsspeicher NVidia FX360M Windows XP professional SP3 CATIA V5 R16SP9, R17SP8, R18SP8, R19SP4 Adobe Acrobat 8 Linux: Ubuntu 8.04LTS	erstellt am: 18. Jan. 2006 16:23 <-- editieren / zitieren --> Unities abgeben: Nur für CEROG Hallo tomtom, das mit dem Namen bezog sich auf den Objektnamen. War aber falsch. Wär ja noch schöner, wenn jeder die Produktnamen für die einzelnen Lizenzen nach Lust und Laune ändern könnte. Aber vielleicht geht es ja doch, schließlich ist hier ja ziemlich viel einstellbar... Viele Grüße, CEROG PS: Den anderen Beitrag habe ich eben gelöscht. War dir ja eh peinlich. ------------------ Inoffizielle Linux-Hilfeseite Meine Firma Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)