[VBScript] est-il possible de connaitre la cible,etc. d'un raccour

Bonjour,

Suite à une migration de serveur, je souhaiterai analyser tous les
raccourcis des postes voulus du domaine. Puis, en fonction des valeurs de :
- la cible et
- du répertoire de démarrage,

je souhaiterai modifier ces 2 derniers pour les faire pointer sur le nouveau
serveur.

Actuellement, j'arrive à lister les raccourcis des postes "clients" mais je
n'arrive pas à trouver d'aide sur la façon de récupérer ces 2 propriétés.
Est-ce vraiment possible ?

Merci de votre aide,
Bonne journée à vous,
Damien.

'---8<---Lecutre_Ecriture_Raccourci.VBS---Jean-JMST---Belgium---
raccourci="fichier.lnk"

With CreateObject("WScript.Shell").CreateShortcut(raccourci)

'LECTURE
'Affichage des paramètres actuels du raccourci

WScript.Echo .WorkingDirectory & VbNewLine &_
.TargetPath& VbNewLine &_
.Arguments

'ECRITURE
'Modification des paramètres du raccourci

.TargetPath="t:windowssystem32wordpad.exe"
.WorkingDirectory="c:"
.Arguments="p u blabla"
.Save
End With
'---8<---Lecutre_Ecriture_Raccourci.VBS---Jean-JMST---Belgium---

Voir ici pour les autres propriétés (toutes accessibles en
lecture/écriture) de l'objet WshShortcut :

http://msdn2.microsoft.com/en-us/library/xk6kst2k.aspx

Amicalement,

--
Jean - JMST
Belgium

Merci Jean, c'est parfait d'après tes commentaires, je devrais me debrouiller
avec ça et le lien vers la doc (que je n'avais pas trouvée...pas faute de
recherche pourtant lol)

Bonne journée,
Damien.

Bonjour,

Suite à une migration de serveur, je souhaiterai analyser tous les
raccourcis des postes voulus du domaine. Puis, en fonction des valeurs de :
- la cible et
- du répertoire de démarrage,

je souhaiterai modifier ces 2 derniers pour les faire pointer sur le nouveau
serveur.

Actuellement, j'arrive à lister les raccourcis des postes "clients" mais je
n'arrive pas à trouver d'aide sur la façon de récupérer ces 2 propriétés.
Est-ce vraiment possible ?

Merci de votre aide,
Bonne journée à vous,
Damien.

'---8<---Lecutre_Ecriture_Raccourci.VBS---Jean-JMST---Belgium---
raccourci="fichier.lnk"

With CreateObject("WScript.Shell").CreateShortcut(raccourci)

'LECTURE
'Affichage des paramètres actuels du raccourci

WScript.Echo .WorkingDirectory & VbNewLine &_
.TargetPath& VbNewLine &_
.Arguments

'ECRITURE
'Modification des paramètres du raccourci

.TargetPath="t:windowssystem32wordpad.exe"
.WorkingDirectory="c:"
.Arguments="p u blabla"
.Save
End With
'---8<---Lecutre_Ecriture_Raccourci.VBS---Jean-JMST---Belgium---

Voir ici pour les autres propriétés (toutes accessibles en
lecture/écriture) de l'objet WshShortcut :

http://msdn2.microsoft.com/en-us/library/xk6kst2k.aspx

Amicalement,

--
Jean - JMST
Belgium

que je n'avais pas trouvée...pas faute de
recherche pourtant lol

La doc fr est téléchargeable en fichier aide chm :
http://download.microsoft.com/download/winscript56/install/5.6/w98nt42kme/fr/scd56fr.exe


Sinon si j'ai le temps je repasserai.
J'ai un petit machin sympa avec ça :-)

Amicalement,

--
Jean - JMST
Belgium

Merci Jean !

Je telecharge le fichier d'aide qui me sera bien utile et je m'occupe de ça
la semaine prochaine.
Là j'ai migré les 4 applications en analysant les PC du domaine concerné et
en recherchant les liens des postes par rapport à des mots clefs sur le
noms...ça m'a déjà bien aidé..je me suis tappé la 70aine de poste à la main
via le partage administratif, mais au moins, j'avais les chemins complets
direct...Je suis déjà bien content de ce script pour mon premier coup d'essai.

Merci en tout cas, et si tu as le temps, pourquoi pas pour ton truc sympa.
Bonne fin de semaine.

que je n'avais pas trouvée...pas faute de
recherche pourtant lol

La doc fr est téléchargeable en fichier aide chm :
http://download.microsoft.com/download/winscript56/install/5.6/w98nt42kme/fr/scd56fr.exe


Sinon si j'ai le temps je repasserai.
J'ai un petit machin sympa avec ça :-)

Amicalement,

--
Jean - JMST
Belgium

Merci en tout cas, et si tu as le temps, pourquoi pas pour ton truc sympa

Pour ce à quoi je pensais j'ai un peu trop de données à modifier pour
l'instant.

Puisque nous sommes dans les raccourcis, en guise de consolation :-),
voici un script qui exécute tout les raccourcis contenus dans un
répertoire ... sinon il me reste quelques chocolats ... :

'---8<---Multi_Raccourcis.VBS---Jean-JMST-Belgium---
'Exécute tout les raccourcis contenus dans un répertoire.
'
'Routine
' Multi_Raccourcis "z:Mes Raccourcis"
'En argument
' Multi_Raccourcis.VBS "z:Mes Raccourcis"
'
' exécutent tout les raccourcis du répertoire
' z:Mes Raccourcis

With WScript.Arguments
If .Count Then Multi_Raccourcis(.Item(0))
End With

Sub Multi_Raccourcis(repertoire)
With CreateObject("Scripting.FileSystemObject")
If .FolderExists(repertoire) Then
For Each f In .GetFolder(repertoire).Files
Select Case UCase(.GetExtensionName(f))
Case "LNK"
If Not C_Moi(f) Then Executer(f)
Case "URL","PIF"
Executer(f)
End Select
WScript.Sleep 10
Next
End If
End With
End Sub

Function C_Moi(raccourci)
C_Moiúlse
If UCase(WScript.ScriptFullName)=UCase(_

CreateObject("WScript.Shell")_
.CreateShortcut(raccourci)_
.TargetPath _
) _
Then C_Moi=True
End Function

Sub Executer(raccourci)
CreateObject("WScript.Shell").Run """"&raccourci&""""
End Sub
'---8<---Multi_Raccourcis.VBS---Jean-JMST-Belgium---

Amicalement,

--
Jean - JMST
Belgium

ok Merci bien ;)
En tout cas, tes réponses me furent bien utile.

Merci encore et peut être à une prochaine fois.
Bonne semaine,
Damien.

PS : Je te laisse tes chocolats, merci quand même :-D
________________________________

Merci en tout cas, et si tu as le temps, pourquoi pas pour ton truc sympa

Pour ce à quoi je pensais j'ai un peu trop de données à modifier pour
l'instant.

Puisque nous sommes dans les raccourcis, en guise de consolation :-),
voici un script qui exécute tout les raccourcis contenus dans un
répertoire ... sinon il me reste quelques chocolats ... :

'---8<---Multi_Raccourcis.VBS---Jean-JMST-Belgium---
'Exécute tout les raccourcis contenus dans un répertoire.
'
'Routine
' Multi_Raccourcis "z:Mes Raccourcis"
'En argument
' Multi_Raccourcis.VBS "z:Mes Raccourcis"
'
' exécutent tout les raccourcis du répertoire
' z:Mes Raccourcis

With WScript.Arguments
If .Count Then Multi_Raccourcis(.Item(0))
End With

Sub Multi_Raccourcis(repertoire)
With CreateObject("Scripting.FileSystemObject")
If .FolderExists(repertoire) Then
For Each f In .GetFolder(repertoire).Files
Select Case UCase(.GetExtensionName(f))
Case "LNK"
If Not C_Moi(f) Then Executer(f)
Case "URL","PIF"
Executer(f)
End Select
WScript.Sleep 10
Next
End If
End With
End Sub

Function C_Moi(raccourci)
C_Moiúlse
If UCase(WScript.ScriptFullName)=UCase(_

CreateObject("WScript.Shell")_
.CreateShortcut(raccourci)_
.TargetPath _
) _
Then C_Moi=True
End Function

Sub Executer(raccourci)
CreateObject("WScript.Shell").Run """"&raccourci&""""
End Sub
'---8<---Multi_Raccourcis.VBS---Jean-JMST-Belgium---

Amicalement,

--
Jean - JMST
Belgium