etki alanında olan bilgisayarların listesi

hasan GÖKSU

(@hasanGOKSU)

Gönderiler: 75

Estimable Member

Konu başlatıcı

etki alanında olan bilgisayarların listesi almak istiyorum arkadaşlar bu mümkünmüdür aktif olarak etki alanında olan yani daha önce alınıp çıkarılmış olanları belirlemek için lazım nasıl yapabilirim bu konuda yardımlarınızı bekliyorum kolay gelsin

Gönderildi : 12/12/2013 12:31

Rıza ŞAHAN

(@riza-sahan)

Gönderiler: 18032

_

Merhaba Server işletim sisteminiz nedir?

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 : 12/12/2013 12:36

hasan GÖKSU

(@hasanGOKSU)

Gönderiler: 75

Estimable Member

Konu başlatıcı

2008server R2 kullanıyoruz

Gönderildi : 12/12/2013 13:12

Anonim

(@Anonim)

Gönderiler: 0

Rıza Bey'in müsadesiyle...

Excel'de listelemek isterseniz size makro ile bir çözüm önerebilirim.
Aşağıda vereceğim kodları çalıştırabilmeniz için şu yolu izleyin;

■ Yeni bir Excel dosyası oluşturun.
■ Sayfadayken ALT+F11 tuşlarına birlikte basın.
■ Yukarıdaki menülerden önce Insert sonrasında Module seçin.
■ Açılan boş sayfaya aşağıda verdiğim kodları yapıştırın ve F5 tuşuna basın.
■ 3 sn. sonra listeniz hazır

Kodlar bu şekildedir;
Sub Etki_Alanındaki_Bilgisayar_İsimleri()
    Dim Rky As New Excel.Application, Evn, c
    Evn = ActiveWorkbook.Path & "\" & "MuratOSMA.xls"
    Shell "cmd /c net view > " & Chr$(34) & Evn & Chr$(34), vbHide
    Application.Wait (Now + TimeValue("00:00:03"))
    Rky.Workbooks.Open Evn
    Rky.Visible = True
    Set Rky = Nothing: Evn = "": c = Empty
End Sub