Bilgisayar Host ve Kullanıcı Adını Öğrenmek

Bu örnekte bilgisayarın host ve kullanıcı adını öğreneceğiz. Formunuza 1 adet Button ekleyin. Aşağıdaki şekli inceleyin.

Şekil 1

Public Class Form1

    Sub Get_Bilgi()

        Dim HostAd As String
        Dim KullaniciAd As String

        ’ Host Adı / Bilgisayar Adı

        HostAd = Environ$("computername")

        ’ Kullanıcı Adı

        KullaniciAd = Environ$("username")
        MsgBox("Kullanıcı Adı: " & KullaniciAd & vbCrLf & "Host Adı: " & HostAd)

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Get_Bilgi()
    End Sub
End Class

Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN