Map network drives

[timbo343]

i think i got this script off this site, but just need a little help...

	Const Staff 		= "cn=staff"
	Const Maths 		= "cn=mathematics"
	Const PowerStaff 	= "cn=powerstaff"
	Const ITTeach 		= "cn=information technology"
	Const ITAdmin 		= "cn=admin"
	Const DesignTechnology	= "cn=design technology"
	Const H2L		= "cn=special needs"

' admin settings
	
	Const AdminStaff	= "cn=generaladmin"
	Const OfficeGroup	= "cn=Office Group"
	

		Set wshnetwork = CreateObject("WScript.Network")
		Set ADSysInfo = CreateObject("ADSystemInfo")
		Set CurrentUser = GetObject("LDAP://" & ADSysInfo.Username)
		strGroups = LCase(Join(CurrentUser.MemberOf))


' general users

			

If Instr(strGroups,staff) Then
On Error Resume Next
			wshnetwork.RemoveNetworkDrive "p:"
			wshnetwork.RemoveNetworkDrive "s:"
			wshnetwork.RemoveNetworkDrive "v:"
			wshnetwork.RemoveNetworkDrive "q:"			

			wshNetwork.MapNetworkDrive "p:","\\hades\upublic"
			wshNetwork.MapNetworkDrive "s:","\\hades\business"
			wshNetwork.MapNetworkDrive "v:","\\hades\uapps"
			wshnetwork.mapnetworkdrive "q:","\\seth\users\home\administration"

	
	If Instr(strGroups,ITAdmin) Then

In the part between ' general users and the first IF statement is there a string that i can add to remove all network drives apart form U: as this is the users userarea. Ive tried

wshnetwor.Removenetworkconnection <> "u:"

but that didnt work. Can any one suggest anything??

Thanks

T

[NetworkGeezer]

Missing the letter 'k' before the first dot.


but seriously what you have written would test the return value ot the removeConnection method agains the string literal "u:"

I seem to remember that WSH or VBS had a drives collection.

You could foreach through that and assign each letter to counter variable then remove connections if that variable isn't equal to "u:"

[timbo343]

so something like

wshnetwork.removenetworkdrive <> "u:"

but i get a syntax error with that <> sign.

PS, there is a space between for and each lol

[mac_shinobi]

just use a select case so

Dim drv as string
drv = Instr(strGroups,staff)
select case drv

Case "u:":
Case Else:
wshnetwork.removenetworkdrive drv
End Select

Assuming that drv is the drive letter that you want removing, that way it wont do nothing to the U drive and will remove the rest, but will check it out later on if that does not work

[NetworkGeezer]

just use a select case so

Dim drv as string
drv = Instr(strGroups,staff)
select case drv

Case "u:":
Case Else:
wshnetwork.removenetworkdrive drv
End Select

Assuming that drv is the drive letter that you want removing, that way it wont do nothing to the U drive and will remove the rest, but will check it out later on if that does not work

The select case would only remove one drive if it's not u: (in which case it deletes nothing).

You either have to put the select within a loop or reverse the test and explictly list all the drives you want deleted and then the Case Else will catch anthything that shouldn't be deleted.

[djm968]

You will need to enumerate all mapped drive something like this

Set clPrinters = objNetwork.EnumPrinterConnections  
		On Error Resume Next 
		For i = 0 to clPrinters.Count - 1 Step 2 
		objNetwork.RemovePrinterConnection clPrinters.Item(i+1), true 
		Next

This will delete all mapped drives so you would have to re-map U: after.

[mac_shinobi]

just use a select case so

Dim drv as string
drv = Instr(strGroups,staff)
select case drv

Case "u:":
Case Else:
wshnetwork.removenetworkdrive drv
End Select

Assuming that drv is the drive letter that you want removing, that way it wont do nothing to the U drive and will remove the rest, but will check it out later on if that does not work

The select case would only remove one drive if it's not u: (in which case it deletes nothing).

You either have to put the select within a loop or reverse the test and explictly list all the drives you want deleted and then the Case Else will catch anthything that shouldn't be deleted.

Yeah I wasnt sure that it would work cos it didnt seem right but I had to run off and carry on with work related stuff so didnt really have a chance to do it correctly.

Ive just done a mapping network drives script and made a function to do the enumerating of mapped drives and remove them if they are already mapped and then map them etc

I can post what I have done and you can just alter it to your needs , if thats of any use ?

[NetworkGeezer]

Tim has probably moved on to other things but post it none the less it might be useful to somebody as we getting all these new users.