Aşağıdaki scripti .VBS uzantılı bir dosya olarak kaydedip, logon script olarak yapılandırırsanız, Active Directoy ‘ de computer objelerinin Açıklamalarında, son login tarih ve saatini, kullanıcı adını, ip adresini ve  Mac no sunu virgül ile ayrılmış şekilde görebilirsiniz.İsterseniz AD den description alanını export edebilir ve virgülle ayrılmış alanı excelde kolon haline getirebilirsiniz. Böylece “Bilgisayar Adı-Kullanıcı Adı-IP adres-Mac No” listesini pratik bir şekilde oluşturabilirsiniz.  

Ayrıca, extensionAttribute1 alanında Login Name;
extensionAttribute2 alanında ip adresini,
extensionAttribute3 alanında ise Mac nosunu görebilirsiniz.
(Gelişmiş görünümü açarak Attributes tabında.)  

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo") 'Bind to AD
Set objNet = CreateObject("WScript.Network")

strCompDN = objSysInfo.ComputerName Set objComp = GetObject("LDAP://" & strCompDN)
strUserDN = objSysInfo.UserName Set objUser = GetObject("LDAP://" & strUserDN)
strUsrLogin = LCase(objNet.UserName)

strNow = Now
strDateStamp = DatePart("yyyy",strNow) & _
    Right("0" & DatePart("m",strNow), 2) & _
    Right("0" & DatePart("d",strNow), 2) & _
    "@" & _
    Right("0" & DatePart("h",strNow), 2) & _
    Right("0" & DatePart("n",strNow), 2)

Set objRE = New RegExp
objRE.IgnoreCase = True
objRE.Pattern = "^\d+\.\d+\.\d+\.\d+$"

strIP = ""
Set objWMI = GetObject("winmgmts:")
Set colNICs = objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")

If colNICs.Count > 0 Then
    For Each objNIC in colNICs
     If IsArray(objNIC.DefaultIPGateway) Then
      arrIP = objNIC.IPAddress
      For i = 0 To UBound(arrip)
       If objRE.Test(arrIP(i)) Then strIP = strIP & " " & arrIP(i)
      Next
      strMAC = objNIC.MACAddress
     End If 
    Next
End If

strIP = Trim(strIP)

objComp.Description = strDateStamp & "," & strUsrLogin & "," & strIP & "," & strMAC

objComp.Put "extensionAttribute1", strUsrLogin
objComp.Put "extensionAttribute2", strIP
objComp.Put "extensionAttribute3", strMAC

objComp.SetInfo

Alternatif bir yöntem olarak ise, Kullanıcı adından ip bulmak için,
Technet den PsLoggedOn exe’sini indirip, istenen kullanıcı adını, bu exeye parametre geçerek,
kullanıcının oturum açtığı pclerin listesini görebilirsiniz.İsme ping atarak da ip yi.
(Daha fazla sistemde oturum açabilir.sonuç tek olacak diye birşey yok.)  

PsLoggedOn’u indirmek için;
http://technet.microsoft.com/en-us/sysinternals/bb897545.aspx

Bilgileri dosyada toplayan alternatif bir script de aşağıdadır:

@echo off
for /f "tokens=2 delims=:" %%a in ('ipconfig ^| find /i "IP Address"') do set IPAddress=%%a
echo %username% logged on to %computername% (%ipaddress%) on %date% at %time%>>\\orhan\share\lastlogin.txt