Logon Script that maps drives, per Group

[ivan55]

Hello group

I need a Logon Script that maps drives, per Group.

I try whit this:

Set WSHNetwork = WScript.CreateObject("WScript.Network")
strUser = ""
strUser = WSHNetwork.UserName
WScript.Echo strUser




Public Sub Main()
On Error Resume Next
adsPath = "WinNT://igcali/" & strUser
Set objSAM = GetObject("WinNT:")
Set objUser = objSAM.OpenDSObject(adsPath,"","",
ADS_READONLY_SERVER)

For Each Prop In objUser.groups
Select Case Prop.Name
Case "Administrators"
Call
Division1()
Case "Division2"
Call
Division2()
Case "Division3"
Call
Division3()
End Select
Next
End Sub

Sub Division1()
strStatus = strStatus & vbCRLF & "Member of Division
1..."
oIE.document.all.wstatus.InnerText = strStatus


strHomeDir = "\\Intranet\" & strUser & "$"

WshNetwork.MapNetworkDrive "S:", "\\intranet\comer
cial"
WshNetwork.MapNetworkDrive "X:", "\\intranet\softw
are"
End Sub

I listen suggestions.

Thanks

Bye

 

[Pegasus \(MVP\)]

Hello group

I need a Logon Script that maps drives, per Group.

I try whit this:

Set WSHNetwork = WScript.CreateObject("WScript.Network")
strUser = ""
strUser = WSHNetwork.UserName
WScript.Echo strUser




Public Sub Main()
On Error Resume Next
adsPath = "WinNT://igcali/" & strUser
Set objSAM = GetObject("WinNT:")
Set objUser = objSAM.OpenDSObject(adsPath,"","",
ADS_READONLY_SERVER)

For Each Prop In objUser.groups
Select Case Prop.Name
Case "Administrators"
Call
Division1()
Case "Division2"
Call
Division2()
Case "Division3"
Call
Division3()
End Select
Next
End Sub

Sub Division1()
strStatus = strStatus & vbCRLF & "Member of Division
1..."
oIE.document.all.wstatus.InnerText = strStatus


strHomeDir = "\\Intranet\" & strUser & "$"

WshNetwork.MapNetworkDrive "S:", "\\intranet\comer
cial"
WshNetwork.MapNetworkDrive "X:", "\\intranet\softw
are"
End Sub

I listen suggestions.

Thanks

Bye

Did you try ifmember.exe, as suggested in reply to your
first post some 14 hours ago?