Forum
Bildirimler
Hepsini Temizle
Yazılım Genel
3
Yazılar
2
Üyeler
0
Reactions
508
Görüntüleme
Konu başlatıcı
Merhabalar
net te bulduğum bir script.
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
Bu script söylendiğine göre word de en son logon olan kullanıcının ismini info ya ekleyen bir scriptmiş. Bunu excel de uygulayabilmek istiyorum. Yardım ederseniz çok sevinirim. Sistemim windows server 2003.
Geri dönüşünüzü bekliyor iyi çalışmalar diliyorum.
Teşekkürler
Gönderildi : 27/10/2009 18:16
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
Gönderildi : 29/10/2009 05:51
Konu başlatıcı
teşekkürler.
Gönderildi : 30/10/2009 15:25
