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: [email protected]
[mailto:[email protected]] 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: [email protected]
[mailto:[email protected]] On Behalf Of Bagó István
Sent: Wednesday, February 10, 2010 11:17 AM
To: [email protected]
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
_______________________________________________
Techinfo mailing list
[email protected]
Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo
Illemtan: http://www.1let.hu/illemtan.html
Ügyfélszolgálat FAQ: http://www.kozhalo2.hu/Faq.aspx
