Laufwerksmapping funktioniert nicht sauber.... Windows 8

Hi,
UAC ist ausgeschaltet......

LG
Carsten

Hallo,

hier der Auszug aus dem vbs....

Dim objFSO,objFILE,objShell,objNetwork,strKeyPath, strValueName,strComputer
set objFSO=CreateObject("Scripting.FileSystemObject")
set objShell=CreateObject("Wscript.Shell")
set objNetwork=CreateObject("Wscript.Network")

'Map network drives
'***

If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Gruppe1") Then MapIt "J:","\\SERVERNAME\SHARE"
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Gruppe1") Then MapIt "L:","\\SERVERNAME\SHARE\DATA\ACCOUNT"
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Gruppe1") Then MapIt "O:","\\SERVERNAME\SHARE\DATA\Transfer"


Wie bereits gesagt, wenn ich das Script nach dem Anmelden nochmal ausführe geht alles.
Auch net use funktioniert. Habe allerdings die Laufwerke vorher getrennt.


dass die UAC in Win 8 auch auf kleinster Stufe noch aktiv ist, habe ich auch herausgefunden.

Habe jetzt die UAV auf niedrig gestellt und folgenden Eintrag in der Registry auf "0" gesetzt.

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"EnableLUA"=dword:00000000

Leider funktioniert es immer noch nicht.

Danke an Alle.

Gruß
C.

Hi Nobody,
ja du hast recht, habe mich nur vertippt.....

das DATA gehört nicht dahin.

es ist jetzt auf jeden fall so, das wenn ich auch das Mapping von J - L - O klicke,
sehe ich immer alle drei Ordner und nicht den entsprechenden Inhalt.

Gruß
Carsten

Hi,
nochmal, also auf dem Server gibt es eine Ordner mit dem Namen "Share" in diesem Ordner gibt es die Ordner "Account", "Data", Transfer.

J zeigt auf den Ordner "Share,
L zeigt auf den Ordner "Account"
O zeigt auf den Ordner "Transfer"

von daher stimmt mein Script, da es ja auch unter XP, Windows 7 ohne Probleme läuft.
Nur eben nicht unter Windows 8.
Allerdings, wenn ich nach dem Login alle Netzwerk-Laufwerke lösche und dann das Script ausführe funktioniert alles Tipp-Top.

Daher ist wohl nicht das Script falsch, sondern evtl irgendwelche Settings an Windows 8.

Gruß
Carsten

Hi,
hier mal das ganze Script:

'Created: 02/29/2012 09:00:00 PM
'
'Created by SAPIEN Technologies, Inc. Logon Script Generator
'

Dim instances, instance, cs
Set instances = GetObject(_
"winmgmts:./root/cimv2")._
InstancesOf(_
"Win32_ComputerSystem")
For each instance in instances
Set cs = instance
next
If cs.DomainRole > 1 Then
WScript.Quit
End If


On Error Resume Next
Dim objFSO,objFILE,objShell,objNetwork,strKeyPath, strValueName,strComputer
set objFSO=CreateObject("Scripting.FileSystemObject")
set objShell=CreateObject("Wscript.Shell")
set objNetwork=CreateObject("Wscript.Network")

'Map network drives
'*

'*Global Mappings
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Gruppe1") Then MapIt "J:","\\Servername\SHARE"
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Gruppe1") Then MapIt "S:","\\Servername\SHARE\SCAN"
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Gruppe1") Then MapIt "O:","\\Servername\SHARE\Transfer"


'End of main script


'
'Function PasswordExpires(strDomain,strUser)
'On Error Resume Next
'Dim objUser
'Set objUser=GetObject("WinNT:" & strDomain & "/" & strUser & ",user")
'PassExp=INT(objUser.MaxPasswordAge/86400)-INT(objUser.PasswordAge/86400)

'If PassExp<0 Then
' strPassMsg="Your password never expires."
'Else
'strPassMsg="Your password expires in " & PassExp & " day(s)"
'end If

'PasswordExpires=strPassMsg
'End Function

Function IsAMemberOf(strDomain,strUser,strGroup)
On Error Resume Next
Set objUser=GetObject("WinNT:" & strDomain & "/" & strUser & ",user")
Set objGrp=GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")

If objGrp.IsMember(objUser.ADsPath) Then
IsAMemberOf=True
Else
IsAMemberOf=False
End If

End Function

Sub MapIt(strDrive,strMap)
On Error Resume Next
If objFSO.DriveExists(strDrive) Then objNetwork.RemoveNetworkDrive(strDrive)

objNetwork.MapNetworkDrive strDrive,strMap

If Err.Number<>0 And blnShowError Then
strMsg="There was a problem mapping drive " & UCase(strDrive) & " to " &_
strMap & VbCrLf & strHelpMsg & VbCrLf & "Error#:" & Hex(err.Number) &_
VbCrLf & Err.Description
objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation
Err.Clear
End If

End Sub


Gruß
Carsten

Hi,
jetzt komme ich an meine Grenzen den ich bin ein absoluter script newbie, das script habe ich mit einen tool erstellt.....
Popup, verzögern, ????

Gruß
C.

ok, werde es morgen gleich mal testen....

und ohne Popup?

Danke
Carsten