---

Hallo Zusammen,

lässt sich über LISP oder VL vom PC
die PC ID, Festplatten ID bzw. der PC Name auslesen?

Gruß
Joachim

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

---

Systeminfo.zip

Jain  .. was so geht kannste aus dem angehängten Tool entnehmen ... das nutz
das Scriptobject  "wbemScripting.SwbemLocator" ( mal als Google-Einstieg )

über wscript geht  auch sowas

(defun NETWORK-GETVARS ( / wscript RETURN )
  (cond
    ((setq wscript (vlax-create-object "WScript.Network"))   
      (setq RETURN (list (vlax-get-property wscript "ComputerName")
                          (vlax-get-property wscript "UserDomain")
                          (vlax-get-property wscript "UserName")
                    )  
      )
      (vlax-release-object wscript)
    )
  )
  RETURN
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

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

---

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

---

OT : Warum heißt du denn heute Joachim  ... Hier war es noch Heinz ... ?  ( ich wollt bloß mal gucken, was für Progs ihr so schützen wollt  )

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Eine Firma, mehrere Mitarbeiter

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

---

... 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

---

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

---

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