Discussion :

[Jloic]

Bonjour, je suis étudiant en informatique je suis tombé sur votre site, on faisant une recherche sur un script VBS.
J'aurai voulu savoir si vous auriez un peu de temps pour m'aidé en effet j'essai de créer un vbs pour qu' une fois lancé il mette un raccourcis d'une url de notre logiciel métiers ce que j'ai réussi grâce un tuto (http://www.octetmalin.net/windows/sc...sur-bureau.php) par contre ce logiciel ne fonctionne que sur EDGE donc je voudrait forcer l'utilisation de celui ci sans changer le navigateur par défaut, car certains utilisateurs sur notre parc utilise d'autre navigateurs, de plus il m'aurai fallu ajouter un -new window afin qu'a chaque clique sur cette icone ils ait une nouvelle fenêtre car notre logiciel ne fonctionne pas sur plusieurs onglets.

Je vous remercie par avance de m'avoir lu.
Informatiquement vôtre

[ericlm128]

Voici un exemple

Code vbs :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set Ocs = Shell.CreateShortcut(DesktopPath & "\Edge URL.lnk")
Ocs.TargetPath = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"
Ocs.Arguments = """--new-window"" ""http://www.google.fr"""
Ocs.Save

[Jloic]

Bonjour, merci, je vais essayer ça de suite.

[Jloic]

Super, ça marche impeccable merci beaucoup.
Petite question pour chipoter on peut forcer le choix d'un icône stocker sur le pc ?
Merci encore à vous

[ericlm128]

Oui,

Je mets 2 exemples

Code vbs :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set Ocs = Shell.CreateShortcut(DesktopPath & "\Edge URL.lnk")
 
Ocs.IconLocation = "C:\WINDOWS\System32\SHELL32.dll, 12" 'Via fichier contenant plusieurs icones (fichier, index)
Ocs.IconLocation = "C:\Dossier\fichier.ico" 'Via fichier icone
 
Ocs.TargetPath = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"
Ocs.Arguments = """--new-window"" ""http://www.google.fr"""
Ocs.Save

Si besoin, utiliser un outil tiers pour trouver l'index correspondant

Voir :
https://docs.microsoft.com/fr-fr/tro...rtcut-with-wsh
https://www.vbsedit.com/html/d91b9d2...6ffe9c777d.asp
https://ss64.com/vb/shortcut.html

[Jloic]

Super merci encore