Create Icon Shortcut

ASP Free Forums Sponsor:

August 27th, 2007, 04:08 PM

mehere

Senior Sarcasm Wizardess

Join Date: Feb 2005

Location: Dreamland

Posts: 12,867

Folding Points: 10976 Folding Title: Novice Folder

Time spent in forums: 4 Months 4 Weeks 15 h 20 m 54 sec
Reputation Power: 1762

Create Icon Shortcut

I need to delete an Icon Shortcut from a user's desktop and then copy another Icon Shortcut from the Server to their desktop. I was thinking of using VBScript, but not sure how to go about doing it.

Or would this be easier with a .bat file? And again, how would I go about it.

Thanks for any help you could provide.

ok ... i came across this code:

VBS Code:

Original - VBS Code


Set oFS = WScript.CreateObject("Scripting.FileSystemObject")

Set oWS = WScript.CreateObject("WScript.Shell")
strDesktop = oWS.SpecialFolders("Desktop")
Set oLink = oWS.CreateShortcut(strDesktop & "\add_file.LNK")  'Name you want to call the shortcut
delIcon = UCase(strDesktop & "\delete_file.lnk") 'Name of shortcut to be deleted

oFS.DeleteFile(delIcon)

oLink.TargetPath = "\\ServerName\Directory\file_name.exe" 'Where the file is located
oLink.WorkingDirectory = strDesktop
'The following are optional--------------------------------------
'oLink.Arguments = ""
'oLink.Description = "MyProgram"
'oLink.HotKey = "ALT+CTRL+F"
'oLink.IconLocation = "C:\Program Files\MyApp\MyProgram.EXE, 2"
'oLink.WindowStyle = "1"
'----------------------------------------------------------------
oLink.Save
Set oLink = Nothing
Set oFS = Nothing 
Set oWS = Nothing

if there's an easier way to do this, i'd be interested in hearing about it.

If you can tell me when you would use the oLink.Arguments I would appreciate it.

__________________
Come JOIN the party!!!

Quote of the Month:
Retirement: Because you've given so much of yourself to the company that you don't have anything left we can use.

Questions to Ponder:
What do you do when you see an endangered animal eating an endangered plant?

iif([sarcasm]=true,iif([you have to ask]=true,"didn't work","ha ha ha"),"not sarcasm")
copyright© 2008 sbenj69

Last edited by mehere : August 27th, 2007 at 05:35 PM.

August 28th, 2007, 02:11 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,048

Folding Points: 206875 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 5 Days 12 h 32 m 33 sec
Reputation Power: 555

Hi, mehere.

That's the proper way of creating a shortcut with WSH.

oLink.Arguments is used to provide a string of command line arguments to be appended to the target path to create the shortcut's command line.

__________________

Click the image if at any point you don't like my decision.

Scripting problems? Windows questions? Ask the Windows Guru!

Subscribe to Nilpo's Live Article Feed

August 28th, 2007, 02:28 PM

mehere

Senior Sarcasm Wizardess

Join Date: Feb 2005

Location: Dreamland

Posts: 12,867

Time spent in forums: 4 Months 4 Weeks 15 h 20 m 54 sec
Reputation Power: 1762

can you give me an example of what would go there?

also, when i delete the desktop icon ... it deletes it from the desktop directory but the icon still remains on the desktop until i restart or relogin. is this normal?

thanks nilpo for your input.

August 28th, 2007, 02:55 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,048

Time spent in forums: 5 Days 12 h 32 m 33 sec
Reputation Power: 555

Quote:

Originally Posted by mehere

can you give me an example of what would go there?

Let's say you were launching a VBS script. You might use:

TargetPath = "C:\Windows\System32\wscript.exe"
Arguments = "C:\myscript.vbs"

Quote:

Originally Posted by mehere

also, when i delete the desktop icon ... it deletes it from the desktop directory but the icon still remains on the desktop until i restart or relogin. is this normal?

You probably need to refresh your desktop. If you were really worried about it, you could stop and restart the explorer.exe process.

Quote:

Originally Posted by mehere

thanks nilpo for your input.

No problem.

August 28th, 2007, 02:58 PM

mehere

Senior Sarcasm Wizardess

Join Date: Feb 2005

Location: Dreamland

Posts: 12,867

Time spent in forums: 4 Months 4 Weeks 15 h 20 m 54 sec
Reputation Power: 1762

makes sense. thanks for your help.

August 31st, 2007, 12:32 PM

mehere

Senior Sarcasm Wizardess

Join Date: Feb 2005

Location: Dreamland

Posts: 12,867

Time spent in forums: 4 Months 4 Weeks 15 h 20 m 54 sec
Reputation Power: 1762

Quote:

You probably need to refresh your desktop. If you were really worried about it, you could stop and restart the explorer.exe process.

i've been thinking about this statement ... how would i go about doing that?

August 31st, 2007, 03:03 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,048

Time spent in forums: 5 Days 12 h 32 m 33 sec
Reputation Power: 555

vb Code:

Original - vb Code
Set WshShell = CreateObject("WScript.Shell") strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'explorer.exe'") For Each objProcess In colProcess objProcess.Terminate() Next WshShell.Run("explorer.exe")

Set WshShell = CreateObject("WScript.Shell")
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'explorer.exe'")
For Each objProcess In colProcess
    objProcess.Terminate()
Next
 
WshShell.Run("explorer.exe")

Comments on this post

jmurrayhead agrees: nice

August 31st, 2007, 08:16 PM

mehere

Senior Sarcasm Wizardess

Join Date: Feb 2005

Location: Dreamland

Posts: 12,867

Time spent in forums: 4 Months 4 Weeks 15 h 20 m 54 sec
Reputation Power: 1762

thanks nilpo ... will add that to the current code i have ... appreciate the help.

August 31st, 2007, 08:19 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,048

Time spent in forums: 5 Days 12 h 32 m 33 sec
Reputation Power: 555

Quote:

Originally Posted by mehere

thanks nilpo ... will add that to the current code i have ... appreciate the help.

no problem....you might want to add a Sleep in there to make sure the process is ended before you try to start it again.

Comments on this post

mehere agrees: my hero ... thanks nilpo