Problème compatibilité script VBS Windows xp/Windows 7

**killgones** · 09/09/2015, 13h30

Bonjour,

j'utilisais par le passé un script .vbs afin de créé des comptes utilisateurs en masse dans une AD, mon script récuperait un fichier .csv déjà rempli de tous les futur compte et je lançais ce script sur xp.

Depuis les temps évolue et j'ai voulu le faire depuis un poste Windows 7 et j'ai directement une erreur "un composant ActiveX ne peut pas créer un objet: 'UserAccounts.CommonDialog', code 800A01AD.

Après plusieurs recherche, j'ai trouvé que UserAccounts.CommonDialog n'est pas compatible Windows 7.

Avez vous une solution.

Voici un bout de mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
'boite de dialogue, selection du fichier texte
 
 
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "fichiers texte|*.txt|All Files|*.*"
objDialog.FilterIndex = 1
objDialog.InitialDir = getpath()
intResult = objDialog.ShowOpen 
 
If intResult = 0 Then
    Wscript.Quit
else
    fichier= objDialog.FileName
end if

Merci pour votre aide.