[VBSCRIPT] Aanmaken Network Place

[Verwijderd]

Hoe kan via VBScript een "Network Place" worden toegevoegd aan My Network Places? Ik kom niet verder dan het aanroepen van de betreffende wizard via RUNDLL32.

code:

RUNDLL32..EXE  netplwiz.dll,AddNetPlaceRunDll

Dit toont de wizard waarmee het allemaal moet gaan lukken. Ik kan alleen geen verdere parameters meegeven.

Als je kijkt hoe het eindresultaat van de wizard is krijg je de volgende situiatie:

code:

%Profile%\NetHood
   <Naam van de NetworkPlace>  (dit is een directory)
     target.lnk

Target.LNK... Dat klinkt hoopvol... Maar hoe maak ik die TARGET.LNK. Het is niet iets dat je met de CreateShortCut method van VBScript maakt. Is er een andere method?

Heeft iemand ervaring met het via een script aanmaken van networkplaces?

[Verwijderd]

Probeer dit eens: (gevonden met google)

code:

Call AddNetworkPlace ("http://demosvr01/public","Public Folders")
wscript.quit

Sub AddNetworkPlace (strUNCPath,strDescription)
 '
 'Create a shortcut to a UNC path in My Network Places
 '
 'strUNCPath:      UNC path to the network resource
 'strDescription:      Description of the shortcut that will
     '                    appear in My Network Places
 '
 on error resume next
 Set shell=CreateObject("Wscript.Shell")
 Set objShortcut=Shell.CreateShortcut(Shell.SpecialFolders("Nethood") _
 & "\" & strDescription & ".lnk")
 With objShortcut
  .TargetPath=strUNCPath
  .Description=strDescription
  .Save()
 End With
 set Shell=nothing
 set objShortcut=nothing
End Sub

[Verwijderd]

dit werkt...

alleen wordt de netwerklocatie in IE7 nu geopend als lijst, niet als werkmap

Is hier een oplossing voor?

[Creepy]

Je kickt hier een topic uit 2005 voor?
Anyway, het is hier een discussie forum en geen helpdesk. Vandaar dat we een aantal zaken willen terugzien in een vraag / topicstart. Dus mocht je echt geen oplossing kunnen vinden en het is echt een programmeer probleem dan kan je een nieuw topic openen. Let daarbij wel op Programming Beleid en dan met name Programming Beleid - De Quickstart.