| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: mac-address im Firmennetzwerk (1115 mal gelesen)
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 27. Feb. 2015 11:49 <-- editieren / zitieren --> Unities abgeben:
Hallo! Ich habe die Aufgabe in einem Firmennetzwerk eine Lisp-applikation zu schützen. Dabei kam hier im Forum schonmal der Beitrag zur Ethernet mac-address. Nun bin ich leider kein Netzwerkexperte, nur soviel, dass die Adresse für Hardware- und Netzwerkaustausch in irgendeiner Form von Bedeutung ist. Geb ich also mal die Anweisung ipconfig /all in die Windowskonsole ein, wird sie mir angezeigt. Was mich jetzt interessieren würde, ob die in irgendeiner Form Gleichnisse mit andern Firmencomputer enthält ? Schlussendlich verfolge ich den Gedanken, den Schutz ganz simpel und nicht manipulierbar zu integrieren, indem ich sage: alle Rechner die im Firmennetzwerk eigeloggt sind, können die Applikation anwenden. ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 27. Feb. 2015 11:56 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 27. Feb. 2015 12:11 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 27. Feb. 2015 12:31 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
(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 ) oder : (defun DT:SYSINFO?( STRING / SCRIPTOBJ DUMMY LISTE) (defun DT:STR-DIVS(STRING SEPARATOR / POS OFFSET LISTE) (if(and(=(type STRING) 'STR)(=(type SEPARATOR) 'STR)) (progn (setq POS (vl-string-search SEPARATOR STRING)) (setq OFFSET (1+(strlen SEPARATOR))) (while POS (setq LISTE (cons (substr STRING 1 POS) LISTE) STRING (substr string (+ POS OFFSET)) POS (vl-string-search SEPARATOR STRING) ) ) (reverse (cons STRING LISTE)) ) ) ) (if(and(=(type STRING)'STR) (not(vl-catch-all-error-p (setq SCRIPTOBJ(vl-catch-all-apply 'vlax-create-object (list "wbemScripting.SwbemLocator") ) ) ) ) (=(type SCRIPTOBJ)'VLA-OBJECT) ) (progn (and(not(vl-catch-all-error-p (setq DUMMY(vl-catch-all-apply 'vlax-invoke (list SCRIPTOBJ 'ConnectServer "." "root\\CIMV2" ) ) ) ) ) (=(type DUMMY)'VLA-OBJECT) (setq DUMMY(vlax-invoke DUMMY 'ExecQuery STRING ,,48)) (=(type DUMMY)'VLA-OBJECT) (vlax-for ITEM DUMMY (if(and(not(vl-catch-all-error-p (setq TEXT(vl-catch-all-apply 'vlax-invoke (list ITEM 'GetObjectText_ 1) ) ) ) ) (=(type TEXT)'STR) (setq SUBLISTE(vl-remove-if 'null (mapcar '(lambda(X / POS) (if(setq POS (vl-string-search "=" X)) (list (strcase(vl-string-trim " \t"(substr X 1 POS))) (vl-string-trim " \t"(substr X (+ POS 2))) ) ) ) (DT:STR-DIVS TEXT "\n") ) ) ) ) (setq LISTE (cons SUBLISTE LISTE)) ) ) ) (vlax-release-object SCRIPTOBJ) ) ) LISTE ) (defun SHOWINFO (LISTE / DESC VALUE) (if(=(type LISTE)'LIST) (foreach ENTRY LISTE (if(and(=(type(setq DESC (car ENTRY)))'STR) (=(type(setq VALUE(cadr ENTRY)))'STR) (setq VALUE(vl-string-trim " \";" VALUE)) ) (progn (repeat (- 35 (strlen DESC)) (setq DESC(strcat DESC " "))) (princ(strcat "\n" DESC ": " VALUE)) ) ) ) ) )
und dann (defun C:NETWORK?() (foreach INFO (DT:SYSINFO? "SELECT * FROM Win32_NetworkAdapterConfiguration") (SHOWINFO INFO) ) (foreach INFO (DT:SYSINFO? "SELECT * FROM Win32_NetworkAdapter") (SHOWINFO INFO) ) (princ) ) sollte was bei sein ... ------------------ 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 |
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 27. Feb. 2015 12:41 <-- editieren / zitieren --> Unities abgeben:
Ich find´s immer wieder toll, wie so schnell was hinknallst und man fast vom Stuhl fällt Mein Wunsch wäre auch erstmal fündig zu werden, nur wo fängt man an zu suchen, wenn das nicht zu viel des Guten wäre, vielleicht mal eine QuelleVielen Dank! ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 27. Feb. 2015 12:45 <-- editieren / zitieren --> Unities abgeben:
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 28. Feb. 2015 09:31 <-- editieren / zitieren --> Unities abgeben:
Eine Frage zur UserDomain-Angabe. Ich habe es wahrscheinlich falsch interpretiert. Ich habe eben festgestellt, dass eigentlich jeder Rechner eine UserDomain-Angabe hat, egal ob er in einem Firmennetzwerk hängt oder auch einen Internet-Connection hat. Was steckt hinter der Eigenschaft "UserDomain" und woher wurde sie installiert (Windowsintern?). Gruss Dirk Spendet für Adolf [Diese Nachricht wurde von cadplayer am 28. Feb. 2015 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |