Bu logon scriptler ile  domain’e logon olan kişinin kullanıcı adını alıp word ve excel’de kullanıcı bilgisini değiştirebilirsiniz.

Word Uygulaması:

Set objSysInfo = CreateObject(“ADSystemInfo”)

strUser = objSysInfo.UserName
Set objUser = GetObject(“LDAP://” & strUser)

Set objWord = CreateObject(“Word.Application”)
objWord.UserName = objUser.givenName & ” ” & objUser.SN
objWord.UserInitials = Left(objUser.givenName, 1) & Left(objUser.SN, 1)
objWord.Quit

Excel Uygulaması:

Set objSysInfo = CreateObject(“ADSystemInfo”)

strUser = objSysInfo.UserName
Set objUser = GetObject(“LDAP://” & strUser)

Set objExcel = CreateObject(“Excel .Application”)
objExcel .UserName = objUser.givenName & ” ” & objUser.SN
objExcel .UserInitials = Left(objUser.givenName, 1) & Left(objUser.SN, 1)
objExcel .Quit