İşinize yarar diye düşünüyorum
Kolay gelsin
[vb:1:aa211027a4]
Sub KullaniciAdi()
Dim WscNetwork As Object
Set WscNetwork = CreateObject("WScript.Network")
yol = "\\" + WscNetwork.computerName
MsgBox yol
Set WscNetwork = Nothing
End Sub
[/vb:1:aa211027a4]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.