Create nethood shortcuts with group membership @ logon

[treay]

I want to map drives without a drive letter in Network places. I have
the two parts (removing and adding shortcuts in nethood, but cannot get
the rights checker to work with them. Take a look at what I have...


' Clear all entries in the nethood folder
Const NETHOOD = &H13&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(NETHOOD)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path & "\*.*"
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strPath)
*******
' create nethood shortcuts
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 = "Test Folder"
strShortcutPath = "\\testserver\p15141"
Set objShortcut = objWSHShell.CreateShortcut _
(strNetHood & "\" & strShortcutName & ".lnk")
objShortcut.TargetPath = strShortcutPath
objShortcut.Save


What I WANT to do is associate these with group
permissions. I need to create about 300 shortcuts for projects, departments, proposals and so on. Groups are nested and in a w2k3 domain.The clients are w2k and XP. The share names are \\server1\share1 standard shares on w2k and w2k3 servers.


Thanks in advance,

 

[mrmovie]

couple of options i can think of
1. have an ini file listing
<groupname>=<scutname>;<scutpath>
get users groupmembership+nested in memory
compare against ini file and action appropriately

2. create your security groups with a naming convention
_SCUT_<group name>
put the <scutname>;<scutpath> string into some property of the security group.... .Description perhaps
have your logon script loop through groups, when it finds one with _SCUT it grabd the .Description and actions accordingly