Vista - Change filename using a wildcard

Hi. I'm trying to rename a desktop shortcut that the prefix will remain the
same but the suffix changes. How can I use a wildcard when refering to a
specific shortcut?

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set oShell = CreateObject( "WScript.Shell" )
ComputerName=oShell.ExpandEnvironmentStrings("%ComputerName%")

'This is where I included the * after Shortcut to as-sysa in the filename
objFSO.MoveFile "C:\Documents and Settings\All Users\Desktop\Shortcut to
a2-sysa*" , "C:\Documents and Settings\All Users\Desktop\A2-SYSA " &
ComputerName & ".lnk"

"touch0ph" <touch0ph@xxxxxx> wrote in message
news:76D67F25-85F4-4B45-AEE7-F0B8FF337195@xxxxxxYour requirement "the prefix will remain the same but the suffix changes"
seems at odds with your example where you change
"Shortucut to a2-sysa*"
to
"as-sysaPC1.lnk"

It seems you wish to do four separate things:
1. Delete all leaders called "Shortcut to "
2. Take the remaining characters up to the full stop (which you do not spell
out)
3. Add the ComputerName
5. Add the string ".lnk".
Would this be correct? Why don't you do it manually?

"touch0ph" <touch0ph@xxxxxx> wrote in message
news:F6B8C066-607C-4BC5-A0C0-C2AA1114C795@xxxxxxIndeed: Automating a process can be a great productivity tool. Before
undertaking such a task one needs to be clear about a few things:
a) The complexity of the task
b) How much time is required to automate the process
c) Who does the work

In your case the following points seem relevant:
- Do you wish to process all items located on the desktop?
- Including those located in the "All Users" folder?
- Including those in subfolders?
- Do you have some code of your own that could serve as a framework, with
respondents filling the difficult details?
- What do you mean with "the PC has no label"? A blank "%ComputerName%"? I
thought this was impossible?

"Pegasus [MVP]" wrote:
The script will be used by a team of about 12 PC techs on about 2500 desktop
PC's and laptops. I'm trying to cut down the time they have to spend doing
mundane, repititve tasks that can be done automatically.
No, not all. There are seven desktop icons I'd like to rename. They will
always start with 1 of 2 naming conventions: "Shortcut to ......" or
"A2-SYSA"

Including those located in the "All Users" folder?
The icons are all in the "All Users\Desktop" folder. I don't need to go
through all the user profiles.

Do you have some code of your own that could serve as a framework, with
respondents filling the difficult details?
We have a naming convention that I would


What do you mean with "the PC has no label"? A blank "%ComputerName%"? I
thought this was impossible? A label, like a physical label on the
computer chassis.


What I'm asking for is a reference or example of code I could use to rename
a desktop shortcut, on the All Users\Desktop, where I know the first portion
of the shortcut name, but the ending is different. I figured a wildcard
charcater would work best but if there's another method that would be great
too!
TIA!

"touch0ph" <touch0ph@xxxxxx> wrote in message
news:3049D6F9-2914-418B-B94F-903D6D87DCA2@xxxxxxHere you have some skeleton code. You'll have to expand it to suit your
needs and make it robust, e.g. by doing this:
- Add wildcard capability
- Check if the file exists
- Check if it can be renamed
- Add user feedback

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWshShell = CreateObject("WScript.Shell")
sOldName =
oWshShell.ExpandEnvironmentStrings("%AllUsersProfile%\Desktop\Shortcut to
Explorer.lnk")
sNewName =
oWshShell.ExpandEnvironmentStrings("%AllUsersProfile%\Desktop\Explorer
%ComputerName%.lnk")
oFSO.MoveFile(sOldName, sNewName)