Set objComputer = GetObject _
    ("LDAP://OU=Finance, DC=fabrikam, DC=com")

Set objShare = objComputer.Create("volume", "CN=nom-du-partage")

objShare.Put "uNCName", "\\nom-du-serveur\nom-du-partage"
objShare.Put "Description", "Description du partage"
objShare.Put "Keywords", Array("mot clé 1", "mot clé 2", "mot clé 3")
objShare.SetInfo