Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office SharePoint [sps2001] purge des abonnments

[sps2001] purge des abonnments

4 réponses
Avatar
Cyrille
Bonjour
Le système continuer d'envoyer des mail d'abonnement aux utilisateurs alors
que les comptes de ces utilisateurs ont été supprimés de l'annuaire AD.
Comment purger les abonnements d'utilisateur qui n'existent plus ?
Merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre Vivier-Merle
Bonjour,

Paramètres du site > Administration du site > gérer les alertes utilisateur

Sinon, par programmation ou avec un outil du marché.

--
Cordialement,
Pierre
Venez visiter mon blog : http://blogs.developpeur.org/pierre !


"Cyrille" a écrit dans le message de
news:
Bonjour
Le système continuer d'envoyer des mail d'abonnement aux utilisateurs
alors
que les comptes de ces utilisateurs ont été supprimés de l'annuaire AD.
Comment purger les abonnements d'utilisateur qui n'existent plus ?
Merci


Avatar
EROL [MVP SPS]
Bonjour,

Version 2001 de SPS ?

@bientôt sur les news de SharePoint.
Bonne fin de semaine.

EROL
[MVP SharePoint Microsoft France]
*****************************************
http://www.clubsps.org

--
Prochaine Réunion du Club SharePoint FRANCE
Le mercredi 14 Juin 2006 à PARIS.
Elle aura lieu :
Microsoft Paris
148 rue de l'Université
75007 Paris
Pour vous inscrire gratuitement au club SPS,
cliquer ici : http://inscrits.clubsps.org/ .

"Cyrille" a écrit dans le message de
news:
Bonjour
Le système continuer d'envoyer des mail d'abonnement aux utilisateurs
alors
que les comptes de ces utilisateurs ont été supprimés de l'annuaire AD.
Comment purger les abonnements d'utilisateur qui n'existent plus ?
Merci


Avatar
Cyrille
Ben comme indiqué dans le titre de mon poste c'est sur la version 2001. Je ne
vois pas comment gérer les abonnements d'un user qui n'existe plus dans l'ad
si ce n'est de le recréer, supprimer l'abonnement, puis killer le user.

"EROL [MVP SPS]" wrote:

Bonjour,

Version 2001 de SPS ?

@bientôt sur les news de SharePoint.
Bonne fin de semaine.

EROL
[MVP SharePoint Microsoft France]
*****************************************
http://www.clubsps.org

--
Prochaine Réunion du Club SharePoint FRANCE
Le mercredi 14 Juin 2006 à PARIS.
Elle aura lieu :
Microsoft Paris
148 rue de l'Université
75007 Paris
Pour vous inscrire gratuitement au club SPS,
cliquer ici : http://inscrits.clubsps.org/ .

"Cyrille" a écrit dans le message de
news:
> Bonjour
> Le système continuer d'envoyer des mail d'abonnement aux utilisateurs
> alors
> que les comptes de ces utilisateurs ont été supprimés de l'annuaire AD.
> Comment purger les abonnements d'utilisateur qui n'existent plus ?
> Merci





Avatar
Pierre Vivier-Merle
Désolé, pas vu SPS 2001.

je suppose que vous avez essayé dans le digital dashbord administration >
gérer les abonnements > mettre le nom de l'utilisateur et cela doit indiquer
utilisateur non trouvé.

si c'est c'est le cas, utiliser PLEX.EXE qui est inclus dans les outils de
SPS 2001 : c'est un explorateur permettant d'accéder à SPS 2001. Aller dans
le dossier subscriptions et supprimer les items que vous souhaitez purger.

Sinon, pour automatiser par programmation en utilisant PKMCDO, c'est asssez
simple. Ci-dessous un script .vbs que j'avais développé pour lister
l'ensemble des abonnements, puis un sample pour supprimer les abonnements à
adapter.

==> ATTENTION : nécessite connaissance en programmation et faire des tests
avant en environnement de test !

On Error Resume Next

'*******************************
' Parameters
dim sWorkspace
sWorkspace = "http://server/workspace"

'*******************************

'Execute Query
Set conn = CreateObject("ADODB.Connection")
OnErrorExit "Error creating object: ADODB.Connection"
Set cmd = CreateObject("ADODB.Command")
OnErrorExit "Error creating object: ADODB.Command"
Set RS = CreateObject("ADODB.RecordSet")
OnErrorExit "Error creating object: ADODB.Recordset"

conn.ConnectionString = "provider=msdaipp.dso"
conn.CommandTimeout = 0
conn.Open sWorkspace
OnErrorExit "Error opening connection"

set cmd.ActiveConnection = conn
cmd.CommandText = "select ""DAV:displayname"",
""urn:schemas:mailheader:to"" ,
""urn:schemas-microsoft-com:publishing:SubscriptionOwner"",
""urn:schemas-microsoft-com:publishing:SubscribedTo"" " & _
" from scope('SHALLOW TRAVERSAL OF """ & sWorkspace &
"/system/subscriptions""')"

OnErrorExit "Error setting command properties"

RS.open cmd
OnErrorExit "Error executing query"

DumpRowset RS
'DeleteRowSet RS

''' DONE '''

Sub OnErrorExit (sMessage)
If Err.Number <> 0 Then
Msgbox sMessage
Msgbox "Message '" & Err.Description & "' Number 0x" &
Hex(Err.Number)
End If
End Sub

Sub DeleteRowSet (RS)
RS.MoveLast
While Not RS.BOF
RS.Delete
RS.MovePrevious
OnErrorExit "Error setting command properties"
Wend
End Sub

Sub DumpRowset (RS)
Dim i, j
Dim sResult, sHead
Dim sAllResults
i = 0
While Not RS.EOF
i = i + 1
sResult = ""
'sHead = i & ") "
'For j = 0 to RS.Fields.Count - 1
' sResult = sResult & sHead & RS(j).Name & " : " & RS(j).Value &
vbCRLF
' sHead = Space (Len(sHead))
'Next
sResult = sResult & RS(RS.Fields.Count -4).Value
sResult = sResult & ";" & RS(RS.Fields.Count -3).Value
sResult = sResult & ";" & RS(RS.Fields.Count -2).Value
sResult = sResult & ";" & RS(RS.Fields.Count -1).Value

sAllResults = sAllResults & vbCRLF & sResult
RS.MoveNext
OnErrorExit "Error setting command properties"
Wend

Msgbox i & " Results."
WriteIntoFile sAllResults
End Sub

Sub WriteIntoFile(sText)
DIM fso, GuyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set GuyFile = fso.CreateTextFile("c:sortie.csv", True)
GuyFile.Write (sText)
GuyFile.Close
End Sub

==================================
Reste plus qu'à adapter en ajoutant la partie Delete avec un critère
supplémentaire :

Sample à adapter :
Sub DeleteRowSet (RS)
Dim i, j
Dim sResult, sHead
Dim sAllResults
i = 0

Dim oSubMgr
Set oSubMgr = CreateObject("PKM.SubscriptionManager")
OnErrorExit "Error on SubscriptionManager"

While Not RS.EOF
i = i + 1
oSubMgr.DeleteSubscription strWorkspaceName, RS(RS.Fields.Count -4).Value
RS.MoveNext
OnErrorExit "Error setting command properties"
Wend

Msgbox i & " suppression"
End Sub



--
Cordialement,
Pierre
Venez visiter mon blog : http://blogs.developpeur.org/pierre !

"Cyrille" a écrit dans le message de
news:
Ben comme indiqué dans le titre de mon poste c'est sur la version 2001. Je
ne
vois pas comment gérer les abonnements d'un user qui n'existe plus dans
l'ad
si ce n'est de le recréer, supprimer l'abonnement, puis killer le user.

"EROL [MVP SPS]" wrote:

Bonjour,

Version 2001 de SPS ?

@bientôt sur les news de SharePoint.
Bonne fin de semaine.

EROL
[MVP SharePoint Microsoft France]
*****************************************
http://www.clubsps.org

--
Prochaine Réunion du Club SharePoint FRANCE
Le mercredi 14 Juin 2006 à PARIS.
Elle aura lieu :
Microsoft Paris
148 rue de l'Université
75007 Paris
Pour vous inscrire gratuitement au club SPS,
cliquer ici : http://inscrits.clubsps.org/ .

"Cyrille" a écrit dans le message de
news:
> Bonjour
> Le système continuer d'envoyer des mail d'abonnement aux utilisateurs
> alors
> que les comptes de ces utilisateurs ont été supprimés de l'annuaire AD.
> Comment purger les abonnements d'utilisateur qui n'existent plus ?
> Merci