Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNet = CreateObject("WScript.Network")
UserName = WshNet.UserName
UserDomain = WshNet.UserDomain

Set User=GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
For Each Group in User.Groups
	If InStr(Group.Name, "shortcut_") Then
		shortcutparams = Split(Group.Description, "|")
		strName = shortcutparams( 0 )
		strPath = shortcutparams( 1 )
		strIcon = shortcutparams( 2 )
		strWorkDir = shortcutparams( 3 )
		CreateShortCut strName, strPath, strIcon, strWorkDir
	End If
Next

Sub CreateShortCut(strName, strPath, strIcon, strWorkDir)
	strDesktop = WshShell.SpecialFolders("Desktop")
	Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & strName & ".lnk")
	oShellLink.TargetPath = strPath
	OshellLink.IconLocation = strIcon
	If strWorkDir <> "-" Then oShellLink.WorkingDirectory = strWorkDir
	oShellLink.Save
End Sub