Computer Name & User Name bulma ??

[arnavut]

Merhaba arkadaşlar,

forumlarda aradım ama bulamadım,
Computer Name ve User Name'i bir query içine yada tablo içerisine nasıl yazdırabiliriz?

 

[modalı]

Sayın arnavut,

Bilgisayar adını aşağıdaki fonksiyonla öğrenebilirsiniz:

Private Declare Function GetComputerName Lib "kernel32" _
    Alias "GetComputerNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long


Function ReturnComputerName() As String
Dim rString As String * 255, sLen As Long, tString As String
    tString = ""
    On Error Resume Next
    sLen = GetComputerName(rString, 255)
    sLen = InStr(1, rString, Chr(0))
    If sLen > 0 Then
        tString = Left(rString, sLen - 1)
    Else
        tString = rString
    End If
    On Error GoTo 0
    ReturnComputerName = UCase(Trim(tString))
End Function

Kullanıcı adını ise

Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function ReturnUserName() As String
' returns the NT Domain User Name
Dim rString As String * 255, sLen As Long, tString As String
    tString = ""
    On Error Resume Next
    sLen = GetUserName(rString, 255)
    sLen = InStr(1, rString, Chr(0))
    If sLen > 0 Then
        tString = Left(rString, sLen - 1)
    Else
        tString = rString
    End If
    On Error GoTo 0
    ReturnUserName = UCase(Trim(tString))
End Function

fonksiyonuyla bulabilirsiniz.

Eğer access in sahibini arıyorsanız:

ActiveUserName = Application.UserName

ile bulabilirsiniz.

İyi çalışmalar

 

[Orion1]

Sayın modalı teşekkür ederim.
Ben bunları denedim.Exceldede kullanabiliyorum.
iyi çalışmalar.

 

[Zeki Gürsoy]

WScript ile almak daha kolaydır.

Bakınız:WScript.Network & WScript.Shell Metot ve Özellikleri

[LEFT][FONT=Verdana]Sub Comp_Domain_User()[/FONT]
[FONT=Verdana]Dim Wsh As WshNetwork[/FONT]
[FONT=Verdana]Dim a As String, b As String, c As String[/FONT]

[COLOR=DarkGreen]'Set Wsh = CreateObject("WScript.Network")[/COLOR] 
[FONT=Verdana]Set Wsh = New WshNetwork[/FONT]
 
[FONT=Verdana]'Bilgisayar Adı[/FONT]
[FONT=Verdana]a = Wsh.ComputerName[/FONT]
 
[FONT=Verdana]'Domain Adı[/FONT]
[FONT=Verdana]b = Wsh.UserDomain[/FONT]
 
[FONT=Verdana]'Kullanıcı Adı[/FONT]
[FONT=Verdana]c = Wsh.UserName[/FONT]
 
[FONT=Verdana]MsgBox "Bilgisayar Adı :  " & a & Chr(10) & _[/FONT]
[FONT=Verdana]   "Domain    Adı :  " & b & Chr(10) & _[/FONT]
[FONT=Verdana]   "Kullanıcı   Adı  : " & c[/FONT]
[FONT=Verdana]End Sub[/FONT][/LEFT]

 

[Orion1]

Zeki bey excelde çalıştıramadım.Hata verdi.
vbs dosya şeklinde denedim gene hata verdi.

 

[Zeki Gürsoy]

Dim Wsh As WshNetwork
Dim a As String, b As String, c As String

[COLOR=DarkGreen] 'Set Wsh = CreateObject("WScript.Network")[/COLOR] 
Set Wsh = New WshNetwork

satırlarını,

Dim Wsh As object
Dim a As String, b As String, c As String

[COLOR=Black] Set Wsh = CreateObject("WScript.Network")[/COLOR]

olark değiştirin. (Ayrıca yeşil satıra açıklma tırnağı eklemeyi unutmuştum, düzelttim.)
[FONT=Verdana,mon] [/FONT]

 

[beab05]

Merhaba;
Office-2007( Ms Access ) Ben de alttaki gibi de çalışıyor, Zeki Bey'in verdiği ilk kodda hiçbir değişiklik yapmadan da çalışıyor. Sadece referansı eklemek gerekiyor.. "Windows host script object model"

Dim a As String, b As String, c As String


Set Wsh = New WshNetwork
 
'Bilgisayar Adı
a = Wsh.ComputerName
 
'Domain Adı
b = Wsh.UserDomain
 
'Kullanıcı Adı
c = Wsh.UserName
 
MsgBox "Bilgisayar Adı :  " & a & Chr(10) & _
   "Domain    Adı :  " & b & Chr(10) & _
   "Kullanıcı   Adı  : " & c

 

[Orion1]

Zeki bey teşekkürler.Şimdi çalışıyor.

 

[simendifer]

degerli hocalarım bu kodları access üzerinde örnekle gösterebilirmisiniz rica etsem butondamı kullanılacak güncelleştirmedemi açılıştamı bilgilendirirsenin çok makbule gecer teşekkür eder beni anlayacagınızı umarım saygılar

 

[arnavut]

ilginiz için çok teşekkür ederim,
iyiki varsınız değerli hocalarımız.

 

[Zeki Gürsoy]

degerli hocalarım bu kodları access üzerinde örnekle gösterebilirmisiniz rica etsem butondamı kullanılacak güncelleştirmedemi açılıştamı bilgilendirirsenin çok makbule gecer teşekkür eder beni anlayacagınızı umarım saygılar

İki türlü kullanım (Referans - Create) ekledim. Hangisi hoşunuza giderse onu kullanırsınız.

 

[Levent Menteşoğlu]

Peki environ fonksiyonu kullanılamazmı?

Environ("computername")
 
Environ("username")

 

[arnavut]

Sayın, Zeki Gürsoy
Bilgisayar, Kullanıcı ve domain adlarını bir mesaj kutusunda değilde tablo yada query'e yazdırmamız mümkün mü?

 

[arnavut]

Merhaba Sayın modalı,
yazmış olduğunuz fonksiyonu nereye ynasıl yazacağımı tam anlayamadım.
Açıklayabilirseniz çok sevinirim
teşekkürler

 

[karaayhan]

levent bey sizin kod daha kısa ama çalışmıyor sorun nerde?

 

[modalı]

Sayın arnavut,

Projede kullanılacak fonksiyonlar modüle yazılırlar. Ondan sonra istenilen yerlerde çağırılarak kullanılırlar. Fonksiyonların değişkenleri olmadığından direkt olarak çağırılarak kullanılırlar.

İlişkisiz bir metin kutusunun veri kısmında

=ReturnComputerName()

Bir sorgunun deyim olarak kullanılmış alanında:

BilgisayarAdı:ReturnComputerName()

veya kodlar arasında bir değişkene atıyarak:

Dim strBilgisayarAdı As String
strBilgisayarAdı=ReturnComputerName()

veya daha bir çok kullanım çeşitleri vardır.


İyi çalışmalar

 

[modalı]

levent bey sizin kod daha kısa ama çalışmıyor sorun nerde?

Sayın karayhan,

Az önce denedim çalışıyor. Bir metin kutusu oluşturun ve veri kısmına:

=Environ("username")

Yazın.

İyi çalışmalar

 

[arnavut]

Sayın Modalı
Açıklamalarınız için çok teşekkür ederim. Şimdi denedim ve oldu
Çok sağolun.
iyi çalışmalar.

 

[karaayhan]

teşekkürler sayın modalı,,,

 

[baydeniro]

Merhaba arkadaşlar. Computer name, user name, Last Saved Date gibi bilgileri fonksiyon ile bulma imkanı var mı ?