nethood links

[alonebfg]

ok here is the problem Getting fed up with all the drives especially for little programmes and files that dont need a drive extention so i would like to deploy the links. here is a peice of vbs i found on the net and use at the moment.

Const NETHOOD = &H13&

Set objWSHShell = CreateObject("Wscript.Shell")
Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace(NETHOOD)
Set objFolderItem = objFolder.Self
strNetHood = objFolderItem.Path

strShortcutName = "Curriculum folder nm"
strShortcutPath = "\\marcus\Curriculum"

Set objShortcut = objWSHShell.CreateShortcut _
   (strNetHood & "\" & strShortcutName & ".lnk")
objShortcut.TargetPath = strShortcutPath
objShortcut.Save

 

it works really well but being a noob at vbs not very good at creating my own scripts i have about 5 of these at the moment and want to put it into one script. Also i want to be able to delete old ones all the links i create end in nm to define the links i create from the ones users create. I hope someone can help please.