title image


Smiley Re: visual Basic und Active Directory
Ich bin bei Visual Basic noch ziemlich neu. Gerade mal 5-6 Stunden dabei.



Ich habe folgenden Fall. die Funktion sollte alle Gruppen in der OU >>Utenti Cgil-Agb Alto Adige<< zurückgeben. Doch bekomme ich immer folgenden Fehler:



Fehler



Informationen über das Aufrufen von JIT-Debuggen

anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung.



************** Ausnahmetext **************

System.InvalidOperationException: Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Fehler bei der Anforderung des Berechtigungstyps System.Security.Permissions.SecurityPermission, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089.. ---> System.Security.SecurityException: Fehler bei der Anforderung des Berechtigungstyps System.Security.Permissions.SecurityPermission, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089.

bei Microsoft.VisualBasic.Interaction.GetObject(String PathName, String Class)

bei Benuetzerverwaltung_v0._1c.methoden.GetADgroups()

bei Benuetzerverwaltung_v0._1c.newObject..ctor()

Die Aktion, bei der ein Fehler aufgetreten ist:

Demand

Der Typ der ersten Berechtigung, bei der ein Fehler aufgetreten ist:

System.Security.Permissions.SecurityPermission

Die Zone der Assembly, bei der ein Fehler aufgetreten ist:

Intranet

--- Ende der internen Ausnahmestapelüberwachung ---



Fehler Ende



code: ...



Function GetADgroups()



Dim ldappath, filter, strDepth, query, objconn, objcomm, record



ldappath = "OU=Utenti Cgil-Agb Alto Adige," & GetObject("LDAP://RootDSE").Get("DefaultNamingContext")

filter = "(&(objectClass = groups))"

strDepth = "subTree"



query = "LDAP://" & ldappath & ";" & filter & "; cn;" & strDepth



objconn = CreateObject("ADODB.Connection")

objcomm = CreateObject("ADODB.Command")

objconn.Provider = "ADsDSOObject"

objconn.open = "Active Directory Provider"



objcomm.ActiveConnection = objconn



objcomm.CommandText = query

objcomm.Properties("Page Size") = 50

objcomm.Properties("Searchscope") = 2



record = objcomm.Execute


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: