Api ile Bilgisayar Adını Bulma

Api ile Bilgisayar Adını Bulma, Excel VBA kodları ile bilgisayarınızın adının kolayca bulunmasını içeren makro kodları içermektedir.

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
        (ByVal lpBuffer As String, nSize As Long) As Long
       
Declare Function GetUserName Lib "ADVAPI32.DLL" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Const MAX_COMPUTERNAME_LENGTH = &H15

Function NomMachine() As String

Dim tempStr As String * MAX_COMPUTERNAME_LENGTH
Dim nbcar As Long

    nbcar = MAX_COMPUTERNAME_LENGTH + 1
    GetComputerName tempStr, nbcar
    NomMachine = Left$(tempStr, nbcar)

End Function

Function UserName()
Dim S As String
Dim N As Long
Dim Res As Long

    S = String$(200, 0)
    N = 199
    Res = GetUserName(S, N)
    UserName = Left(S, N - 1)

End Function

Sub test()
    MsgBox NomMachine
    MsgBox UserName
End Sub

Uygulama Adımları

1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açılmalıdır.
2. Project – VBAProject alanının, ekranın sol tarafında görüldüğünden emin olunmalıdır. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açılmalıdır.
3. Araç çubuklarından Insert -> Module yazısı tıklanmalıdır.
4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklanmalıdır.
5. Alt kısma eklene Module(1) yazısına çift tıklanmalıdır.
6. Üstteki kod yapıştırılmalıdır.

Api ile Bilgisayar Adını Bulma – Kod Açıklaması

Üstteki kodları çalıştırdıktan sonra alttaki görüntü elde edilecektir.

Tek başına anlamı olmasa da, yazdığınız kodlarda üstteki bilgilere ihtiyaç duyarsanız, bu hazır makrolar size yol gösterici olacaktır. Bu API’ler 64 bir sürümlerde çalışmamaktadır.