DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
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
ActiveUserName = Application.UserName
[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]
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
Dim Wsh As object
Dim a As String, b As String, c As String
[COLOR=Black] Set Wsh = CreateObject("WScript.Network")[/COLOR]
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
İki türlü kullanım (Referans - Create) ekledim. Hangisi hoşunuza giderse onu kullanırsınız.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
Environ("computername")
Environ("username")
=ReturnComputerName()
BilgisayarAdı:ReturnComputerName()
Dim strBilgisayarAdı As String
strBilgisayarAdı=ReturnComputerName()
levent bey sizin kod daha kısa ama çalışmıyor sorun nerde?
=Environ("username")