Új hozzászólás Aktív témák

• #6989 Fire/SOUL/CD félisten Oly #6988

  Új Válasz 2010-04-27 14:10:37 #6989

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Oly #6988 üzenetére

  Hali!

  Nem tudom, hogy egy ennyire egyszerű "azonosítás" megfelelne-e. Futtasd a makrót és láthatod, hogy milyen infókat tudsz lekérni ill. azok mit adnak vissza. Ha elég pl a számítógép neve és felhasználó alapján is loggolni, akkor megfelelhet.

  Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  
  Private Sub CommandButton1_Click()
  List_All_Environ_info
  End Sub
  
  Function List_All_Environ_info() As String
  Dim Counter As Integer
  Counter = 1
  Do Until Environ(Counter) = ""
  Cells(Counter, 1).Value = Environ(Counter)
  Counter = Counter + 1
  Loop
  End Function

  Fire.

  [ Szerkesztve ]

  Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Új hozzászólás Aktív témák