Mot de passe et IP

[christiangeorges]

Bonjour à toutes et tous,

J'ai créé un logiciel sur Excel et je cherche le moyen d'éviter qu'il se propage sans autorisation.
J'aimerais lier l'adresse 'IP' de l'utilisateur pour en faire un code unique.
Ma question ! L'adresse IP sur les mails reçus, est elle bien celle du PC de l'expéditeur ?
L'idée est simple, avant ouverture du classeur je compare l'IP du PC avec l'IP récupérée sur le mail de l'expéditeur, (cette derniere étant simplement reportée dans une cellule du classeur).

Merci d'avance et cordialement
Chriss

 

[Creepy]

Bonjour le Forum, christiangeorges,

En faites tu veux comparer l'IP que tu auras reçu par mail auparavant avec l'adresse IP de la Becane qui lancera ton appli?

Si c'est bien ca j'ai une petite question :

Comment gère tu les ordinateurs en IP dynamique ? C'est à dire les ordinateurs qui changent d'adresse IP à chaque démarrage ?

Enfin moi je dis ca je dis rien :side:

@+

Creepy

PS : Dans le cas ZOP ne pas tenir compte de ma question lol

 

[christiangeorges]

Re à tous,

C'est justement là mon probleme ! comment faire la différence ?

Je ne trouve pas de solution simple à mettre en place.

Ou alors il faut que je demande directement à l'utilisateur de me donner son ip.

Je tourne un peu en rond avec ça !

Cordialement à tous
Chriss

 

[excalibur]

bonjour christiangeorges Creepy le forum j ai trouve cela sur un autre site le nom de l ordinateur + ip si tu peus faire quelque chose avec ca salutations Nom de l'ordinateur

Private declare function GetComputername Lib 'kernel32' _ Alias 'GetComputernameA' (ByVal lpBuffer As String, nSize As long) As long

function ReturnComputername() As String
dim rString As String * 255, sLen As long, tString As String
tString = ''
On Error Resume next
sLen = GetComputername(rString, 255)
sLen = InStr(1, rString, Chr(0))
if sLen > 0 then
tString = Left(rString, sLen - 1)
Else
tString = rString
end if
On Error Goto 0
ReturnComputername = UCase(Trim(tString))
end function

IP de l'ordinateur

Private declare function apiGetComputername Lib 'kernel32' Alias _
'GetComputernameA' (ByVal lpBuffer As String, nSize As long) As long

Sub Display_UserIP()
msgbox fOSMachinename
end Sub

function fOSMachinename() As String
dim lngLen As long
dim lngX As long
dim strCompname As String
lngLen = 16
strCompname = String$(lngLen, 0)
lngX = apiGetComputername(strCompname, lngLen)
if lngX <> 0 then
fOSMachinename = Left$(strCompname, lngLen)
Else
fOSMachinename = ''
end if
end function

 

[christiangeorges]

Bonsoir le forum, et merci pour vos infos.
Ci-joint le fichier zippé, j'arrive à extraire des infos concernant la version d'exc²ell, l'ip, le nom d'utilisateur.

Mon intention est de faire exécuter ces macros par l'utilisateur final et optenir ainsi la seule chose qui m'interresse : l'IP.

j'arrive à rendre le résultat par msgbox, déjà, pour moi, un gros travail. !

J'aimerais maintenant int'grer dans mon classeur (dans une cellule) cette information.

Je comparerai ensuite l'adresse IP lue avec l'adresse IP que j'aurais entré dans une feuille.

Si identique ouverture du classeur, si différent ... fermeture.

Si vous ne pouvez m'aider, au moins que vous puissiez utiliser cette petite démo.
Bien amicalement
Chriss

 

[christiangeorges]

RE merci Crespy, effectivement, tu as raison, aussi je vais pratiquer en envoyant au client la macro zippée ci dessus, ce sera plus sur.

Excellement votre