Bilgisayardaki Tüm Kullanıcı Hesaplarını Öğrenme

İpucu

Son Cevaplar gön: Anonim 11 yıl önce

3 Yazılar

2 Üyeler

0 Reactions

450 Görüntüleme

RSS

Anonim

(@Anonim)

Gönderiler: 0

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

Rıza ŞAHAN

(@riza-sahan)

Gönderiler: 18032

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