?
Solved

Add network place through Logon script

Posted on 2007-11-17
16
Medium Priority
?
1,970 Views
Last Modified: 2012-08-14
I have added manually a network place using the wizard and entered this address.
http://sharepointserver:16701/sites/Netadmins/default.aspx

Now I have  many users that I need to be mapped to the same address. I would like to do that for them througha logon script.

thanks
0
Comment
Question by:jskfan
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 9
  • 7
16 Comments
 
LVL 12

Expert Comment

by:chandru_sol
ID: 20306272
Hi jskfan,

This should work for you..........


regards
Chandru
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 = "Sharepoint Server"
strShortcutPath = "http://sharepointserver:16701/sites/Netadmins/default.aspx"
 
Set objShortcut = objWSHShell.CreateShortcut _
    (strNetHood & "\" & strShortcutName & ".lnk")
objShortcut.TargetPath = strShortcutPath
objShortcut.Save

Open in new window

0
 

Author Comment

by:jskfan
ID: 20307381
the script creates a shortcut to the website, it's not exactely what I need.
when I add network place manually it creates sort of a folder where users can drop files and they will automatically show up in the sharepoint document library. that's what I need.
0
 
LVL 12

Expert Comment

by:chandru_sol
ID: 20307388
How does the folder look like?

The nethood folder is where all the my network places are stored

regards
Chandru
0
Get real performance insights from real users

Key features:
- Total Pages Views and Load times
- Top Pages Viewed and Load Times
- Real Time Site Page Build Performance
- Users’ Browser and Platform Performance
- Geographic User Breakdown
- And more

 
LVL 12

Expert Comment

by:chandru_sol
ID: 20307391
Can you also let me know when you add through mynetwork places wizard what is the URL you use to see that folder?

0
 
LVL 12

Accepted Solution

by:
chandru_sol earned 2000 total points
ID: 20307398

Just change this two location to folder

strShortcutName = "Sharepoint Server"
strShortcutPath = "http://sharepointserver:16701/sites/Netadmins/default.aspx"

since the path is URL you are seeing that as the URL shortcut.
Change to something like this

strShortcutName = "Sharepoint Server"
strShortcutPath = "\\sharepointserver\share"

Hope this helps....

regards
Chandru
0
 

Author Comment

by:jskfan
ID: 20308907
here is exactely what I did when added network place:
http://sharepointserver:16701/sites/Netadmins/Network Administrators Library/Network Administrator files

now in my network places it ceated a folder named "Network administrator files on sharepointserver"
now if I double click on it, it opens the folder with the same files that exist in sharepoint document library.
now if a user edits a file or add /delete a file inside the folder the document library also gets updated, it's jjust like one place but accessed in 2 different ways. It's also vice versa if a file gets modified/added/deleted in sharepoint document library, it will be modifed/added/deleted in Network administrator files on sharepointserver folder.
0
 

Author Comment

by:jskfan
ID: 20308914
your script creates a shortcut to the website instead of to the Network place folder.
0
 
LVL 12

Expert Comment

by:chandru_sol
ID: 20309953
Can you navigate to the user location to find a folder nethood?

c:\documents and settings\username\nethood you will find all the folders in the mynetwork places and these are shortcuts pointing to the folders and they are not the actual folders.

When you copy something or you udpate something it automatically gets updtaed

regards
Chandru
0
 

Author Comment

by:jskfan
ID: 20311878
when you get to Nethood, there are many folders there and one of the folder that I need the script to map to is Network Administrator files


 
0
 
LVL 12

Expert Comment

by:chandru_sol
ID: 20311988
Yes so if we add a shortcut referring to the folder that will showup in the mynetwork places.

Did you try this script adding a unc share?

regards
Chandru
0
 

Author Comment

by:jskfan
ID: 20312048
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 = "Sharepoint Server"
strShortcutPath ="C:\Documents and Settings\%username%\NetHood\Network Administrator files on sharepoint server"
 
Set objShortcut = objWSHShell.CreateShortcut _
    (strNetHood & "\" & strShortcutName & ".lnk")
objShortcut.TargetPath = strShortcutPath
objShortcut.Save
wscript.echo "done"






when I create a shortcut manually and put this path in the target "C:\Documents and Settings\%username%\NetHood\Network Administrator files on sharepoint server"
it works just fine but it doesn't create the shortcut when I put the same path in the script.
0
 
LVL 12

Expert Comment

by:chandru_sol
ID: 20312076
Just put the share of the server not the local system path

something like \\server\share

Hope this helps..........
0
 

Author Comment

by:jskfan
ID: 20312154
This script fixed it.


Set oWS = WScript.CreateObject("WScript.Shell")
   
   sLinkFile = "ADminFiles.LNK"
   
   Set oLink = oWS.CreateShortcut(sLinkFile)
   
   oLink.TargetPath = "C:\Documents and Settings\%username%\NetHood\Network Administrator Files on sharepointserver"
   '      oLink.Arguments = ""
   '      oLink.Description = "MyProgram"
   '      oLink.HotKey = "ALT+CTRL+F"
   '      oLink.IconLocation = "C:\Program Files\MyApp\MyProgram.EXE, 2"
   '      oLink.WindowStyle = "1"
   '      oLink.WorkingDirectory = "C:\Program Files\MyApp"
   oLink.Save
0
 
LVL 12

Expert Comment

by:chandru_sol
ID: 20312191
Oh! great!

If that sovled your purpose you can post to refund your points

regards
Chandru
0
 

Author Comment

by:jskfan
ID: 20313401
But When I put it in GPO/log script, it will create the shortcut in the same folder where the script is :
\\dCname\SYSVOL\domainname.com\Policies\{95DEF793-8EBF-4151-929D-13058E0FE581}\User\Scripts\Logon

I need the shortcut to show on user desktop
0
 
LVL 12

Expert Comment

by:chandru_sol
ID: 20313502
The above script also creates a shortcut link... Adminfile.lnk

so other script also should work.

Try this script for shortcut and hope this helps....
'##############################################################
'# CREATESHORTCUT_WSH.VBS
'# CREATES A SHORTCUT ON THE USERS DESKTOP TO A SPECIFIED FILE
'# 
'# USES: WINDOWS SCRIPT HOST
'# LANGUAGE: VISUAL BASIC SCRIPTING EDITION
'##############################################################
 
'FORCE EXPLICIT VARIABLE DECLARATION
option explicit
 
'STEP OVER ERRORS FOR CUSTOM ERROR REPORTING
on error resume next
 
'DECLARE VARIABLES
dim shell, desktopPath, link, sys32Path
 
'INSTANTIATE THE WINDOWS SCRIPT HOST SHELL OBJECT
Set shell = WScript.CreateObject("WScript.shell")
 
'SET THE PATH TO THE WINDOWS DESKTOP FOLDER & MY DOCUMENTS FOLDER
desktopPath = shell.SpecialFolders("Desktop")
sys32Path = "%SystemRoot%\system32"
 
'CREATE A SHORTCUT ON THE USER'S DESKTOP
Set link = shell.CreateShortcut(desktopPath & "\shortcut to Calculator.lnk")
 
'SET THE PROPERTIES FOR THE SHORTCUT
link.Description = "My Shortcut"
link.TargetPath = sys32Path & "\calc.exe"
link.WindowStyle = 3
link.WorkingDirectory = desktopPath
link.Save
 
'CLEANUP OBJECTS
set shell = nothing
 
'LET THE USER KNOW IF THERE WAS AN ERROR AND WHAT IT WAS
'OTHERWISE CONFIRM SHORCUT CREATION
if err.number <> 0 then
	msgbox "There was an error creating your shortcut." & vbCrLf & err.description & vbCrLf & err.source, vbOKOnly-vbExclamation, "Shortcut Builder"
else
	msgBox "Your new shortcut has been created!" & vbCrLf & "Please check your Windows Desktop.", vbOKOnly-vbInformation, "Shortcut Builder"
end if

Open in new window

0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article is meant to give a basic understanding of how to use R Sweave as a way to merge LaTeX and R code seamlessly into one presentable document.
Active Directory replication delay is the cause to many problems.  Here is a super easy script to force Active Directory replication to all sites with by using an elevated PowerShell command prompt, and a tool to verify your changes.
This tutorial will teach you the core code needed to finalize the addition of a watermark to your image. The viewer will use a small PHP class to learn and create a watermark.
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …
Suggested Courses

800 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question