Rename Desktop ICon

[finatic]

Hello there,
Can someone please tell me if there is an easy way to rename a desktop icon that was distributed via a scipt or some other method? The icon is a "telnet.exe ispa" that points to an IBM RS6000 when we rename the icon it works perfectly. What we want to do is to do this once for all dekstops about 150 of them. Any help will be appreciated.

 

[BigBHaller]

Here's part of a VBS script I wrote to create a shortcut to a folder in the root called C:\Local Files. You can probably extract and modify the objects/methods that you need from this:

[tt]
On Error Resume Next
Dim objWMIService, WshNet, Shell, FSO

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set WshNet = WScript.CreateObject("Wscript.Network")
Set Shell = WScript.CreateObject("WScript.Shell")
Set FSO = Wscript.CreateObject("Scripting.FileSystemObject")
DesktopPath = Shell.SpecialFolders("Desktop")

If Not FSO.FileExists(DesktopPath + "\Local Files.lnk") Then
Set linkLocalFiles = Shell.CreateShortcut(DesktopPath + "\Local Files.lnk")
linkLocalFiles.Description = "Shortcut to Local Files on local drive. Place your personal files and other documents in this directory that should not reside on the server."
linkLocalFiles.TargetPath = "C:\Local Files"
linkLocalFiles.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 66"
linkLocalFiles.WorkingDirectory = "C:\Local Files"
linkLocalFiles.Save
End If[/tt]