Novell Home

Consolidated Login Script

Novell Cool Solutions: Tip
By Jason Riebe

Digg This - Slashdot This

Posted: 21 Dec 2006
 

Problem:

We had a requirement to map drives to both NetWare Servers and MS Servers rather than manage multiple login scripts or having dos boxes pop up while executing the net use mappings.

Solution:

We wrote a simple VB script that does the mapping quickly and quietly. The benefit is that we now have a consolidated login script that is easy to read and maintain via edir group memberships. The line in the login script to execute this VBS is:

@wscript.exe r:\networkapps\scripts\mapdrive.vbs "P" "\\servername\sharename$"

Example:

'* Script : MapDrive.vbs
'* Purpose: This example Maps a K drive to a Windows share called "data"
'* Usage  : Runs from network shortcut or login script
'         : Syntax: MAPDRIVE.VBS "<driveletterwithoutcolon>" "<\\servername\sharename>"
'         :     eg. MAPDRIVE.VBS "K" "\\server\data"
'* 

'* Turn off error trapping

On Error Resume Next

'* Declare the necessary variables

Dim Wsh, Net, Arg
Set Wsh = Wscript.CreateObject("Wscript.Shell")
Set Net = Wscript.CreateObject("Wscript.Network")
Set Arg = Wscript.Arguments

'* If the incorrect number of arguments were supplied, quit immediately without reporting an error

If Arg.Count <> 2 Then Wscript.Quit

'* (Re)Map the drive if it doesn't already point to the correct location

If UCase(Wsh.RegRead("HKCU\Network\" & Arg.Unnamed(0) & "\RemotePath")) <> UCase(Arg.Unnamed(1)) Then
Net.RemoveNetworkDrive Arg.Unnamed(0) & ":", True, True
Net.MapNetworkDrive Arg.Unnamed(0) & ":", Arg.Unnamed(1), True
End If

'* End of script
WScript.Quit

Environment:

We are runing XP SP2 with Client 4.91 SP2 and NetWare 6.5 SP5.


Novell Cool Solutions (corporate web communities) are produced by WebWise Solutions. www.webwiseone.com

© 2014 Novell