[SDK] Vollzugriff für Benutzer festlegen

Andi Fandrich Als Antwort am 25 Jan. 2010 13:24

Dir geht es hier um eine Site, nicht um eine Seite! Bitte unterscheiden...

In dem Codeschnipsel wird einfach die Site aus dem Kontext genommen (SPContext.Current.Web), was bei Dir nicht funktioniert, weil die Site ja eben erst erzeugt wurde. Du mußt Dir also die Site erst holen:
SPSite siteCollection = new SPSite("http://deineURL/site");
SPWeb site = siteCollection.OpenWeb();

Das Ganze jetzt noch schön mit using versehen, damit auch sauber aufgeräumt wird.

tw-elektric Als Antwort am 25 Jan. 2010 13:34

Danke für die schnelle Antwort. Aber irgendwie schaffe ich es noch nichts ganz, oder ich stehe auf der Schlauch.

Nun bekomme ich diesen Fehler "Der Typeninitialisierer für "Microsoft.SharePoint.CoreResource" hat eine Ausnahme verursacht."

bei

Dim SPSite = New SPSite(NewSiteUri.AbsoluteUri)

Anbei der vorläufige ganze Code, ohne using.

        ' Ensure ParentSiteUrl is a correct Uniform Resource, otherwise throw an exception
        Dim ParentSiteUri As New Uri("http://srv04:8888")

        ' Get reference to Meetings.asmx proxy
        Dim MeetingsService As New MeetingsService.Meetings
        'MeetingsService.Credentials = System.Net.CredentialCache.DefaultCredentials
        MeetingsService.Credentials = New System.Net.NetworkCredential("administrator", "passwd", "tw-elektric")
        MeetingsService.Url = ParentSiteUri.AbsoluteUri.TrimEnd("/") + "/_vti_bin/Meetings.asmx"

        ' Create new site
        Dim CreateWorkspaceResponse As XmlNode = MeetingsService.CreateWorkspace("test", "MINIMAL#0", Nothing, Nothing)
        Dim NewSiteUri As New Uri(CreateWorkspaceResponse.Attributes.ItemOf("Url").Value)

        ' Get reference to DWS.asmx proxy
        Dim DWSService As New DWSService.Dws
        'DWSService.Credentials = System.Net.CredentialCache.DefaultCredentials
        DWSService.Credentials = New System.Net.NetworkCredential("administrator", "passwd", "tw-elektric")
        DWSService.Url = NewSiteUri.AbsoluteUri.TrimEnd("/") + "/_vti_bin/DWS.asmx"

        ' Rename new site
        DWSService.RenameDws("test")

        Dim SPSite = New SPSite(NewSiteUri.AbsoluteUri)
        Dim SPWeb = SPSite.OpenWeb()

        'Dim SPWeb = SPContext.Current.Web

        'Rollendefinition für das Berechtigungslevel "Lesen" erzeugen
        Dim role = SPWeb.RoleDefinitions("Vollzugriff")

        'Erstellung eines neues SPRoleAssignment-Objekts           
        Dim roleAssignment = New Microsoft.SharePoint.SPRoleAssignment("tw-elektric\ottbe", "benjamin.ott@tw-elektric.de", "Benjamin Ott", "")

        'Dem neuen RoleAssignment die Berechtigungsstufe hinzufügen
        roleAssignment.RoleDefinitionBindings.Add(role)

        'Das RoleAssignment der Website explizit hinzufügen
        SPWeb.RoleAssignments.Add(roleAssignment)

Andi Fandrich Als Antwort am 25 Jan. 2010 14:14

Was sagt denn der Debugger dazu? An welcher Stelle tritt denn der Fehler auf?

tw-elektric Als Antwort am 25 Jan. 2010 14:44

Der Fehler tritt hier auf: Dim SPSite As New SPSite("http://srv04:8888/test")

Siehe Image: http://www.myimg.de/?img=bild2372b.jpg

Evtl. liegt es an dem Benutzer, der den Code ausführt.
Kann ich hier bei dem Code evtl. noch irgendwie den Benutzer hinterlegen?

Auf die erstellte Site haben ja nur der Admin und ein Geräteaccount Vollzugriff...

Andi Fandrich Als Antwort am 25 Jan. 2010 15:27

Ach so, hatte ich ganz übersehen. Versuche es mal mit SPSecurity.RunWithElevatedPriviledges.

tw-elektric Als Antwort am 25 Jan. 2010 15:59

Die Zeile einfach vor den Code, oder wie meinst du das?

Ich tue mich ersichtlich schwer mit dem ganzen hier...

tw-elektric Als Antwort am 25 Jan. 2010 16:10

nun kommt diese Meldung, aber ich weiß nicht ob mein Code so stimmt...

http://www.myimg.de/?img=bild7e458.jpg

Andi Fandrich Als Antwort am 25 Jan. 2010 16:47

Wenn ich mich richtig erinnere, muß man in VB ein Delegate-Objekt erstellen:
Dim secureCode as New SPSecurity.CodeToRunElevated(AddressOf Test)
SPSecurity.RunWithElevatedPriviledges(secureCode)

tw-elektric Als Antwort am 26 Jan. 2010 07:59

danke, aber geht leider auch nicht.

mist...

http://www.myimg.de/?img=bild1ee27.jpg

tw-elektric Als Antwort am 26 Jan. 2010 10:23

Hallo Andi,

ich habe nun etwas rechachiert und folgendens gelesen:

The only way to "remotely connect" is by using the SharePoint Web Services.
Any and all object model code must run on the same physical and logical machine as SharePoint itself

Das bedeutet für mich ja wohl, dass es nicht funktionieren wird.

Andi Fandrich Als Antwort am 26 Jan. 2010 10:46

Nein, das bedeutet, daß man SharePoint-Daten von einem Fremdsystem aus nur über die Webservices manipulieren kann und nicht über das Objektmodell. Soweit ich sehe, hast Du zwar z.T. die Webservices benutzt, aber auch das Objektmodell, d.h. Du arbeitest wohl auf einem Server der SharePoint-Farm.

Falls dem nicht so ist, mußt Du wohl einen Weg finden, die Berechtigungen ebenfalls per Webservice zu setzen. Da kann ich Dir allerdings nicht weiterhelfen...

Edit: habe mir Deine Posts nochmal angesehen und festgestellt, daß Du wohl doch ausschließlich per Webservice arbeitest. Wie kommst Du dann an die Referenz zu Microsoft.SharePoint? Jedenfalls könnte Dir das hier helfen:
http://aspalliance.com/articleViewer.aspx?aId=791&pId=-1