Prikazi cijelu temu 06.10.2015 14:31
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:User Name & Local PC Name API
nikako da na forumu nadem proceduru za ispis User name
nasao sam samo ovu proceduru informacije sistema

pozivamo sa Imekorisnika= InfoSis(broj) i kada unesem broj 6 (COMPUTERNAME=comp) isto mi pokaze kao i za broj 27 (USERNAME=username), a meni se razlikuje to dvoje.
Moze se jednostavno preko winsock1.localNeme i winsock1.LocalIP ali govore da bi trebalo to izbjegavati, neznam zasto?
Mene zanima ima li nekakva APi funkcija za to.

ovo sam nasao na internetu:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  2.  
  3. Declare Function LookupAccountName Lib "advapi32.dll" Alias "LookupAccountNameA" (lpSystemName As String, ByVal lpAccountName As String, sid As Any, cbSid As Long, ByVal ReferencedDomainName As String, cbReferencedDomainName As Long, peUse As Long) As Long
  4.  
  5. Private Sub Form_Load()
  6.      Dim sDomainName As String * 255
  7.      Dim lDomainNameLength As Long
  8.      Dim sUserName As String
  9.      Dim bUserSid(255) As Byte
  10.      Dim lSIDType As Long
  11.  
  12.     ' Create a buffer
  13.    sUserName = String(100, Chr$(0))
  14.  
  15.     ' Get the username
  16.     GetUserName sUserName, 100
  17.  
  18.     'strip the rest of the buffer
  19.    sUserName = Left$(sUserName, InStr(sUserName, Chr$(0)) - 1)
  20.  
  21.      ' Show the temppath and the username
  22.     MsgBox "Hello " + strUserName
  23.  
  24.      lResult = LookupAccountName(vbNullString, sUserName, bUserSid(0), 255, sDomainName, lDomainNameLength, _
  25.   lSIDType)
  26.     If lResult <> 0 Then
  27.        MsgBox sDomainName
  28.     End If
  29. End Sub
ali mi javlja gresku ovdje:

Declare Function LookupAccountName Lib "advapi32.dll" Alias "LookupAccountNameA" (lpSystemName As String, ByVal lpAccountName As String, sid As Any, cbSid As Long, ByVal ReferencedDomainName As String, cbReferencedDomainName As Long, peUse As Long) As Long
zivot je moja domovina.