[VBScript] est-il possible de connaitre la cible,etc. d'un raccour
6 réponses
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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean
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.
'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 :
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.
'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 :
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.
'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 :
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.
'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 :
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.
'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 :
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.
'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 :
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
Damien
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 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 :-)
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
Jean
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
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---
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
Damien
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
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---
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---