Un script .vbs me permet de créer sur le bureau des utilisateurs d'un réseau
un raccourci vers un intranet.
je souhaiterais modifier l'aspect de ce raccourci pour qu'il ne ressemble
pas à n'importe quel icone raccourci IE : que faut il rajouter dans mon
script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau & "\Index_reseau.lnk")
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
François Picalausa
Hello,
Tu peux trouver le modèle objet approprié à cette adresse: http://msdn.microsoft.com/library/en-us/script56/html/wsObjWshShortcut.asp
Dans ton exemple Raccourci.IconLocation = "notepad.exe, 0" Définit pour ton raccourci l'icône du bloc notes.
-- François Picalausa
"Raclie" a écrit dans le message de news:
Bonjour,
Un script .vbs me permet de créer sur le bureau des utilisateurs d'un réseau un raccourci vers un intranet. je souhaiterais modifier l'aspect de ce raccourci pour qu'il ne ressemble pas à n'importe quel icone raccourci IE : que faut il rajouter dans mon script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau & "Index_reseau.lnk")
Raccourci.TargetPath = "http://serveur/index"
Raccourci.WindowStyle = 3
Raccourci.Description = "Index reseau"
Raccourci.Save
Merci
Cécile
Hello,
Tu peux trouver le modèle objet approprié à cette adresse:
http://msdn.microsoft.com/library/en-us/script56/html/wsObjWshShortcut.asp
Dans ton exemple
Raccourci.IconLocation = "notepad.exe, 0"
Définit pour ton raccourci l'icône du bloc notes.
--
François Picalausa
"Raclie" <pre@freedent-freedom.fr> a écrit dans le message de news:
uH5HEbcNFHA.1176@TK2MSFTNGP15.phx.gbl
Bonjour,
Un script .vbs me permet de créer sur le bureau des utilisateurs d'un
réseau un raccourci vers un intranet.
je souhaiterais modifier l'aspect de ce raccourci pour qu'il ne
ressemble pas à n'importe quel icone raccourci IE : que faut il
rajouter dans mon script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau & "Index_reseau.lnk")
Tu peux trouver le modèle objet approprié à cette adresse: http://msdn.microsoft.com/library/en-us/script56/html/wsObjWshShortcut.asp
Dans ton exemple Raccourci.IconLocation = "notepad.exe, 0" Définit pour ton raccourci l'icône du bloc notes.
-- François Picalausa
"Raclie" a écrit dans le message de news:
Bonjour,
Un script .vbs me permet de créer sur le bureau des utilisateurs d'un réseau un raccourci vers un intranet. je souhaiterais modifier l'aspect de ce raccourci pour qu'il ne ressemble pas à n'importe quel icone raccourci IE : que faut il rajouter dans mon script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau & "Index_reseau.lnk")
Raccourci.TargetPath = "http://serveur/index"
Raccourci.WindowStyle = 3
Raccourci.Description = "Index reseau"
Raccourci.Save
Merci
Cécile
LE TROLL
Salut,
Les cripts c'est sur "vbScripting"
Sinon, c'est l'icône que tu veux changer de forme? Ben si c'est ça, je présume qu'il faille que tu te fasses un tas d'icônes différentes, et que tu changes à chaque bureau l'image... ---------
"Raclie" a écrit dans le message de news:
Bonjour,
Un script .vbs me permet de créer sur le bureau des utilisateurs d'un réseau un raccourci vers un intranet. je souhaiterais modifier l'aspect de ce raccourci pour qu'il ne ressemble pas à n'importe quel icone raccourci IE : que faut il rajouter dans mon script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau & "Index_reseau.lnk")
Raccourci.TargetPath = "http://serveur/index"
Raccourci.WindowStyle = 3
Raccourci.Description = "Index reseau"
Raccourci.Save
Merci
Cécile
Salut,
Les cripts c'est sur "vbScripting"
Sinon, c'est l'icône que tu veux changer de forme?
Ben si c'est ça, je présume qu'il faille que tu te fasses un
tas d'icônes différentes, et que tu changes à chaque bureau
l'image...
---------
"Raclie" <pre@freedent-freedom.fr> a écrit dans le message
de news: uH5HEbcNFHA.1176@TK2MSFTNGP15.phx.gbl...
Bonjour,
Un script .vbs me permet de créer sur le bureau des
utilisateurs d'un réseau un raccourci vers un intranet.
je souhaiterais modifier l'aspect de ce raccourci pour
qu'il ne ressemble pas à n'importe quel icone raccourci IE
: que faut il rajouter dans mon script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau &
"Index_reseau.lnk")
Sinon, c'est l'icône que tu veux changer de forme? Ben si c'est ça, je présume qu'il faille que tu te fasses un tas d'icônes différentes, et que tu changes à chaque bureau l'image... ---------
"Raclie" a écrit dans le message de news:
Bonjour,
Un script .vbs me permet de créer sur le bureau des utilisateurs d'un réseau un raccourci vers un intranet. je souhaiterais modifier l'aspect de ce raccourci pour qu'il ne ressemble pas à n'importe quel icone raccourci IE : que faut il rajouter dans mon script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau & "Index_reseau.lnk")
Raccourci.TargetPath = "http://serveur/index"
Raccourci.WindowStyle = 3
Raccourci.Description = "Index reseau"
Raccourci.Save
Merci
Cécile
Guy DETIENNE
Salut LE TROLL !
N'oublie pas qu'en incluant la bibliothèque de Script (Microsoft Scripting Runtime) dans VB, il est possible de 'scripter' en VB. Aussi, il est tout à fait possible de travailler en Late Binding avec CreateObjec pour instancier un objet de scripting.
Donc ne sois pas si 'sectaire' quand tu vois le terme scripting dans un message... Le scripting à aussi sa place dans VB car utilisable parfaitement, et parfois indispensable pour certaines actions.
A bon entendeur...
Guy
"LE TROLL" <le a écrit dans le message de news:
Salut,
Les cripts c'est sur "vbScripting"
Sinon, c'est l'icône que tu veux changer de forme? Ben si c'est ça, je présume qu'il faille que tu te fasses un tas d'icônes différentes, et que tu changes à chaque bureau l'image... ---------
"Raclie" a écrit dans le message de news: > Bonjour, > > Un script .vbs me permet de créer sur le bureau des > utilisateurs d'un réseau un raccourci vers un intranet. > je souhaiterais modifier l'aspect de ce raccourci pour > qu'il ne ressemble pas à n'importe quel icone raccourci IE > : que faut il rajouter dans mon script ? > > Dim Raccourci, Sh > > Dim Bureau > > set Sh = WScript.CreateObject("WScript.Shell") > > Bureau = Sh.SpecialFolders("AllUsersDesktop") > > set Raccourci = Sh.CreateShortcut (Bureau & > "Index_reseau.lnk") > > Raccourci.TargetPath = "http://serveur/index" > > Raccourci.WindowStyle = 3 > > Raccourci.Description = "Index reseau" > > Raccourci.Save > > > > Merci > > Cécile > > > >
Salut LE TROLL !
N'oublie pas qu'en incluant la bibliothèque de Script (Microsoft Scripting
Runtime) dans VB, il est possible de 'scripter' en VB.
Aussi, il est tout à fait possible de travailler en Late Binding avec
CreateObjec pour instancier un objet de scripting.
Donc ne sois pas si 'sectaire' quand tu vois le terme scripting dans un
message... Le scripting à aussi sa place dans VB car utilisable
parfaitement, et parfois indispensable pour certaines actions.
A bon entendeur...
Guy
"LE TROLL" <le troll@paris.fr> a écrit dans le message de
news:uDdAHwcNFHA.1300@TK2MSFTNGP14.phx.gbl...
Salut,
Les cripts c'est sur "vbScripting"
Sinon, c'est l'icône que tu veux changer de forme?
Ben si c'est ça, je présume qu'il faille que tu te fasses un
tas d'icônes différentes, et que tu changes à chaque bureau
l'image...
---------
"Raclie" <pre@freedent-freedom.fr> a écrit dans le message
de news: uH5HEbcNFHA.1176@TK2MSFTNGP15.phx.gbl...
> Bonjour,
>
> Un script .vbs me permet de créer sur le bureau des
> utilisateurs d'un réseau un raccourci vers un intranet.
> je souhaiterais modifier l'aspect de ce raccourci pour
> qu'il ne ressemble pas à n'importe quel icone raccourci IE
> : que faut il rajouter dans mon script ?
>
> Dim Raccourci, Sh
>
> Dim Bureau
>
> set Sh = WScript.CreateObject("WScript.Shell")
>
> Bureau = Sh.SpecialFolders("AllUsersDesktop")
>
> set Raccourci = Sh.CreateShortcut (Bureau &
> "Index_reseau.lnk")
>
> Raccourci.TargetPath = "http://serveur/index"
>
> Raccourci.WindowStyle = 3
>
> Raccourci.Description = "Index reseau"
>
> Raccourci.Save
>
>
>
> Merci
>
> Cécile
>
>
>
>
N'oublie pas qu'en incluant la bibliothèque de Script (Microsoft Scripting Runtime) dans VB, il est possible de 'scripter' en VB. Aussi, il est tout à fait possible de travailler en Late Binding avec CreateObjec pour instancier un objet de scripting.
Donc ne sois pas si 'sectaire' quand tu vois le terme scripting dans un message... Le scripting à aussi sa place dans VB car utilisable parfaitement, et parfois indispensable pour certaines actions.
A bon entendeur...
Guy
"LE TROLL" <le a écrit dans le message de news:
Salut,
Les cripts c'est sur "vbScripting"
Sinon, c'est l'icône que tu veux changer de forme? Ben si c'est ça, je présume qu'il faille que tu te fasses un tas d'icônes différentes, et que tu changes à chaque bureau l'image... ---------
"Raclie" a écrit dans le message de news: > Bonjour, > > Un script .vbs me permet de créer sur le bureau des > utilisateurs d'un réseau un raccourci vers un intranet. > je souhaiterais modifier l'aspect de ce raccourci pour > qu'il ne ressemble pas à n'importe quel icone raccourci IE > : que faut il rajouter dans mon script ? > > Dim Raccourci, Sh > > Dim Bureau > > set Sh = WScript.CreateObject("WScript.Shell") > > Bureau = Sh.SpecialFolders("AllUsersDesktop") > > set Raccourci = Sh.CreateShortcut (Bureau & > "Index_reseau.lnk") > > Raccourci.TargetPath = "http://serveur/index" > > Raccourci.WindowStyle = 3 > > Raccourci.Description = "Index reseau" > > Raccourci.Save > > > > Merci > > Cécile > > > >
Un script .vbs me permet de créer sur le bureau des utilisateurs d'un
réseau
un raccourci vers un intranet. je souhaiterais modifier l'aspect de ce raccourci pour qu'il ne ressemble pas à n'importe quel icone raccourci IE : que faut il rajouter dans mon script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau & "Index_reseau.lnk")
"Raclie" <pre@freedent-freedom.fr> a écrit dans le message de
news:uH5HEbcNFHA.1176@TK2MSFTNGP15.phx.gbl...
Bonjour,
Un script .vbs me permet de créer sur le bureau des utilisateurs d'un
réseau
un raccourci vers un intranet.
je souhaiterais modifier l'aspect de ce raccourci pour qu'il ne ressemble
pas à n'importe quel icone raccourci IE : que faut il rajouter dans mon
script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau & "Index_reseau.lnk")
Un script .vbs me permet de créer sur le bureau des utilisateurs d'un
réseau
un raccourci vers un intranet. je souhaiterais modifier l'aspect de ce raccourci pour qu'il ne ressemble pas à n'importe quel icone raccourci IE : que faut il rajouter dans mon script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau & "Index_reseau.lnk")
Un script .vbs me permet de créer sur le bureau des utilisateurs d'un
réseau
un raccourci vers un intranet. je souhaiterais modifier l'aspect de ce raccourci pour qu'il ne ressemble pas à n'importe quel icone raccourci IE : que faut il rajouter dans mon script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau & "Index_reseau.lnk")
Raccourci.TargetPath = "http://serveur/index"
Raccourci.WindowStyle = 3
Raccourci.Description = "Index reseau"
Raccourci.Save
Merci
Cécile
Merci à tous pour vos réponses, je vais tester.
Cécile
"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
e5pTmopNFHA.568@TK2MSFTNGP09.phx.gbl...
"Raclie" <pre@freedent-freedom.fr> a écrit dans le message de
news:uH5HEbcNFHA.1176@TK2MSFTNGP15.phx.gbl...
Bonjour,
Un script .vbs me permet de créer sur le bureau des utilisateurs d'un
réseau
un raccourci vers un intranet.
je souhaiterais modifier l'aspect de ce raccourci pour qu'il ne ressemble
pas à n'importe quel icone raccourci IE : que faut il rajouter dans mon
script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau & "Index_reseau.lnk")
Un script .vbs me permet de créer sur le bureau des utilisateurs d'un
réseau
un raccourci vers un intranet. je souhaiterais modifier l'aspect de ce raccourci pour qu'il ne ressemble pas à n'importe quel icone raccourci IE : que faut il rajouter dans mon script ?
Dim Raccourci, Sh
Dim Bureau
set Sh = WScript.CreateObject("WScript.Shell")
Bureau = Sh.SpecialFolders("AllUsersDesktop")
set Raccourci = Sh.CreateShortcut (Bureau & "Index_reseau.lnk")
