1 sayfadan 1. sayfa

Excel Vba - Current User Active Directory Group List

İletiTarih: 01 Nis 2020 11:43
vkonca
Merhabalar,

Makroyu çalıştıran PC deki giriş yapılan kullanıcı hesabı hangi grouplara eklenmiş bunun listesini çekmek istiyorum.

Cevap: Excel Vba - Current User Active Directory Group List

İletiTarih: 01 Nis 2020 13:10
erseldemirel2
Böyle bir log sistemini kullanabilirsiniz.
ThisWorkbook içine workbook_open proceduru ile; sisteme girenleri log tutabilirsiniz. kabaca bir örnek

Kod: Tümünü seç
Private Sub Workbook_Open()
Dosya = "C:\Log.txt"
Open Dosya For Append As #1
Print #1, ThisWorkbook.Name & vbTab & Format(Now, "dd.mm.yyyy dddd hh:mm:ss") & vbTab & Environ("UserName") & vbTab & Application.UserName & vbTab & Environ("COMPUTERNAME")
Close #1
End Sub

Cevap: Excel Vba - Current User Active Directory Group List

İletiTarih: 01 Nis 2020 15:55
vkonca
Merhabalar,

sisteme giren değilde X makrosunu çalıştırmak isteyen birine şöyle bir uyarı verdiricem. örnek olarak oturum açmış kullanıcı , Yonetim grubununda değilse makroyu çalıştaramayacak. Bende makrodan msgbox ile Yönetim grubuna dahil edilmediğiniz için makroyu çalıştıramazsınız şeklinde bir uyarı çıkartıcam

Cevap: Excel Vba - Current User Active Directory Group List

İletiTarih: 01 Nis 2020 18:07
erseldemirel2
Böyle birşeylermi olur

Kod: Tümünü seç
sub makro1()
if Environ("UserName")="ersel" then
msgbox "üye değilsiniz"
exit sub
else
run "makro2"
end if
end sub

Cevap: Cevap: Excel Vba - Current User Active Directory Grou

İletiTarih: 02 Nis 2020 08:18
vkonca
erseldemirel2 yazdı:Böyle birşeylermi olur

Kod: Tümünü seç
sub makro1()
if Environ("UserName")="ersel" then
msgbox "üye değilsiniz"
exit sub
else
run "makro2"
end if
end sub


Merhaba,

Bu şekilde biz kullanıcı adını çektik ama bana bana bu değilde grupları lazım. Active directory'den member of'da yer alan group lar gerekiyorda bana örnek x kullanıcın olduığu tüm grupları listelesem yeterli benim için

Cevap: Excel Vba - Current User Active Directory Group List

İletiTarih: 02 Nis 2020 12:47
vkonca
https://stackoverflow.com/questions/416 ... -using-vba

buradaki kodlar ile işimi çözdüm teşekkürler