Changing EXE's path on 100's PC's...efficiently?!

sciclunam · Jan 28, 2004

Hi all,

Hope someone can help me with this.

I have been given the (tedious) task to go to all our company's computers and replace the path of all application shortcuts we have created ourselves. We will be changing the name of the server/drive and folders and this is why we need to do this.

However not all pc's have all the same shortcuts because they have different applications. I thought of doing this through the login script. My question is:

How can I search the exisiting shortcuts on the desktop and start menu and if found be replaced by the new ones?

Thanks

Mario

Getting married in Malta?
Visit http:

http://www.TheWeddingSite.com

PHV · Jan 28, 2004

What have you so far ?
You may consider the following objects:
WScript.Shell, Scripting.FileSystemObject
and the following methods/properties:
ExpandEnvironmentStrings, SpecialFolders, CreateShortcut

Hope This Help
PH.

hervebin · Jan 28, 2004

Hello

See it ! It can help you.

http://www.enterpriseitplanet.com/resources/scripts_win/article.php/3081941

Herve

sciclunam · Jan 28, 2004

HI,

I am new to scripting and because of the many different of combinations of applications and pc's we think of doing it manually or sending a batch file to copy respective shortcuts by email to particular persons so that we can distinguish what s.cuts should be copies on what pc.s.

Thanks for your help

Getting married in Malta?
Visit http:

http://www.TheWeddingSite.com

markdmac · Jan 28, 2004

I was faced with a similar problem. Here was my solution. Save the code below to a text file. Call it icons.hta and you are in business for making new icons witht he path you specify. Just have your users delete the old ones.

<html>
<head>
<script language=vbscript>
Sub MakeIcon(ByVal typ)

On Error Resume Next
set fso = CreateObject("Scripting.FileSystemObject&quot

set WshShell = CreateObject("Wscript.Shell&quot

set WshNet = CreateObject("Wscript.Network&quot

' trim down user name.

NoGo = False
Select Case typ

Case 1
targ = "C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE"
strLnk = "\Access.lnk"
Case 2
targ = "C:\Program Files\Microsoft Office\Office10\Excel.EXE"
strLnk = "\Excel.lnk"
Case 3
targ = "C:\Program Files\Microsoft Office\Office10\POWERPNT.EXE"
strLnk = "\PowerPoint.lnk"
Case 4
targ = "C:\Program Files\Microsoft Office\Office10\WINWORD.EXE"
strLnk = "\Word.lnk"

Case 5
targ = "C:\Winnt\System32\Calc.EXE"
strLnk = "\Calculator.lnk"
Case 6
targ = "C:\Winnt\defptr.exe"
strLnk = "\DefaultPrinter.lnk"
Case 7
targ = "C:\Program Files\Winzip\Winzip32.EXE"
strLnk = "\Winzip.lnk"
Case 8
targ = "C:\Program Files\Other1\Other1.EXE"
strLnk = "\Other1.lnk"
Case 9
targ = "

http://intranet/login.asp"

strLnk = "\other2.url"

Case Else
NoGo = True
End select

If NoGo = False Then
strDsk = WshShell.SpecialFolders("Desktop&quot

strshortcut = strDsk & strLnk
If Not fso.FileExists(strshortcut) Then
set oUrlLink = WshShell.CreateShortcut(strshortcut)
oUrlLink.TargetPath = targ
oUrlLink.Save
End If
End If

End Sub

</script>
</head>

<body bgcolor="#3E6DA5">
<p align="center"><center>
<H1>Desktop Icons</H1></center></p>
<div align="center">
<center>

<H1><font color="#FFFFFF">Want Desktop Icons?  Pick and choose which ones you want using the buttons below.</font></H1>

<table cellpadding="3" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" style="border-collapse: collapse" bordercolor="#FFFFFF" cellspacing="0" border="4">
<tr>
<td bgcolor="#7B97E0" align="center" bordercolorlight="#FFFFFF" bordercolordark="#000066" bordercolor="#FFFFFF">
<form name=shrtcut method="GET">
<center>
<br>
<font color="#FFFFFF"><b>MS Office Applications</b></font><br><hr>
<input type="button" value="Access" name="typ" onclick="MakeIcon(1)">
<input type="button" value="Excel" name="typ" onclick="MakeIcon(2)">
<input type="button" value="PowerPoint" name="typ" onclick="MakeIcon(3)">
<input type="button" value="Word" name="typ" onclick="MakeIcon(4)"><br><br>
<font color="#FFFFFF"><b>Utilities</b></font><br><hr>
<input type="button" value="Calculator" name="typ" onclick="MakeIcon(5)">
<input type="button" value="Default Printer" name="typ" onclick="MakeIcon(6)">
<input type="button" value="Winzip" name="typ" onclick="MakeIcon(7)"><br><br>
<font color="#FFFFFF"><b>Other Applications</b></font><br><hr>
<input type="button" value="Other1" name="typ" onclick="MakeIcon(8)">
<input type="button" value="Intranet Application" name="typ" onclick="MakeIcon(9)">

</center>
</form>
</tr></td>
</table>

Need more icons? E-Mail Tech-Support for an updated icon file.
</center>
</div>

</body></html>

TheBitDoctor · Jan 28, 2004

sciclunam:

check out:

http://www.microsoft.com/technet/tr...echnet/scriptcenter/scrguide/sas_wsh_aytf.asp

You'll need to check the TargetPath property for your old path value and change it to your new path.

ie:
from: TargetPath = "C:\MyData\Old\Path\MyFile.exe"
to: TargetPath = "C:\YourData\New\Path\MyFile.exe"

Since users can map a drive to any letter they like you should retain the drive letter and only replace the part of the path that got changed.

Ron

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Changing EXE's path on 100's PC's...efficiently?!

sciclunam

Programmer

PHV

MIS

hervebin

IS-IT--Management

sciclunam

Programmer

markdmac

MIS

TheBitDoctor

Programmer

Similar threads

Part and Inventory Search

Sponsor