Placing shortcuts on desktop

[nemaroller]

I have a program that can be installed on any networked computer. The program is accessible through the network.

Upon installation, how do I add desktop shortcuts to all computers in the network? I imagine somehow searching out the LAN and creating shortcuts on each desktop that is part of the network.

[Al Smith]

Hi,
Here's a piece of code I use to place a shortcut to an Excel file on the desktop of all the users of our NT Terminal server.
Hope this helps or gives you some ideas.
Al.

Dim bridge As IWshRuntimeLibrary.IWshShell_Class

Sub Main()
Set bridge = CreateObject("WScript.Shell")
PathName = "m:\wtsrv\profiles\"
Profile = Dir(PathName)
Do While Profile <> ""
StartupPath = "M:\WTSRV\Profiles\" & Profile & "\desktop"
Set sc = bridge.CreateShortcut(StartupPath & "\60M01-02-2002.lnk")
sc.TargetPath = "M:\WTSRV\Profiles\asmith\personal\60M01-02-2002.xls"
sc.Save
Set sc = Nothing
Profile = Dir
Loop
Set bridge = Nothing
End
End Sub

[nemaroller]

thanks ill look that over