Homelaufwerke werden nach serverumzug nicht mehr zugewiesen...

[rieslingtour 10]

Hallo zusammen.

 

Habe nach dem Umzug unseres Fileservers auf eine neue Maschine das Problem, dass die User ihre Homelaufwerke nicht mehr zugwiesen bekommen...

Auf dem alten Server war jedes Homelaufwerk freigegeben wie:

\\server\home\user1$

\\server\home\user2$

usw...

 

Auf dem neuen Server ist das Home selber freigegeben und die User sollen über NTFS Berechtigungen auf ihre Homelaufwerke zugreifen können. Sieht dann so aus:

\\server\home$\user1

\\server\home$\user2

usw...

 

Von den Berechtigungen funktioniert das wunderbar und ich hab nicht mehr so viel Freigaben zu verwalten...

 

Jedoch greift logischerweise das Logon-Script nicht mehr. Könnt Ihr mir bitte helfen...

Das alte Script sah so aus:

 

 

------------------------------------------------------------------------------------------------------

Option Explicit

Dim strDriveLetter1, strDriveLetter2, strDriveLetter3, strDriveLetter4

Dim strRemotePath1, strRemotePath2, strRemotePath3, strRemotePath4

Dim objNetwork, objShell

Dim CheckDrive, AlreadyConnected, intDrive

Dim strUserName

 

 

' Variablen für die Laufwerksbuchstaben zuweisen.

strDriveLetter1 = "G:"

strDriveLetter2 = "I:"

strDriveLetter3 = "J:"

strDriveLetter4 = "K:"

 

' Variablen für die Freigaben zuweisen.

strRemotePath1 = "\\server\"

strRemotePath2 = "\\server\share1"

strRemotePath3 = "\\server\share2"

strRemotePath4 = "\\server\share3"

 

 

' Die Objekte objShell und objNetwork werden erstellt

Set objShell = CreateObject("WScript.Shell")

Set objNetwork = CreateObject("WScript.Network")

Set CheckDrive = objNetwork.EnumNetworkDrives()

 

 

' Laufwerk G: Home wird zugeordnet ----------------------------------------------------------

 

' This section deals with a For ... Next loop

' See how it compares the enumerated drive letters

' with strDriveLetter

On Error Resume Next

AlreadyConnected = False

For intDrive = 0 To CheckDrive.Count - 1 Step 2

If CheckDrive.Item(intDrive) =strDriveLetter1 _

Then AlreadyConnected =True

Next

 

' Hier wird die If = then, else Logik angewand.

' Ist das Laufwerk bereits verbunden, dann wird es getrennt und neu verbunden.

' Sonst wird es direkt verbunden.

If AlreadyConnected = True then

objNetwork.RemoveNetworkDrive strDriveLetter1

strUserName = objNetwork.Username

objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 & strUserName & "$"

Else

strUserName = objNetwork.Username

objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 & strUserName & "$"

End if

 

die weiteren Laufwerkszuweisungen funktionieren....

 

------------------------------------------------------------------------------------------------------

 

Vielen Dank,

rieslingtour

[PepeLupado 10]

Kenne mich da auch net so gut aus aber kannste nicht einfach das "$" ändern?

 

If AlreadyConnected = True then

objNetwork.RemoveNetworkDrive strDriveLetter1

strUserName = objNetwork.Username

objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 & "$\" & strUserName

Else

strUserName = objNetwork.Username

objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 & "$\" & strUserName

End if

[rieslingtour 10]

Vielen Dank! Es funktioniert jetzt! :jau:

 

Hatte das \ im "$\" vergessen...