RE: VB 2008 programban segítség kellene

[Bagó István]

Nekem ez van a form-ban ezt is netről leszedett példák alapján próbáltam összerakni.

 

Public Class nevablak

    Dim nev, gepnev, LDAP As String

    Dim objconf

 

    Private Sub nevablak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        LDAP = "LDAP://CN=Tanulok,DC=palffy,DC=local"

        nev = ""

        objConf = GetObject(LDAP)

        nev = objconf.Name & ", Gépnév: "

        gepnev = ""

        LDAP = "LDAP://CN=Computers,DC=palffy,DC=local"

        objConf = GetObject(LDAP)

        gepnev = objconf.Name()

        nev = nev + gepnev

        Me.Text = nev

 

    End Sub

End Class

 

Bagó István, rendszergazda

Pálffy Miklós Kereskededelmi Szakképző Iskola

Győr

 

From: techinfo-bounces at lista.sulinet.hu [mailto:techinfo-bounces at lista.sulinet.hu] On Behalf Of Ambróz Zoltán
Sent: Wednesday, February 10, 2010 12:03 PM
To: Techinfo
Subject: RE: VB 2008 programban segítség kellene

 

Szia, 

csak futtaban C#-ban valami hasonlo, hasonlo lenne VB-ben is:

 

            try

            {

                DirectoryEntry objSearchRoot = new DirectoryEntry("LDAP://DC=suli_domain,DC=local");

                DirectorySearcher objSearcher = new DirectorySearcher(objSearchRoot);

 

                objSearcher.Filter = String.Format("(SAMAccountName={0})", System.Environment.UserName);

                SearchResult objResult = objSearcher.FindOne();

                if (null != objResult)

                {

                    ResultPropertyCollection objPropColl = objResult.Properties;

    

    // a properties collection <displayNamey> properties-e adja a user megjelenitendo nevet

    Console.Write(objPropColl["displayName"][0].ToString()); // kicsit ronda a 0-s indexu elemre torteno hivatkozas

                }

                else

                {

                    // not a valid user

                }

                objSearcher.Dispose()

                objSearchRoot.Dispose();

            } catch ...

 

Udv, AZ               

 

From: techinfo-bounces at lista.sulinet.hu [mailto:techinfo-bounces at lista.sulinet.hu] On Behalf Of Bagó István
Sent: Wednesday, February 10, 2010 11:17 AM
To: techinfo at lista.sulinet.hu
Subject: VB 2008 programban segítség kellene

 

Sziasztok.

 

Írtam VB 2008 Expressben egy kicsi kis programot, ami annyit csinál(na), hogy egy címsor méretű ablak 

címsorába kiírja az aktuálisan belépett felhasználó teljes nevét és a gép nevét, amit az AD-ból (w2k3 tartomány) kérdez le.

 

Nem igazán működik. Tudna valaki magánban segíteni? Meglehetősen zöldfülű vagyok még a VB programozáshoz...

 

Bagó István, rendszergazda

Pálffy Miklós Kereskededelmi Szakképző Iskola

Győr

--------- következő rész ---------
Egy csatolt HTML állomány át lett konvertálva...
URL: http://lista.sulinet.hu/pipermail/techinfo/attachments/20100210/d20feb6b/attachment.html