Computer Name & User Name bulma ??

[baydeniro]

Bilgileri fonksiyon ile bulmak mümkün mü arkadaşlar ?

 

[Zeki Gürsoy]

Bilgileri fonksiyon ile bulmak mümkün mü arkadaşlar ?

Yerleşik fonksiyonlarla bulamazsınız. KTF ile mümkündür.

Function USERNAME()
    USERNAME = Environ("USERNAME")
End Function

Function COMPUTERNAME()
    COMPUTERNAME = Environ("COMPUTERNAME")
End Function

Diğer bilgiler..

Sub System()

Dim Say As Byte, i As Byte

Cells(1, 1) = "ADI": Cells(1, 2) = "TANIM"

For i = 1 To 29
    Say = InStr(1, Environ$(i), "=")
    Cells(i + 1, 1) = Left$(Environ$(i), Say - 1)
    Cells(i + 1, 2) = Mid$(Environ$(i), Say + 1, Len(Environ$(i)) - Say)
Next

End Sub

 

[beab05]

Merhaba;

Yine excel girmiş işin içine

Sub test()
Dim i As Integer
Dim stEnviron As String
For i = 1 To 50        
stEnviron = Environ(i)        
If Len(stEnviron) > 0 Then
Debug.Print i, Environ(i)
Else
Exit For
End If
Next
End Sub

Yukarıdaki prosedur ile düşündüğünüzden çok daha fazla bilgiyi alacaksınız.. Bir module kaydedin ve üstündeyken F5 e basınız.. Immediate penceresinde tüm verileri görürsünüz. Bu pencere yoksa CTRL + G tuşlarına basınız..
Elbette fonksiyon olarak kullanabilirsiniz..

 

[merakli_72]

Arkadaşlar aynı işlemi dahada pratik olarak environ fonsiyonu ilede yapabilirsiniz.(Exceldede)
Environ("COMPUTERNAME") Bilgisayar adını
Environ("USERNAME") Kullanıcı adını
Environ("USERDOMAIN") Domain adını verir

Saygılarımla

 

[beab05]

Merhaba;
Yukarıdaki son yazdığım mesajda zaten kullanılabilecek tüm "environ" ları görüyorsunuz..

 

[alpeki99]

Yalnız environ u kullananlar dikkat etmeli çünkü tüm işletim sistemlerinde aynı parametreler kullanılmıyor.