Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft Supression des comptes dans outlook express

Supression des comptes dans outlook express

2 réponses
Avatar
Frédéric Breassier - News
Bonjour,



Avez-vous un script pour supprimer tous les comptes enregistrés dans Outlook
express ?



Merci et Bonne journée.

Frédéric Breassier.
Signaler un problème avec ce contenu

2 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
Gilles LAURENT [MVP]
"Frédéric Breassier - News" a
écrit dans le message de
news:
| Bonjour,

Bonjour,

| Avez-vous un script pour supprimer tous les comptes enregistrés dans
| Outlook express ?

Ci-dessous le script VBScript "RemoveOutlookAccounts.vbs" permettant de
supprimer tous les comptes de courrier et comptes de news définis dans
Outlook Express pour le profil de l'utilisateur courant :

+++ Usage
> cscript //nologo RemoveOutlookAccounts.vbs

--- Coupez ici : RemoveOutlookAccounts.vbs ---
Option Explicit

' déclaration des variables
Dim oRe, oReg
Dim arrKeys
Dim strKey

' définition des constantes
Const HKCU = &H80000001
Const SUBKEY = "SoftwareMicrosoftInternet Account ManagerAccounts"

' initialisation des objets
Set oRe = New RegExp: oRe.Pattern = "d{8}"
Set oReg = GetObject ("winmgmts:/root/default:stdregprov")

' suppression des comptes
oReg.EnumKey HKCU, SUBKEY, arrKeys
For Each strKey In arrKeys
If oRe.Test (strKey) Then
oReg.DeleteKey HKCU, SUBKEY & "" & strKey
End If
Next
--- Coupez ici : RemoveOutlookAccounts.vbs ---

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Avatar
Frédéric Breassier - News
merci beaucoup


"Gilles LAURENT [MVP]" a écrit dans le message de news:
%
"Frédéric Breassier - News" a
écrit dans le message de
news:
| Bonjour,

Bonjour,

| Avez-vous un script pour supprimer tous les comptes enregistrés dans
| Outlook express ?

Ci-dessous le script VBScript "RemoveOutlookAccounts.vbs" permettant de
supprimer tous les comptes de courrier et comptes de news définis dans
Outlook Express pour le profil de l'utilisateur courant :

+++ Usage
> cscript //nologo RemoveOutlookAccounts.vbs

--- Coupez ici : RemoveOutlookAccounts.vbs ---
Option Explicit

' déclaration des variables
Dim oRe, oReg
Dim arrKeys
Dim strKey

' définition des constantes
Const HKCU = &H80000001
Const SUBKEY = "SoftwareMicrosoftInternet Account ManagerAccounts"

' initialisation des objets
Set oRe = New RegExp: oRe.Pattern = "d{8}"
Set oReg = GetObject ("winmgmts:/root/default:stdregprov")

' suppression des comptes
oReg.EnumKey HKCU, SUBKEY, arrKeys
For Each strKey In arrKeys
If oRe.Test (strKey) Then
oReg.DeleteKey HKCU, SUBKEY & "" & strKey
End If
Next
--- Coupez ici : RemoveOutlookAccounts.vbs ---

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr