marionsname

je ne cherche pas à protéger le lisp, mais plutot mes données et mes dessins qui sont une propriété personnelle. je suis entièrement d'accord sur le principe du partage si c'était que du lisp qui permet de faciliter telle ou telle tache, et même dans ce cas il y a des limites. Si par exemple Patrick_35 décide de commercialiser les lisp qu'il a posté gratuitement qui pourra lui en vouloir ?!!! ce que je cherche à protéger sont des blocs au moyen du lisp, voilà. merci

pas sorti de l'auberge

j'ai exécuté IPCONFIG /all >info.txt sur le même PC qui n'est pas connecté à INTERNET. le fichier info contient uniquement ceci "IP configuration de Windows" si l'IP ne s'affiche que sur les PC connecté à INTERNET c'est une limitation qui me décourage sur cette piste. Merci

est-ce qu'il y a un moyen d'obtenir ça directement sur le registre sans passer par le shell - - - > IPCONFIG /all >INFO.txt Merci

avec (defun c:IPP ( / ) (setq ip (ipaddress)) ) ça donne nil comme résultat. je l'ai testé sur un ordinateur qui n'est pas connecté à INTERNET. est-ce que ça a un rapport ? Merci

salut, je n'ai pas compris comment faire fonctionner cette fonction, une fonction defun c: avec comme résultat cet IP serait mieux. Merci de votre aide Patrick_35

S'il te plait Patrick_35 un peu plus de précision. qu'est ce que tu veux dire par IP ? est-ce l'identifiant dont tu avais parlé plus haut ? si c'est oui alors cet identifiant est variant, c'est windows qui le définit à chaque réinstallation du système d'exploitation. si c'est autre chose je voudrais que tu m'éclaircisse davantage. merci

ouai, quelque chose comme ça

je reste sur ma faim... il me semble pourtant pas trop difficile d'extraire ce genre de numéro du matériel. Moi qui ne maitrise pas le lisp, je suis pas qualifié pour en juger. il vaut mieux peut etre voir du coté des forums de windows. merci patrick_35

C'est pour personnaliser l'installation d'un lisp. il me faut queque un numéro unique et invariant propre à la machine. Merci

Merci pour ta réponse, si je comprends bien cet identifiant est donné par windows au cours de l'installation. donc si je réinstalle windows, et le cas échéant si je formate ou si je repartitionne mon ddur, ce nom va certainement changer. si tel est le cas ça ne résoud pas le problème. si tu peux m'éclairer davantage si je me trompe. merci

salut, je cherche comment extraire le n° de serie du hardware (disc dur, ram...) en cherchant j'ai trouvé ceci ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;VxGetDriveInfos - Returns informations from the selected drive ; ; -- Function VxGetDriveInfos ; Returns informations from the selected drive. ; Copyright: ; ©2001 MENZI ENGINEERING GmbH, Switzerland ; Arguments [Typ]: ; Drv = Drive character, eg. "C" or "C:" [sTR] ; Return [Typ]: ; > Drive infos '(TotalSize FreeSpace DriveType FileSystem SerialNumber ; ShareName VolumeName) ; Explanations: ; - TotalSize (kB) [REAL] ; Returns the total space of a drive or network share. ; - FreeSpace (kB) [REAL] ; Returns the amount of space available to a user on the specified drive ; or network share. ; - DriveType [iNT] ; 0 = "Unknown" ; 1 = "Removable" ; 2 = "Fixed" ; 3 = "Network" ; 4 = "CD-ROM" ; 5 = "RAM Disk" ; - FileSystem [sTR] ; Returns the type of file system in use for the specified drive, eg. ; "FAT", "NTFS", "CDFS". ; - SerialNumber [iNT] ; Returns the serial number used to uniquely identify a disk volume. ; - ShareName [sTR] ; Returns the network share name (UNC) for the specified drive. If it's ; not a network drive, ShareName returns a zero-length string (""). ; - VolumeName [sTR] ; Returns the volume name of the specified drive. ; > 0 The drive doesn't exist. ; > -1 The drive is not ready. For removable-media drives and CD-ROM drives, ; VxGetDriveInfos returns -1 when the appropriate media is not inserted ; or not ready for access. ; Notes: ; - Requires ScrRun.dll (see also notes at top of page). ; ;DrvObj FilSys RetVal (defun Drvinfos (Drv / ) (setq FilSys (vlax-create-object "Scripting.FileSystemObject") RetVal (cond ((= (vlax-invoke FilSys 'DriveExists Drv) 0) 0) ((setq DrvObj (vlax-invoke FilSys 'GetDrive Drv)) (cond ((= (vlax-get DrvObj 'IsReady) 0) -1) ((list (/ (vlax-get DrvObj 'TotalSize) 1000.0) (/ (vlax-get DrvObj 'FreeSpace) 1000.0) (vlax-get DrvObj 'DriveType) (vlax-get DrvObj 'FileSystem) (vlax-get DrvObj 'SerialNumber) (vlax-get DrvObj 'ShareName) (vlax-get DrvObj 'VolumeName) ) ) ) ) ) ) (if DrvObj (vlax-release-object DrvObj)) (vlax-release-object FilSys) RetVal ) quand j'utilise cette fonction (drvinfos "c:") ça me donne un n° de série pour c mais quand je formate mon dd plus le même serial. ça veut dire quoi ? que c'est le n° de serie donné par windows ? sinon y-a t il d'autre moyen pour extraire le n° de série du matériel (inchangeant) je me demande si celà est possible. merci