Merhaba,

Aşağıdaki script bir logon script. Temel olarak yaptığı işlem, domain'e logon olan kişinin kullanıcı adını alıp word'de kullanıcı bilgisini değiştirmek.

Kolay gelsin...

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