Forum
Bildirimler
Hepsini Temizle
İpucu
3
Yazılar
2
Üyeler
0
Reactions
823
Görüntüleme
Konu başlatıcı
Bilgisayarınızdaki tüm kullanıcı hesaplarını öğrenmek için bu kodları kullanabilirsiniz.
Sub Kullanıcı_Hesapları()
Dim NameSpace As Object, item As Object, i As Byte
Set NameSpace = GetObject("winmgmts:").instancesof("Win32_UserAccount"): i = 1
For Each item In NameSpace
Cells(i, 1) = item.Caption
Cells(i, 2) = item.Domain
Cells(i, 3) = item.FullName
Cells(i, 4) = item.Name
Cells(i, 5) = Replace(item.Status, "Degraded", "Bozulmuş")
i = i + 1
Next item
Set NameSpace = Nothing: Set item = Nothing: i = Empty
End Sub
Hoşça kalın ! 
Gönderildi : 16/11/2013 15:58
Elinize sağlık. Teşekkürler.
1984 doğumluyum. 4 yaşından bu yana İstanbul’da yaşıyorum. Sırası ile aşağıdaki okullarda eğitim gördüm. Paşaköy ilkokulu (1990-1995) Kartal Zekeriyya Güçer İlköğretim Okulu(1995-1998) Ümraniye Teknik ve Endüstri Meslek Lisesi Bilgisayar Bölümü(1998-2001) Kocaeli Üniversitesi Bilgisayar Programcılığı(2002-2004) Anadolu Ünv. İşletme Fakültesi(2006-2009) Lise yıllarından sonra bir bilgisayar firmasının teknik servisinde mesleğe merhaba dedim. Outsource olarak Citibank ytl ve bina taşınma projesinde yer alarak 8 ay görev yaptım. Bu görevden sonra şu an çalışmakta olduğum yerde bilgi işlem sorumlusu olarak göreve başladım ve 18 yıldır görevimin başındayım.
Gönderildi : 17/11/2013 00:25
Konu başlatıcı
Rica ederim. Faydalı olması dileğiyle.
Gönderildi : 17/11/2013 01:10