Vista - VBscript to clear My Network Places?

Greetings all!

I'm quite new to programming and scripting, so please bear with me if I ask
seemingly mundane questions, m'kay? :-)

My employer has asked me to come up with a logon/startup script to use when
setting up a new server at a branch office. Basically, the script should
clean up any mappings referring to the old server on our employees desktop
computers. In order to minimize possible headaches when changing servers like
this, we've decided to name the new server with the same name as the old
server. Typically such changing of servers occur when servers are past their
designated end-of-life time, typically 4-5 years. Also storage might be a
factor, or should I rather say a lack of storage.

I would like my script to clear all stored network locations under "My
Network Places". That is, of course, everything except the standard "Entire
Network" and so forth. How would I go about that using VBscript? If there's
any other registry keys that come in to play, please let me know, so that I
can look into it. Like I said, I'm quite new to this winky smile

We've noticed that if there are lots of network shares located stored under
My Network Places, it will slow down Explorer significantly, especially on
CAD workstations. I reckon I'll alert the Desktop IT group about how to
Prevent Network Share Shortcuts from Being Added to My Network Places,
according to this MS KB article: http://support.microsoft.com/kb/242578, but
for the time being I'll have to come up with a script in order to clear
stored shares.

I've done some searhing for VBScripts to clear My Network Places, but I've
come up empty handed so far. I would greatly appreciate if someone could
point me in the right direction smile

Someone suggested I could use the following script:
Dim strNetHood, strMyDocuments

Set WshShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("WScript.Network")
strNetHood = WshShell.SpecialFolders("Nethood")
strMyDocuments = WshShell.SpecialFolders("MyDocuments")

Dim sNethoodArray( 6, 1 )
sNethoodArray( 1, 0 ) = "Name here"
sNethoodArray( 2, 0 ) = "Name here"
sNethoodArray( 3, 0 ) = "Name here"
sNethoodArray( 4, 0 ) = "Name here"
sNethoodArray( 5, 0 ) = "Name here"
sNethoodArray( 6, 0 ) = "Data"


Dim strDescription, strUNCPath, nIdx
For nIdx = 0 To UBound( sNethoodArray, 1 )
strDescription = sNethoodArray( nIdx, 0 )
objFSO.DeleteFile (strNetHood & "\" & strDescription & ".lnk")
Next

If I understand correctly, this script deletes entries under My Network
Places that are named specifally in the script. I really need some kind of
wildcard, as I have no idea how many locations and what their names are on
each client computer.

Any help would be greatly appreciated :-)


Regards
Dnort