Network Places

[amunn]

Hello,

I was wondering if anyone has any experience with a successful creation of network places linked to a sharepoint site using a VBS script. I have a script that I have developed where we have 2 mapped drives (which it does fine) and 3 sharepoint locations. When it does the sharepoint locations it just says "Internet Explorer" as the path in "network places" and when click on it, it opens to IE instead of exploring the location using the windows explorer like it does if it is created by sharepoint. Any suggestions?

Thanks,
Andrew

 

[philhege]

Post the code and we can work it out.

Phil H.
Some Bank
-----------
Time's fun when you're having flies.

 

[amunn]

Here is the code (vbs) that I am working with on how to do the Network Places - the 2 shared directories that are done first work just fine but when it comes to the company web (share point) it just shows them as Internet Explorer and so it starts up IE instead of starting explorer like I want it to.

Please let me know if anyone has any suggestions.

Thanks,
Andrew

----------------------------------------



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 = "Shortcut1"
strShortcutPath = "\\Network shared path\directory"
Set objShortcut = objWSHShell.CreateShortcut _
(strNetHood & "\" & strShortcutName & ".lnk")
objShortcut.TargetPath = strShortcutPath
objShortcut.Save

strShortcutName = "Shortcut2"
strShortcutPath = "\\network shared path\directory"
Set objShortcut = objWSHShell.CreateShortcut _
(strNetHood & "\" & strShortcutName & ".lnk")
objShortcut.TargetPath = strShortcutPath
objShortcut.Save

strShortcutName = "Company Web Shortcut"
strShortcutPath = "

http://companyweb:8080/link1"

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

strShortcutName = "Company Web Shortcut2"
strShortcutPath = "

http://companyweb:8080/link2"

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

strShortcutName = "Company Web Shortcut 3"
strShortcutPath = "

http://companyweb:8080/link3"

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