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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.