pbs arguments dans un raccourci

Bonjour,

Je dois modifier les arguments dans un raccourci sur le bureau de certains
postes. J'utilise une requête de ce type :

strRequete = "Select * from CIM_Datafile Where (Path = '" &
DoubleAntiS(Mid(strUserProfile,3)) & "\\Bureau\\'"
strRequete = strRequete & " Or Path = '" & DoubleAntiS(Mid(strAllProfile,3))
& "\\Bureau\\') And Extension = 'lnk'"
Set colItems = objWMIService.Execquery(strRequete)

Puis je recherche le(s) raccourci(s) qui m'interesse :

For Each objItem in colItems
Set Link = wso.CreateShortcut(objItem.Name)
Chemin = lcase(Link.TargetPath)
fout.WriteLine "[Raccourci] : " & objItem.Name & " => " & Chemin
'on va rechercher le raccourci et si on le trouve on le modifie
'----------------------------------------------------------------------------
Call ModifRacc(Chemin, "/Serveur, BdD=", :Serveur, NTAuthentification=No,
BdD=")
Next

Le problème est que la méthode TargetPath ne me remonte pas les arguments du
raccourci (par exemple : c:\windows\system32\programme.exe /toto.txt V me
retourne c:\windows\system32\programme.exe :-(

Auriez-vous une idée, une autre méthode pour réaliser cela ?

Merci d'avance