Solved

I'm having trouble with a vbscript that maps network drives

Posted on 2009-04-07
5
223 Views
Last Modified: 2012-05-06
This is a three-part issue:

1. Out of nowhere, our network drive mapping disappeared on our desktops and laptops. What would cause that?

2. On at least a couple of my desktops, it won't even give me an option to map a network drive under My Computer. How can I give these users and/or computers mapping capability?

3. I receive a Microsoft VBScript compilation (800A0400) Expected statement error on a computer and user I recently added to the domain. There's a problem with the last line.  The code is listed below.
Const Drive_H     = "cn=fake1"

Const Drive_S     = "cn=fake2"

Const Drive_L     = "cn=fake3"

Const Drive_V     = "cn=fake4"

Const Drive_M     = "cn=fake5"

Const Drive_Y     = "cn=fake6"
 

Dim wshNetwork,strUserName

Set wshNetwork = CreateObject("WScript.Network")

Set ADSysInfo = CreateObject("ADSystemInfo")

Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
 

' msgbox (wshNetwork.UserName)
 

strGroups = LCase(Join(CurrentUser.MemberOf))
 

' msgbox (strGroups)
 

On Error Resume Next
 

If InStr(strGroups, Drive_Y) Then

    WshNetwork.RemoveNetworkDrive "y:", yes, yes 

    wshNetwork.MapNetworkDrive "y:", "\\server\sharedfolder$"

end if
 

If InStr(strGroups, Drive_H) Then

    WshNetwork.RemoveNetworkDrive "h:", yes, yes 

    wshNetwork.MapNetworkDrive "h:", "\\server\users\" & wshNetwork.UserName

end if

If InStr(strGroups, Drive_L) Then

    WshNetwork.RemoveNetworkDrive "l:", yes, yes 

    wshNetwork.MapNetworkDrive "l:", "\\server2\CC40"

end if

 If InStr(strGroups, Drive_M) Then

    WshNetwork.RemoveNetworkDrive "m:", yes, yes 

    wshNetwork.MapNetworkDrive "m:", "\\server\sharedfolder2$"

end if

If InStr(strGroups, Drive_S) Then

    WshNetwork.RemoveNetworkDrive "s:", yes, yes 

    wshNetwork.MapNetworkDrive "s:", "\\server\sharedfolder3$"

    

End If

If InStr(strGroups, Drive_V) Then

    WshNetwork.RemoveNetworkDrive "v:", yes, yes 

    wshNetwork.MapNetworkDrive "v:", "\\server\sharedfolder4$"

end if
 

Wscript.Quit
 
 

\\server\sysvol\ya.local\scripts\SBS_LOGIN_SCRIPT.bat

Open in new window

0
Comment
Question by:TexasEx95
  • 3
5 Comments
 
LVL 65

Accepted Solution

by:
RobSampson earned 500 total points
ID: 24094029
Hi there,

1) No idea....that's a bit broad...perhaps related to point 2 though....

2) Try having a look at this registry value
HKEY_CURRENT_USER
Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Name: NoNetConnectDisconnect
Value: 1 Enable
Value: 0 Disable

and if that's set, there may be a group policy setting configured to prevent the mapping of drives.

3) This line
\\server\sysvol\ya.local\scripts\SBS_LOGIN_SCRIPT.bat

should be
Set objShell = CreateObject("WScript.Shell")
objShell.Run "\\server\sysvol\ya.local\scripts\SBS_LOGIN_SCRIPT.bat", 1, True

Regards,

Rob.
0
 
LVL 65

Assisted Solution

by:RobSampson
RobSampson earned 500 total points
ID: 24094044
The group policy setting looks to be
Administrative Templates\Windows Components\Windows Explorer\Remove Map Network Drive and Disconnect Network Drive

Remove "Map Network Drive" and "Disconnect Network Drive"
http://msdn.microsoft.com/en-us/library/ms812045.aspx

Regards,

Rob.
0
 

Author Comment

by:TexasEx95
ID: 24100824
RobSampson,

I'm very much a newbie to vbscript. When you say remove "Map Network Drive" and "Disconnect Network Drive," would lines 22 and 23 then read the following as an example?

WshNetwork. "y:", yes, yes
wshNetwork. "y:", "\\server\sharedfolder$"

Thanks for your help,
TexasEx95
0
 
LVL 65

Assisted Solution

by:RobSampson
RobSampson earned 500 total points
ID: 24101758
These lines remove and connect a drive:
   WshNetwork.RemoveNetworkDrive "h:", yes, yes
   WshNetwork.MapNetworkDrive "h:", "\\server\users\"

But the "yes" should be changed to True throughout.

   WshNetwork.RemoveNetworkDrive "h:", True, True
   WshNetwork.MapNetworkDrive "h:", "\\server\users\"

Regards,

Rob.
0

Featured Post

Zoho SalesIQ

Hassle-free live chat software re-imagined for business growth. 2 users, always free.

Question has a verified solution.

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

The System Center Operations Manager 2012, known as SCOM, is a part of the Microsoft system center product that provides the user with infrastructure monitoring and application performance monitoring. SCOM monitors:   Windows or UNIX/LinuxNetwo…
A quick step-by-step overview of installing and configuring Carbonite Server Backup.
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
This is used to tweak the memory usage for your computer, it is used for servers more so than workstations but just be careful editing registry settings as it may cause irreversible results. I hold no responsibility for anything you do to the regist…

896 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

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now