N° pc

[justine]

bonsoir et bonne et heureuse année a tout le monde

pour eviter que mon application ne soit deplacé sur tous les pc de mon travail, je mets en ouverture d'application, une recherche du n° du pc ou de son nom. s'il ne correspond pas, l'ouverture de l'application de n'effectue pas, c'est que ce dernier a ete deplacé ou copier.

mais comment recherche t'on ce renseignement???

merci

 

[JCGL]

Re : N° pc

Bonjour à tous,
Salut Justine,

Pour le N° de PC : s'agit-il de l'IP
Pour le Nom : s'agit-il du UserName

A+ à tous

 

[fhoest]

Re : N° pc

bonsoir justine,jcbl

If Application.UserName <> "le nom de l'utilisateur" Then Exit Sub

A+

 

[justine]

Re : N° pc

re le forum, JCGL, fhoest
pour ta question JCGL, je ne sais pas si le pc a un IP fixe ou pas, donc je pense que je vais plutot pencher sur le nom du pc?

fhoest, je vais essayer ta solution

merci a vous deux

 

[justine]

Re : N° pc

merci beaucoup

 

[JCGL]

Re : N° pc

Bonjour à tous,

Pour le UserName :

Option Explicit
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Const NoError = 0

Function GetUserName()
     Const lpnLength As Integer = 255
     Dim status As Integer
     Dim lpName, lpUserName As String
     lpUserName = Space$(lpnLength + 1)
     status = WNetGetUser(lpName, lpUserName, lpnLength)
     If status = NoError Then
          lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
     Else
          MsgBox "Impossible d'obtenir le login."
          End
     End If
     GetUserName = lpUserName
End Function

Pour l'IP :

Option Explicit

Sub TrouveIP()
 MsgBox "L'adresse IP de ce poste est : " & IP_Adresse()
 
End Sub

Function IP_Adresse()
  'M.Pierron MPFE
  Dim ws As Object, fso As Object, Env As Object, ts As Object
  Dim wFile As String, IP As String

  Set ws = CreateObject("WScript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Env = ws.Environment("PROCESS")
  If Env("OS") = "Windows_NT" Then
    wFile = fso.gettempname
    ws.Run "%comspec% /c ipconfig > " & wFile, 0, True
  Else
    wFile = "winipcfg.out"
    ws.Run "winipcfg /batch", 0, True
  End If
  Set ws = Nothing
  Set ts = fso.opentextfile(wFile)
  Do While Not ts.AtEndOfStream
    IP = ts.Readline
    If InStr(1, IP, "Adresse IP", 1) <> 0 Then
      IP = Right(IP, Len(IP) - InStr(1, IP, ":", 1) - 1)
      IP_Adresse = Left(IP, Len(IP) - 1)
      Exit Do
    End If
  Loop
  ts.Close
  Set ts = Nothing
  fso.deletefile wFile
  Set fso = Nothing
End Function

A+ à tous

 

[justine]

Re : N° pc

bonjour le forum, JCGL
desolée, je viens de m'appercevoir que tu m'avais repondu apres mes remerciements.
je te remercie pour tes recherches

 

[kiki29]

Re : N° pc

Salut, pour le nom de logging il y a

Function GetUserName()
    GetUserName = Environ("USERNAME")
End Function

 

[justine]

Re : N° pc

bonsoir kiki29
je prends aussi note de ta solution
merci