Mapping Network Drives

[Chuckster]

Using this example from the Wiki page:

 

On Error Resume next
Dim WshNetwork

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

WshNetwork.RemoveNetworkDrive "H:"
WshNetwork.RemoveNetworkDrive "I:"
WshNetwork.RemoveNetworkDrive "J:"
WshNetwork.RemoveNetworkDrive "K:"
WshNetwork.RemoveNetworkDrive "L:"
WshNetwork.RemoveNetworkDrive "M:"
WshNetwork.RemoveNetworkDrive "O:"
WshNetwork.RemoveNetworkDrive "P:"
WshNetwork.RemoveNetworkDrive "Q:"
WshNetwork.RemoveNetworkDrive "R:"
WshNetwork.RemoveNetworkDrive "S:"
WshNetwork.RemoveNetworkDrive "T:"
WshNetwork.RemoveNetworkDrive "U:"
WshNetwork.RemoveNetworkDrive "V:"
WshNetwork.RemoveNetworkDrive "W:"
WshNetwork.RemoveNetworkDrive "X:"
WshNetwork.RemoveNetworkDrive "Y:"
WshNetwork.RemoveNetworkDrive "Z:"

For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN

Select Case strGroupName


Case "AD GROUP NAME1"
	objNetwork.MapNetworkDrive "S:", "\\server\share$"

Case "AD GROUP NAME2"
	objNetwork.MapNetworkDrive "T:", "\\server\share$"

End Select
Next

 

How would one map a network drive so that it remains hidden but still accessbible except from My Computer. Any ideas?

[FN-GM]

This will do the job, this is what we use.

 

Using Group Policy Objects to hide specified drives

 

Instead of using all that VBS code you can use a batch file

 

net use * /d /y
net use s: "\\sevrer\share"
net use t: "\\server\share"

 

or instead of using all that code to disconnect all those drives you can use this VBS code, providing your home drive letter is T, you can alter it though

 

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::   Disconnect network drives left from previous login   :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
on error resume next

Set objNetwork = CreateObject("Wscript.Network")

For intLoop = Asc ("A:") To Asc ("s:")
objNetwork.RemoveNetworkDrive  Chr (intLoop) & ":", TRUE, TRUE
Next
For intLoop = Asc ("U:") To Asc ("Z:")
objNetwork.RemoveNetworkDrive  Chr (intLoop) & ":", TRUE, TRUE
Next
Wscript.Quit

 

for you it will go

 

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::   Disconnect network drives left from previous login   :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
on error resume next

Set objNetwork = CreateObject("Wscript.Network")

For intLoop = Asc ("H:") To Asc ("Z:")
objNetwork.RemoveNetworkDrive  Chr (intLoop) & ":", TRUE, TRUE
Next
Wscript.Quit

 

You will need to take out

Wscript.Quit

if you are putting it into another script.

Edited August 21, 2008 by FN-Greatermanchester
Error in VBS

[Chuckster]

Ooo, that's an interesting one. I will save that for later use.

 

However, what I was after was to map a network, e.g. K: and have it hidden, i.e. not viewable in My Computer or any other place. But can be accessed, say, from MS Word --> File --> Open and the corresponding drive letter typed in to show you what's on there.

 

The reason why I want it this way is to give Google Earth a place to write its cache files and whatnot rather than on the C drive of every computer. Also, I don't want people to be able to view the files but can write to it.

 

I hope that makes sense.

[FN-GM]

the link in my previous post will allow this - Using Group Policy Objects to hide specified drives

 

We use this to hide the sims drive.

 

z

[Chuckster]

the link in my previous post will allow this - Using Group Policy Objects to hide specified drives

 

We use this to hide the sims drive.

 

z

 

It seems like I would need to create my own binary numerical values.

 

What would the binary number be for drive letters E, which is our SIMS drive, and drive letter Z, which is going to be where Google Earth can write to?

[FN-GM]

i Think it is

 

1100100

Edited August 21, 2008 by FN-Greatermanchester

[box_l]

Windows Registry Editor Version 5.00

 

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]

"NoDrives"=dword:00800000

 

this hides my X: drive

 

this page will give you the values

 

Hide Drives in My Computer at Registry Guide for Windows

 

E: 16 + Z: 33554432 = 33554448 = (n hex) 2000010

 

 

 

 

 

BoX

Edited August 21, 2008 by box_l

[originofsymmetry]

I use Hidecalc: HideCalc - A Tool for Hiding Drive

 

Creates a custom .ADM Template with the drives you request hidden.

 

When using it however, remove any of the standard windows group policies for hiding drives as confusion occurs.

[FN-GM]

Just to add i don't think any of those methods work for vista.

[originofsymmetry]

Just to add i don't think any of those methods work for vista.

 

I've tried Hidecalc on Vista and it worked fine

[FN-GM]

ah right thats good then.

 

This is another nice little feature server 2008 has, makes life much more simple