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

• Fire/SOUL/CD félisten

  #6989

  #6988 Oly

  2010-04-27 14:10:37

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  #6988 Oly

  #6988 Oly

  Az előzőt sikerült megoldanom. Egyszerű jelszavazással.

  Viszont az nbk által feltett kérdés válasza engem is érdeklene. kraftxld válasza nem volt valami lényegre törő.

  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.

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