Problème de script

Bonjour,

Je débute et j'essaie un script qui ne marche pas pour changer un icône automatiquement en allant le chercher sous Windows :
Je compte sur vous pour une idée ...
MERCI

Dim objSHELL, RACCOU, CIBLE, NOM

NOM = "Liste des membres"
CIBLE =""%systemRoot%\system32\shell32.dll"

Set objSHELL = WScript.CreateObject("WScript.Shell")
Set RACCOU = objSHELL.CreateShortcut("C:\Documents and settings\All users\Menu démarrer\" & NOM & ".lnk")
With RACCOU
.TargetPath = CIBLE
.WindowStyle = 105
.IconLocation = CIBLE
.Save
End With

Set objSHELL = Nothing
Set RACCOU = Nothing
WScript.Quit