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
Solved

Add mapped network drives to computer search path

Posted on 2009-05-14
3
269 Views
Last Modified: 2012-05-07
Greetings,
Back in the popular days of Novell NetWare, there was a nice ability to define 'search drives' in a login script.  These were special network drive mappings that appeared as if they were in the local computer's PATH.    

Therefore my first question would be:  does anyone know of some equivalent app to use for Windows?

Assuming the answer of 'no', my next question is:  can anyone provide some pointers on improving an existing script?  

Enclosed is a script my predecessor used to accomplish the goal.  I don't know VB myself, but I can follow along with what it's supposed to do.  While the script does come close to what I need, it also has some drawbacks:
1. It doesn't seem to work on Vista workstations.

2. On some workstations it doesn't recognize that the script has been processed before.  It's not uncommon to see a machine with these drives added three, four, sometimes even five times to the local PATH.  Meanwhile other machines have the PATH set correctly.

3. I'd like the ability of removing these entries altogether when a user logs out from the LAN (mainly for people working offline).  I know this would be a separate script, but I'm uncertain on how to do this.

I appreciate any advice you can offer.  Thanks!


Const ForReading = 1
Dim WSHShell,strAutoLogon,strPassword,strNeed,MaybeneedW,MaybeneedX,MaybeneedY,MaybeneedZ
MaybeneedW=1
MaybeneedX=1
MaybeneedY=1
MaybeneedZ=1
strNeed=""
Set WSHShell = WScript.CreateObject("WScript.Shell")
strOrgPath = WSHShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\path")
Searchpath=Split(strOrgPath,";")
y=UBound(Searchpath)
x=0
While x<=y
	Wisthere=StrComp("W:\BIN\SETUP\",Searchpath(x),1)
	Xisthere=StrComp("X:\BIN\PGM\",Searchpath(x),1)
	Yisthere=StrComp("Y:\bin\src\",Searchpath(x),1)
	Zisthere=StrComp("Z:\public\",Searchpath(x),1)
	If Wisthere=0 then
			MaybeneedW=0
	End If	
	If Xisthere=0 then
			MaybeneedX=0
	End If				
	If Yisthere=0 then
			MaybeneedY=0
	End If	
	If Zisthere=0 then
			MaybeneedZ=0
	End If		
x=x+1
Wend
 
	If MaybeneedZ=1 Then
		strNeed=strNeed&";Z:\public\"
	End If
	If MaybeneedY=1 Then
		strNeed=strNeed&";Y:\bin\src\"
	End If
	If MaybeneedX=1 Then
		strNeed=strNeed&";X:\BIN\PGM\"
	End If
	If MaybeneedW=1 Then
		strNeed=strNeed&";W:\BIN\SETUP\"
	End If
	
strNeed=Join(searchpath,";")&strNeed
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\path", strNeed
WScript.Quit(0)

Open in new window

0
Comment
Question by:dclab
  • 2
3 Comments
 
LVL 6

Assisted Solution

by:JapyDooge
JapyDooge earned 100 total points
ID: 24390749
Hmm maybe it will work if you remap the to a local folder using subst and add that folder to the path environment variable?
0
 

Author Comment

by:dclab
ID: 24584630
Thanks for responding JapyDooge.  Not quite what I was hoping for, but I'll give it some thought.
Anyone else have some suggestions?
0
 

Accepted Solution

by:
dclab earned 0 total points
ID: 24824438
Apparently Group Policy has been extended in Windows 2008 to allow you control over many more features of the workstation.  I'm likely to go this route, in fact probably replacing the entire login script with GP settings.
0

Featured Post

Easy, flexible multimedia distribution & control

Coming soon!  Ideal for large-scale A/V applications, ATEN's VM3200 Modular Matrix Switch is an all-in-one solution that simplifies video wall integration. Easily customize display layouts to see what you want, how you want it in 4k.

Question has a verified solution.

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

Short answer to this question: there is no effective WiFi manager in iOS devices as seen in Windows WiFi or Macbook OSx WiFi management, but this article will try and provide some amicable solutions to better suite your needs.
This article will inform Clients about common and important expectations from the freelancers (Experts) who are looking at your Gig.
Internet Business Fax to Email Made Easy - With  eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, f…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.

789 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