Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Laufwerksmapping funktioniert nicht sauber.... Windows 8

Frage Microsoft Windows 8

Mitglied: caschopl

caschopl (Level 1) - Jetzt verbinden

05.08.2013 um 10:18 Uhr, 7313 Aufrufe, 16 Kommentare

Hallo,
ich versuche mal mein Problem zu beschreiben.

Wir nutzen Windows XP und 7 und seit kurzem Windows 8 sowie einen Windows 2008 R2 Server in unserem Netzwerk.

Laufwerke werden per Script beim Login gemappt, dieses funktioniert auch einwandfrei bis auf den Win8 PC´s.

kurze Übersicht über die Ordnerstruktur:

Server 1 hat einen Ordner (Daten) dieser wir auf Laufwerk J: gemappt
im Ordner Daten gibt es mehrere Unterordner (Abteilung 1, Abteilung 2, usw. Transfer, Public, etc)

Diese Ordner werden dann auf weitere Laufwerke gemappt.

Wenn ich jetzt die Laufwerke anklicke sehe ich nicht den Inhalt der gemappt Ordner sondern quasi den obersten Freigegebenen Ordner.


Führe ich das Script manuell aus, wird alles korrekt angezeigt und gemappt.


Ich hoffe ich konnte mein Problem einigermaßen gut beschreiben.

Danke schon mal für Eure Hilfe

LG
Carsten

Mitglied: Nobody-Is-Perfect
05.08.2013 um 12:49 Uhr
Hi,

könnte es das Problem sein?
http://www.administrator.de/forum/windows-8-logon-script-wird-nicht-ges ...

UAC ist manchmal richtig böse

Grüße
Bitte warten ..
Mitglied: caschopl
05.08.2013 um 16:14 Uhr
Hi,
UAC ist ausgeschaltet......

LG
Carsten
Bitte warten ..
Mitglied: Nobody-Is-Perfect
05.08.2013 um 17:04 Uhr
Kannst Du dann mal den Mapping-Teil Deines Scripts
und eine Ausgabe von "NET USE" in einer CMD-Shell direkt
nach der Anmeldung posten?

So langsam wird das Thema interessant
Bitte warten ..
Mitglied: Chris-75
06.08.2013 um 07:52 Uhr
Die UAC kann man in Windows 8 nicht mehr ausschalten, diese ist selbst auf niedrigster Stufe immer noch aktiv.
Bitte warten ..
Mitglied: caschopl
06.08.2013, aktualisiert um 12:25 Uhr
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.
Bitte warten ..
Mitglied: Nobody-Is-Perfect
06.08.2013 um 13:59 Uhr
Hi,

wenn ich das vorher richtig verstanden habe, sind die Shares "Account" und "Transfer" auch eigenständig eingetragen.
Müsste dann die Verbindung nicht auf "\\SERVERNAME\ACCOUNT" und "\\SERVERNAME\Transfer" lauten?

Oder hab ich jetzt schon einen Hitzeschaden?

Grüße, Nobody
Bitte warten ..
Mitglied: caschopl
06.08.2013 um 16:11 Uhr
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
Bitte warten ..
Mitglied: Nobody-Is-Perfect
06.08.2013 um 16:39 Uhr
Hi,

nochmal ... wenn ACCOUNT ein Share ist, was ich mal annehme, sollte die Verbindung nur \\SERVERNAME\ACCOUNT" lauten, nicht "\\SERVERNAME\SHARE\ACCOUNT". Entsprechendes natürlich auch für den anderen Share.

Die Zeilen müsste also eher so lauten:
01.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Gruppe1") Then MapIt "L:","\\SERVERNAME\ACCOUNT" 
02.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Gruppe1") Then MapIt "O:","\\SERVERNAME\Transfer"
Gruß, Nobody
Bitte warten ..
Mitglied: caschopl
07.08.2013 um 08:28 Uhr
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
Bitte warten ..
Mitglied: Nobody-Is-Perfect
07.08.2013 um 11:55 Uhr
Moin,

okay ... ich glaube, nun habe ich dein Mapping verstanden. Ist zwar ungewöhnlich, geht aber trotzdem.

Das Netzwerk-Mapping hat sich jedoch über die verschiednene Windows - Versionen immer etwas geändert.
Was unter XP ging, muss unter Windows 8 noch lange nicht funktionieren.

Ehrlich gesagt, habe ich das Mapping jedoch noch nie mit einem VB-Script realisiert.
Da kam im Nomalfall eine Batch zum Einsatz.

Ich habe das gerade extra mal nachgestellt mit einem einfachen Batch-Script mit entsprechenden NET USE - Befehlen.
Dabei kommt es nicht zu deinen Probleme, alle Laufwerke werden so gemapped, wie gewollt.

Benutzt Du für den MapIt dieses http://www.tek-tips.com/viewthread.cfm?qid=966050 Script?
Dann könnte man den Fehler nachstellen.

Grüße, Nobody
Bitte warten ..
Mitglied: caschopl
07.08.2013 um 14:21 Uhr
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
Bitte warten ..
Mitglied: Nobody-Is-Perfect
07.08.2013 um 16:10 Uhr
Hi,

Tja, was soll ich sagen ... kaum dass ich einen von meinen Shares mit Unterverzeichnissen eingetragen habe, läuft das Script fehlerfrei.
Und das sogar, obwohl es bei mir keine "Gruppe1" gibt ==> da gibt es also sicher noch Verbesserungsbedarf im Script.

Ansonsten läuft das Teil auf meiner Windows 8 Enterprise wunderbar und das auch mit eingeschalteter UAC.

Da muss also noch irgendetwas anderes störend sein.
Ich würde zunächst mal ein Popup z.B. mit dem aktuell verwendeten User und Domainname an den Anfang stellen,
damit die Ausführung sicher nach der Anmeldung (und nach dem Click) stattfindet.

Wenn das Popup jedoch nicht den aktuellen Nutzernamen zeigt, wäre auch das ein Hinweis.

Wenn es jedoch hilft, dann einfach das Script am Anfang verzögern, statt dem Popup.

Gruß, Nobody
Bitte warten ..
Mitglied: caschopl
07.08.2013 um 16:17 Uhr
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.
Bitte warten ..
Mitglied: Nobody-Is-Perfect
07.08.2013 um 16:29 Uhr
Okay,

einfach diese Zeile vor die If-Zeilen einfügen:
01.
objShell.PopUp "User" & objNetwork.UserDomain & "\" & objNetwork.UserName & ", IsMember:" & IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Gruppe1")
Das sollte das Script aufhalten, bis das popup bestätigt ist.

Gruß, Nobody
Bitte warten ..
Mitglied: caschopl
07.08.2013 um 16:41 Uhr
ok, werde es morgen gleich mal testen....

und ohne Popup?

Danke
Carsten
Bitte warten ..
Mitglied: Nobody-Is-Perfect
07.08.2013 um 17:00 Uhr
Na denn ...
wenn das Popup hilft,
dann wäre es auszuprobieren:

01.
WScript.Sleep 1000
wobei das eine Wartezeit von 1 Sekunde wäre.
Mit dem Wert müsste man dann rumspielen, bis ein passender gefunden ist.

Hängt aber alles vom ersten Versuch mit popup ab

Gruß, Nobody
Bitte warten ..
Ähnliche Inhalte
Windows Server
Laufwerksmapping
Frage von Bruno196Windows Server3 Kommentare

Hallo, unsere Laufwerke werden über die GPO Preferences zugewiesen. Nun wurde eines unsere Laufwerke in den Ruhestand geschickt :-) ...

Microsoft
Windows Profil sauber erneuern
Frage von DeathNoteMicrosoft7 Kommentare

Hallo. Gibt es hier eine Anleitung, wie ich am einfachsten und saubersten ein neues Userprofil in Windows einrichte bei ...

Windows Server
GPO LAufwerksmapping Priorisieren
Frage von tsunamiWindows Server2 Kommentare

Hallo, gibt es eine Möglichkeit Laufwerksmappings zu priorisieren zb vor USB Hubs? Zum Problemchen: Ein Kunde hat einen 2012 ...

PHP
Saubere URL
gelöst Frage von pcguyPHP4 Kommentare

Hallo zusammen, ich verwende in einer kleinen Webseite folgenden Code um den Seiteninhalt hinzuzufügen Damit die URL besser lesbar ...

Neue Wissensbeiträge
Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 1 StundeBatch & Shell1 Kommentar

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Humor (lol)

"gimme gimme gimme": Automatischer Test stolpert über Easter Egg im man-Tool

Information von Penny.Cilin vor 3 StundenHumor (lol)5 Kommentare

Interessant, was man so alles als Easter Egg implementiert. Ist schon wieder Ostern? "gimme gimme gimme": Automatischer Test stolpert ...

MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 18 StundenMikroTik RouterOS8 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 19 StundenSicherheit1 Kommentar

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Heiß diskutierte Inhalte
Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server17 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Frage von AkcentWindows 1015 Kommentare

Hallo, habe hier einen Windows 10 Rechner der von einem User umgefallen wurde (Beine übers Knie, an den PC ...

Linux
OpenSource Groupware
Frage von FA-jkaLinux13 Kommentare

Hallo, ich suche eine Groupware als Alternative zum Exchange. Wesentliche Aufgaben sind die Handhabung von E-Mails (persönliche und gemeinsam ...

Windows 10
Bitlocker nach Verschlüsselung nicht mehr aufrufbar!
gelöst Frage von alexlazaWindows 1013 Kommentare

Hallo, ich besitze ein HP ZBook 17 G4 mit einem Windows 10 Pro Betriebssystem. Bei diesem Problem handelt sich, ...