| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: ID abfragen (878 / mal gelesen)
|
mundal Mitglied Techniker
Beiträge: 320 Registriert: 14.02.2005
|
erstellt am: 30. Mrz. 2017 15:05 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 30. Mrz. 2017 15:27 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 30. Mrz. 2017 15:29 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
Grundsätzlich: Ja Wenn dir bekannt ist wo die Daten stehen, dann wird sich auch ein Weg finden diese auszulesen. Umgebungsvariablen Registry isw. Der Computername ist zum Beispiel eine Umgebungsvariable, die bekommst du einfach mit (getenv "computername") oder über Wscript / Network (vlax-get-property(vlax-create-object "WScript.Network") "ComputerName") PS: Man darf aber auch die Hintergründe zu einem Thread erzählen, dann bekommt man ab und an mehr Infos und ggf. auch passendere zur Aufgabe. ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mundal Mitglied Techniker
Beiträge: 320 Registriert: 14.02.2005
|
erstellt am: 30. Mrz. 2017 15:50 <-- editieren / zitieren --> Unities abgeben:
Klar dürft ihr den Hintergrund wissen. Wir wollen die LISP bzw. VLX-Programme schützen bzw. an einen PC binden. Eine Idee dafür wäre die Programme über Abfrage von PC Komponenten zu schützen. Gruß Joachim Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 30. Mrz. 2017 16:02 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
|
mundal Mitglied Techniker
Beiträge: 320 Registriert: 14.02.2005
|
erstellt am: 30. Mrz. 2017 16:07 <-- editieren / zitieren --> Unities abgeben:
|
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 30. Mrz. 2017 16:15 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
... grundsätzlich benötigst du dann auch eine Liste der gültigen PC-Komponenten. Diesen Aufwand würde ich scheuen. Ich kann dir empfehlen, dich an den Domain-Namen zu hängen, der sollte in aller Regel über die Jahre fix sein. Noch leichter, ohne die ganze Hardware-Abfragerei, wäre das Prüfen auf Vorhandensein einer Datei, die auf einem Eurer Server liegt - UNC-Pfad reich ja, so dass der Ablagepfad den Anwendern auch nicht bekannt ist. Wenn in der Datei zur weiteren Prüfung eine wirre Zeichenkette gespeichert und mit dem Tool verglichen wird ... dann ist es aus meiner Sicht für die Zwecke sicher. Soweit meine Gedanken dazu ... wenn du jedoch eine flexible, professionelle Nutzungsverwaltung benötigst, dann kannst du dich auch gerne an mich wenden. Wir haben unsere eigene LizenzCloud entwickelt, die auch in Lisp-Tools eingebunden werden kann, inklusive Online-Verwaltung, Freischaltung der verschiedenen Lizenzvarianten. Grüße! Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen.
defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mundal Mitglied Techniker
Beiträge: 320 Registriert: 14.02.2005
|
erstellt am: 30. Mrz. 2017 16:31 <-- editieren / zitieren --> Unities abgeben:
Danke für die Infos und Anregungen. Wir wollen es nicht aufwändig machen - nur ein Minimalschutz. Ich denke wir werden eine der genannten Vorschläge nehmen. Nochmals Herzlichen Dank für Eure schnellen Antworten. Gruß Joachim Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1455 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 30. Mrz. 2017 21:30 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
Hallo mundal, ich hatte mal für meinen "Programmschutz" das hier bekommen. War hier im Forum, ist schon lange her und ich weis auch nicht mehr von wem. Trotzdem nochmal danke dafür. Vielleicht hilfts weiter. Code: (defun get_drives_list (/ vla-FileObj drives drive drivePath drives_list volumeName serialNumber ) ;;; Liste aller Laufwerke mit Info über Laufwertyp, Name, SerialNumber (vl-load-com) (setq vla-FileObj (vlax-create-object "Scripting.FileSystemObject")) (setq drives (vlax-get-property vla-FileObj 'Drives)) (vlax-for drive drives (setq drivePath (vlax-get-property drive 'Path)) (setq driveType (vlax-get-property drive 'DriveType)) (cond ((= driveType 0) (setq driveType "Unbekannt")) ((= driveType 1) (setq driveType "Austauschbar")) ((= driveType 2) (setq driveType "Fest")) ((= driveType 3) (setq driveType "Netzwerk")) ((= driveType 4) (setq driveType "CD-ROM")) ((= driveType 5) (setq driveType "RAM-Laufwerk")) ) (if (vl-catch-all-error-p (setq volumeName (vl-catch-all-apply 'vlax-get-property (list drive 'VolumeName) ) ) ) (setq volumeName "") ) (if (vl-catch-all-error-p (setq serialNumber (vl-catch-all-apply 'vlax-get-property (list drive 'SerialNumber) ) ) ) (setq serialNumber nil) ) (setq drives_list (append drives_list (list (list (strcase drivePath) driveType volumeName serialNumber) ) ) ) ) drives_list )
------------------ Geht nicht, gibts nicht Gruß Andreas http://kraus-cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |