Merhaba,

Hangi kullanıcının hangi makinaya logon olduğu her zaman akla gelen bir sorudur. Buna en mantıklı çözüm kullanıcı ve computer description bölümlerini değiştirmek olabilir. Kısaca Logon olan kullanıcının bilgileri aşağıdaki şekilde düzenlenebilir.

Set objSysInfo = CreateObject("ADSystemInfo")

Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
Set objComputer = GetObject("LDAP://" & objSysInfo.ComputerName)

strMessage = objUser.CN & " kullanıcısı " & objComputer.CN & " makinasına " & Now & "saatinde logon oldu."

objUser.Description = strMessage
objUser.SetInfo

objComputer.Description = strMessage
objComputer.SetInfo