Bonjour
Merci d'avance pour tout aide apporté  
Désolé si la question a déjà été posé mais j'ai réellement cherché    .
Que ce soir google ou sur les outils de recherche la plupart des résultats, je n'ai pas réussi à adapter le résultat de mes recherches.    
mon besoin est simple:
Je veux zipper ou dezipper en vbs sans installer un quelconque logiciel.
Je suis sous windows XP
Après tout mes recherches, il me semble qu'il y a 2 possibilités passé par une sorte d'api windows "WMIService"
d'après ceci lien1
mais après tout mes test je n'ai pas réussi à dézipper quoi que ce soit.
sauf erreur de ma part ceci ne peut dezipper qu'un dossier, or je veux dezipper un fichier ce qui pourrait peut-être expliquer ma difficulté.
ou utiliser une méthode miracle que je ne comprend pas  
J'ai trouvé un code VBA lien mais je ne vois nulle part ou s'effectue la decompression, et ma reécriture en vbs ne marche pas. Je mange un objet undefini sur le oApp.Namespace...
Est ce que quelqu'un sais le faire ?
Merci d'avance

up
bon j'en profite pour mette un des codes testé

Set FSCopie = CreateObject("Scripting.FileSystemObject" ) 
Set Fichier = FSCopie.GetFile("monfichier.zip" )
DossierZip=Fichier.ParentFolder & "monfichier.zip"
DossierDezip = Fichier.ParentFolder
msgbox "dossier zip=" & DossierZip & "dezip =" & DossierDezip    
Set osa = CreateObject("Shell.Application" )
nbFic = osa.Namespace(DossierZip).Items.Count 
' Décompression des fichiers 
osa.Namespace(DossierDezip).CopyHere osa.Namespace(DossierZip).Items 
Set osa = Nothing

erreur objet requis osa.Namespace(...)
Mais bon j'ai pas trop d'espoir par cette solution car je ne trouve aucune doc sur l'objet shell.Application    
 
Je précise aussi que je fait du vbs dans un ie

Bon je remercie grandement bbil de developez qui a trouvé ma solution
En fait mon script marche parfaitement mais
[QUOTE=bbil;4544313]il te manque un [COLOR="Red"][B]\[/B][/COLOR]  
 

[/QUOTE]
voila quel bigleux malgres ma msgbox j'ai rien vu