Werbung: SecurityConsole.de verwaltet Ihre Computer mit Security Essentails aus der Cloud!
30 Tage kostenfrei testen und 20% Rabatt für Ihre Bestellung mit Promocode: WBF2685582
(Promocode gültig bis 31.12.2011)

Group:  English: Windows Server » microsoft.public.windows.server.scripting
Thread: URL Shortcut Icon Change

HTVi
TV Discussion Newsgroups

URL Shortcut Icon Change
TigerBite 5/11/2007 4:47:01 PM
I'm currently looking to deploy an URL shortcut to users desktops, but I want
to use a custom icon. How can I do that? Any help would be appreciated.
Below is what I have currently to deploy shortcut using default IE shortcut
icon. Thanks.

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Waldo Work
Requests.lnk")
oShellLink.TargetPath = "http://fmswr.com?LID=CE67DA230ed83396F2mPs2E28871"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "C:\Program Files\Internet Explorer\IEXPLORE.EXE,
0"
oShellLink.Description = "Work Request Site"
oShellLink.Save

RE: URL Shortcut Icon Change
urkec 5/11/2007 8:21:01 PM
"TigerBite" wrote:

[Quoted Text]
> I'm currently looking to deploy an URL shortcut to users desktops, but I want
> to use a custom icon. How can I do that? Any help would be appreciated.
> Below is what I have currently to deploy shortcut using default IE shortcut
> icon. Thanks.
>
> set WshShell = WScript.CreateObject("WScript.Shell")
> strDesktop = WshShell.SpecialFolders("Desktop")
> set oShellLink = WshShell.CreateShortcut(strDesktop & "\Waldo Work
> Requests.lnk")
> oShellLink.TargetPath = "http://fmswr.com?LID=CE67DA230ed83396F2mPs2E28871"
> oShellLink.WindowStyle = 1
> oShellLink.IconLocation = "C:\Program Files\Internet Explorer\IEXPLORE.EXE,
> 0"
> oShellLink.Description = "Work Request Site"
> oShellLink.Save
>

oShellLink.IconLocation = "C:\Program Files\Internet Explorer\IEXPLORE.EXE,
3"

or

oShellLink.IconLocation = "Shell32.dll, 8"

or

oShellLink.IconLocation = "C:\SomePath\SomeIcon.ico"

--
urkec

RE: URL Shortcut Icon Change
TigerBite 5/11/2007 8:34:04 PM
Thanks man, now I just have to figure out how to get the icon onto the client
computers, I already posted a new thread for that, so if you can help, you
can post it there, or here too for that matter. I'm very new to scripting so
thanks for your help.

TigerBite

"urkec" wrote:

[Quoted Text]
> "TigerBite" wrote:
>
> > I'm currently looking to deploy an URL shortcut to users desktops, but I want
> > to use a custom icon. How can I do that? Any help would be appreciated.
> > Below is what I have currently to deploy shortcut using default IE shortcut
> > icon. Thanks.
> >
> > set WshShell = WScript.CreateObject("WScript.Shell")
> > strDesktop = WshShell.SpecialFolders("Desktop")
> > set oShellLink = WshShell.CreateShortcut(strDesktop & "\Waldo Work
> > Requests.lnk")
> > oShellLink.TargetPath = "http://fmswr.com?LID=CE67DA230ed83396F2mPs2E28871"
> > oShellLink.WindowStyle = 1
> > oShellLink.IconLocation = "C:\Program Files\Internet Explorer\IEXPLORE.EXE,
> > 0"
> > oShellLink.Description = "Work Request Site"
> > oShellLink.Save
> >
>
> oShellLink.IconLocation = "C:\Program Files\Internet Explorer\IEXPLORE.EXE,
> 3"
>
> or
>
> oShellLink.IconLocation = "Shell32.dll, 8"
>
> or
>
> oShellLink.IconLocation = "C:\SomePath\SomeIcon.ico"
>
> --
> urkec
>
RE: URL Shortcut Icon Change
lorenzopolintanjr 5/15/2007 2:29:30 AM


"TigerBite" wrote:

[Quoted Text]
> I'm currently looking to deploy an URL shortcut to users desktops, but I want
> to use a custom icon. How can I do that? Any help would be appreciated.
> Below is what I have currently to deploy shortcut using default IE shortcut
> icon. Thanks.
>
> set WshShell = WScript.CreateObject("WScript.Shell")
> strDesktop = WshShell.SpecialFolders("Desktop")
> set oShellLink = WshShell.CreateShortcut(strDesktop & "\Waldo Work
> Requests.lnk")
> oShellLink.TargetPath = "http://fmswr.com?LID=CE67DA230ed83396F2mPs2E28871"
> oShellLink.WindowStyle = 1
> oShellLink.IconLocation = "C:\Program Files\Internet Explorer\IEXPLORE.EXE,
> 0"
> oShellLink.Description = "Work Request Site"
> oShellLink.Save
>

Home | Search | Terms | Imprint Contact
Newsgroups Reader - provided by WiredBox.Net
Suche nach Orten, Städten, Postleitzahlen, Vorwahlen, Kfz-Kennzeichen