$Shell=createobject("Shell.application")
$NameSpace=$Shell.namespace("C:\Documents and Settings\niemjo\KiXforms\test.kix.lnk")
$Link=$NameSpace.self.getlink
$Link.description="testi linkki"
$Link.Path="C:\Documents and Settings\niemjo\KiXforms\test.kix"
$Link.workingdirectory="c:\"
$Link.save()

$objShell = CreateObject("Shell.Application")
$objFolderItem = $objShell.NameSpace("C:\Documents and Settings\Chris\Desktop\kixforms.zip").Self
;$objFolderItem.InvokeVerb("Create &Shortcut")

$Verbs = $objFolderItem.Verbs
For Each $Verb in $Verbs
$Verb ?
Next

for each $verb in $LinkDest.verbs
?
if instr(join(split($verb,"&"),""),readvalue("HKEY_CLASSES_ROOT\lnkfile",""))
"here is the correct verb:>" $verb "<"
$LinkDest.invokeverb($verb)
else
"not correct:>" $verb "<"
endif
next

$shell=createobject("shell.application")
$LinkDest=$shell.namespace("C:\Documents and Settings\Lurenko\desktop\tester.kix").self

for each $verb in $LinkDest.verbs
?
if instr(join(split($verb,"&"),""),readvalue("HKEY_CLASSES_ROOT\lnkfile",""))
"here is the correct verb:>" $verb "<"
$LinkDest.invokeverb($verb)
else
"not correct:>" $verb "<"
endif
next

get $

$objShell = CreateObject("Shell.Application")
$objFolderItem = $objShell.NameSpace("C:\Documents and Settings\ShiltCK\Desktop\carbgramcounter.pdf").Self
$Verbs = $objFolderItem.Verbs
For Each $Verb in $Verbs
if instr($verb,readvalue("HKEY_CLASSES_ROOT\lnkfile",""))
$objFolderItem.invokeverb($verb.name)
endif
Next

get $x

link("C:\Documents and Settings\Lurenko\Ty�p�yt�\KiXforms\bbchecker\wkix32.exe")
function Link($LinkDest)
$Shell=createobject("Shell.application")
$LinkDest=$Shell.namespace($LinkDest).self
for each $item in $LinkDest.parent.items
if $item.islink $LinkDestFolderItems=$LinkDestFolderItems+$item.modifydate+chr(10) endif
next

for each $verb in $LinkDest.verbs
if instr(join(split($verb,"&"),""),readvalue("HKEY_CLASSES_ROOT\lnkfile",""))
$LinkDest.invokeverb(""+$verb)
endif
next

for each $item in $LinkDest.parent.items
if $item.islink
$new=1
for each $itemBefore in split(left($LinkDestFolderItems,len($LinkDestFolderItems)-1),chr(10))
if $itemBefore=$item.modifydate $new=0 endif
next
if $new
$Shortcut=$item.getlink
endif
endif
next
if not vartype($Shortcut) exit 4 endif
? $Shortcut.path
endfunction

link("C:\Lonkero\KiXforms\mine")
function Link($LinkDest)
$Shell=createobject("Shell.application")
$LinkDest=$Shell.namespace($LinkDest).self

for each $verb in $LinkDest.verbs
if instr(join(split($verb,"&"),""),readvalue("HKEY_CLASSES_ROOT\lnkfile",""))
$LinkDest.invokeverb(""+$verb)
endif
next
endfunction

function Link($LinkDest, optional $workdir, optional $description, optional $saveas)
dim $Shell,$LinkDestFolderItems,$item,$verb,$new,$Shortcut
$Shell=createobject("Shell.application")
$LinkDest=$Shell.namespace($LinkDest).self

for each $item in $LinkDest.parent.items
if $item.islink $LinkDestFolderItems=$LinkDestFolderItems+$item.modifydate+chr(10) endif
next

for each $verb in $LinkDest.verbs
if instr(join(split($verb,"&"),""),readvalue("HKEY_CLASSES_ROOT\lnkfile",""))
$LinkDest.invokeverb(""+$verb)
endif
next

for each $item in $LinkDest.parent.items
if $item.islink
$new=1
for each $itemBefore in split(left($LinkDestFolderItems,len($LinkDestFolderItems)-1),chr(10))
if $itemBefore=$item.modifydate $new=0 endif
next
if $new
$Shortcut=$item.getlink
del $item.path
endif
endif
next
if not vartype($Shortcut) exit 4 endif
$Shortcut.description=""+$description
$Shortcut.workingdirectory=""+$workdir
$Shortcut.save(""+$saveas)
endfunction

First, it wasn't my intention to hijaak this thread. Sorry for that....

Let me clarify myself by explaining the whole story:

We supply our users with a driveletter connection to their department data. But requests have come in to give users access to multiple department folders. One option is to connect multiple driveletters, but we have only 26 and we have little driveletters left. The second option is to map the drive one share up, but then the user can see ALL subfolders (departments) including the ones the users doesn't have access to. It is impossible to hide these folders by changing NTFS permissions our other tricks.

Then I came up with another solution. What if we map a driveletter to an empty folder in the users roaming profile and copy the appropriate folder shortcuts (to different shares on the network) to that mapping during logon. Then the user only sees the folders he needs to see, and is still using only one driveletter. This would be a very flexible solution as there is no limit to the amount of shortcuts. The problem with folder shortcuts however is that distribution or creation through a logonscript is a bit of a problem. Ordinary shortcuts won't do as browsing back and forth through the folderstructure goes bad as soon as you go back up the structure. Then the user will see the entire network instead of the path he came from.

So using folder shortcuts is a workaround for the problem of not being able to hide folders in a Windows network.

The not hiding part is a problem that comes up frequently on network admins forums. If we can create a workaround as described many would be happy I think. At least I would!

So indeed I mean the shortcuts as one can create under My Network places, but I want to create them through a script OR be able to copy the shortcuts I make myself during logon. Both solutions are a problem for me.

I hope this clarifies the goal of my questions.

Don