[Yardım]  Excel Vba - Current User Active Directory Group List

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel Vba - Current User Active Directory Group List

İleti#1)  vkonca » 01 Nis 2020 11:43

Merhabalar,

Makroyu çalıştıran PC deki giriş yapılan kullanıcı hesabı hangi grouplara eklenmiş bunun listesini çekmek istiyorum.
Web and Desktop Developer
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 24
İleti: 66
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

Cevap: Excel Vba - Current User Active Directory Group List

İleti#2)  erseldemirel2 » 01 Nis 2020 13:10

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
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 913
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Excel Vba - Current User Active Directory Group List

İleti#3)  vkonca » 01 Nis 2020 15:55

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
Web and Desktop Developer
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 24
İleti: 66
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

Cevap: Excel Vba - Current User Active Directory Group List

İleti#4)  erseldemirel2 » 01 Nis 2020 18:07

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
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 913
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

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

İleti#5)  vkonca » 02 Nis 2020 08:18

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
Web and Desktop Developer
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 24
İleti: 66
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

Cevap: Excel Vba - Current User Active Directory Group List

İleti#6)  vkonca » 02 Nis 2020 12:47

https://stackoverflow.com/questions/416 ... -using-vba

buradaki kodlar ile işimi çözdüm teşekkürler
Web and Desktop Developer
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 24
İleti: 66
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Google Adsense [Bot] ve 5 misafir

Bumerang - Yazarkafe