Netzlaufwerke verbinden am liebsten "dynamisch"

Camulus

Hallo,

vor etwas längerem hab ich mal diesen Thread erstellt:
https://autoit.de/index.php/Thre…erke-verbinden/

Das Tool gibt es immer noch und da Gruppenrichtlinien scheinbar auch nicht der Weisheit letzter Schuss sind überlege ich dranb es weiter zu entwickeln.
Momentan stehen die Laufwerke und die Pfade in einer ini Datei und werden ausgelsen und demnach verbunden

z.B. so

Spoiler anzeigen

Code

Global $S_XYZ					=	IniRead(@ScriptDir & "\drives.ini","Drives", "S_XYZ","")
Global $H_XYZ					=	IniRead(@ScriptDir & "\drives.ini","Drives", "H_XYZ","")
Global $X_XYZ					=	IniRead(@ScriptDir & "\drives.ini","Drives", "X_XYZ","")

Gemappt werden die dann so:

Spoiler anzeigen

Code

Func _MapDrives()
	_AD_Open()
	$aUser = _AD_GetUserGroups(@UserName)
				Sleep(250)
			If @LogonDNSDomain = "xyz.local" Then
					_ArraySearch($aUser, "GRP_Abteilung_IT" , 0, 0, 0, 1)
					If Not @error Then
						$Laufwerk ="H:"
						$Drive = $H_xyz  & @UserName
							_Laufwerk_verbinden($Laufwerk, $Drive)
								$Laufwerk = ""
								$Drive = ""
						$Laufwerk = "S:"
						$Drive = $S_xyz
							_Laufwerk_verbinden($Laufwerk, $Drive)
								$Laufwerk = ""
								$Drive = ""
.....

Alles anzeigen

was ganz sexy ist dass die Laufwerke auch regelmößig auf vorhendensein geprüft werden und falls nicht neu verbunden.

Was mich noch ärgert ist dass alles recht statisch ist. Dumm ist dass ich kein Entwickler bin aber dennoch der einzige der AutoIT kennt

die ini Datei sieht so aus:

Code

S_XYZ="\\coo.local\dfs\software"
X_XYZ="\\coo.local\dfs\XYZ"
H_XYZ="\\coo.local\dfs\Home$\"

Gibt es eine Möglichkeit das alles über die ini Datei zu "steuern"?
Wenn z.B. ein Laufwerk dazu kommt oder weg fällt?
Dass man das dann "nur" in der ini Datei anpasst und das Tool dieund Anzahl, Buchstaben und Pfade der Laufwerke und vielleicht auch die zugehörigen AD Gruppen "ausliesst".

Und man nicht für jedes Laufwerk einen Programmschnipsel braucht? Sondern eher eine Schleife die dann x-mal (jenachdem was in der ini steht) das gleiche tut?

Obwohl es seit Jahren "angeblich" nich mehr durch uns supportet wird muss man eben doch alle Jubeljahre mal was ändern und gerade diese Woche hätte es richtig geknallt wenn ich nicht da gewesen wäre und noch mal eben was hätte anpassen können

Oder ist die Idee völliger Quatsch und es gibt einen wesentlich besseren Weg?

Ach, das alles für 4 Domänen und 4 ADs aus denen die Gruppen ausgelesen werden

gmmg

@ Camulus: Ich würde das anderes herum aufziehen.

Alle Gruppen und LW je nach Gruppe in die Ini schreiben (siehe unten mal als Beispiel)

mit IniReadSection die Gruppen aus der Ini in ein Array lesen und danach per Schleife abarbeiten.

AutoIt

#include <Array.au3>
Local $aArray = IniReadSection("D:\Map.ini", "Groups")
_ArrayDisplay ($aArray)
;~  ; Check if an error occurred.
;~  If Not @error Then
;~      ; Enumerate through the array displaying the keys and their respective values.
;~      For $i = 1 To $aArray[0][0]
;~          MsgBox(0, "", "Key: " & $aArray[$i][0] & @CRLF & "Value: " & $aArray[$i][1])
;~      Next
;~  EndIf
For $i = 1 To $aArray[0]
	$is_member = _AD_IsMemberOf($aArray[$i], @UserName)
	If $is_member = 1 Then
		;MsgBox(0,"",$is_member & $aArray[$i])
		;lese die entsprechende InISection und verarbeite die MAPDrive Anweisung ... das muss noch ergänzt werden :)
	EndIf
Next

Alles anzeigen

Ini

Code

[Groups]
1=Group1
2=Group2
3=Group3
4=Group4
5=Group5
6=Group6


[Group1]
LW1


[Group2]
LW1
LW2
LW3


[Group3]
LW1
LW2

Alles anzeigen

Gruß gmmg

Edit: Skripcode formatiert (auto)Bert

Camulus

Ok, das ist eigentlich das was ich wollte...allerdings sind Arrays böhmiche Dörfer bei mir... das vergisst man immer alles wieder:

So sieht es momentan aus:

C

#include <AD.au3>
#include <Array.au3>
Local $aArray = IniReadSection(@ScriptDir &"\Map.ini", "Groups")
_ArrayDisplay ($aArray)
;~  ; Check if an error occurred.
;~  If Not @error Then
;~      ; Enumerate through the array displaying the keys and their respective values.
;~      For $i = 1 To $aArray[0][0]
;~          MsgBox(0, "", "Key: " & $aArray[$i][0] & @CRLF & "Value: " & $aArray[$i][1])
;~      Next
;~  EndIf
For $i = 1 To $aArray[0]
	$is_member = _AD_IsMemberOf($aArray[$i], @UserName)
	If $is_member = 1 Then
 		MsgBox(0,"",$is_member & $aArray[$i])
		;lese die entsprechende InISection und verarbeite die MAPDrive Anweisung ... das muss noch ergänzt werden :)
	EndIf
Next

Alles anzeigen

Und ich bekomme diesen Fehler:
(14) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

Kann mir da noch jemand auf die Sprünge helfen?

Camulus

Ich glaub ich hab es...
oder hab ich jetzt Bockmist gebaut?

C

#include <AD.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>


Local $aArray = IniReadSection(@ScriptDir &"\Map.ini", "Groups")


_ArrayDisplay ($aArray)
 ; Check if an error occurred.
;~  If Not @error Then
;~      ; Enumerate through the array displaying the keys and their respective values.
;~      For $i = 1 To $aArray[0][0]
;~          MsgBox(0, "", "Key: " & $aArray[$i][0] & @CRLF & "Value: " & $aArray[$i][1])
;~      Next
;~  EndIf
	_AD_Open()


For $i = 1 To $aArray[0][0]


	$is_member = _AD_IsMemberOf($aArray[$i][1], @UserName)


	If $is_member = 1 Then


 		MsgBox(0,"",$is_member & $aArray[$i][1])
		;lese die entsprechende InISection und verarbeite die MAPDrive Anweisung ... das muss noch ergänzt werden :)
	EndIf
Next

Alles anzeigen

gmmg

genau so sollte es gehen...

AutoIt

#include <ad.au3>
    #include <Array.au3>
    #include <MsgBoxConstants.au3>
    Local $aArray = IniReadSection("D:\Map.ini", "Groups")
    _ArrayDisplay ($aArray)
     ; Check if an error occurred.
    ;~  If Not @error Then
    ;~      ; Enumerate through the array displaying the keys and their respective values.
    ;~      For $i = 1 To $aArray[0][0]
    ;~          MsgBox(0, "", "Key: " & $aArray[$i][0] & @CRLF & "Value: " & $aArray[$i][1])
    ;~      Next
    ;~  EndIf
    	_AD_Open()
    For $i = 1 To $aArray[0][0]
    	$is_member = _AD_IsMemberOf($aArray[$i][1], @UserName)


		If $is_member <> 1 Then
     		;MsgBox(0,"",$is_member & $aArray[$i][1])
			Local $aArray_MAPDRIVE = IniReadSection("D:\Map.ini", $aArray[$i][1])
			_ArrayDisplay ($aArray_MAPDRIVE)


			For $i = 1 To $aArray_MAPDRIVE[0][0]
				; MAPDrive 
			Next


    	EndIf
    Next

Alles anzeigen

im Anhang nochmal eine INI

Camulus

Wir kommen der Sache näher.

C

#include <AD.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>


Local $aArray = IniReadSection(@ScriptDir &"\Map.ini", "Groups")


_ArrayDisplay ($aArray)
 ; Check if an error occurred.
;~  If Not @error Then
;~      ; Enumerate through the array displaying the keys and their respective values.
;~      For $i = 1 To $aArray[0][0]
;~          MsgBox(0, "", "Key: " & $aArray[$i][0] & @CRLF & "Value: " & $aArray[$i][1])
;~      Next
;~  EndIf
	_AD_Open()


For $i = 1 To $aArray[0][0]




	$is_member = _AD_IsMemberOf($aArray[$i][1], @UserName)




	If $is_member = 1 Then


	$group = $aArray[$i][1]
	MsgBox("","Array",  $group)


	Local $aDrive =iniReadSection(@ScriptDir &"\Map.ini",	 $aArray[$i][1] )
	 _ArrayDisplay ($aDrive)
		MsgBox("","Drive:" ,$aDrive [$i][1])




;lese die entsprechende InISection und verarbeite die MAPDrive Anweisung ... das muss noch ergänzt werden :)
	EndIf
Next

Alles anzeigen

Aber jetzt hab ich ein Problem mit den Laufwerksbuchstaben.
Due Idee war DriveMapAdd mit $aDrive zu füllen ,aber das geht natürlich nicht

Die Buchstben unterscheiden sich natürlich nach Gruoppen;)

Hat da noch jemand eine zündende Idee?

Camulus

Ich bin noch etwas verwirrt wegeen dem Array bzw den Arrays und wie ich die Laufwerksbuchstaben verwurste.

Die Idee ist die Ini dann so aufzubauen

[Groups]
1=GRP_Abteilung_IT
[GRP_Abteilung_IT]
LW1="X:"
Pfad1="\\xyz.local\dfs\software"

Code

For $i = 1 To $aArray[0][0]




	$is_member = _AD_IsMemberOf($aArray[$i][1], @UserName)




	If $is_member = 1 Then


	$drive = $aArray[$i][1]
	$path = $aArray[$i+1][1]
;~ 	MsgBox("","Array",  $group)


;~ 	Local $aDrive =iniReadSection(@ScriptDir &"\Map.ini",	 $aArray[$i][1] )
	Local $aDrive =iniReadSection(@ScriptDir &"\Map.ini",	 $drive )
	Local $aPath = iniReadSection(@ScriptDir &"\Map.ini",	 $path )
;~ 	 _ArrayDisplay  ($aDrive)
;~ 	 _ArrayDisplay  ($aPath)


		MsgBox("","Drive:" ,$aDrive [$i][1])
		MsgBox("","Drive:" ,$aPath [$i+1][1])


;lese die entsprechende InISection und verarbeite die MAPDrive Anweisung ... das muss noch ergänzt werden :)
	EndIf
Next

Alles anzeigen

Nur da hab ich dir richtige Kombination noch nicht;)

Oder ist die Idee Qutasch?

gmmg

mit in die Zeile vom Freigabepfad der die Ini schreiben

AutoIt

#include <Array.au3>
    #include <ad.au3>
    #include <MsgBoxConstants.au3>
    Local $aArray = IniReadSection("D:\Map.ini", "Groups")
    ;_ArrayDisplay ($aArray)
     ; Check if an error occurred.
    ;~  If Not @error Then
    ;~      ; Enumerate through the array displaying the keys and their respective values.
    ;~      For $i = 1 To $aArray[0][0]
    ;~          MsgBox(0, "", "Key: " & $aArray[$i][0] & @CRLF & "Value: " & $aArray[$i][1])
    ;~      Next
    ;~  EndIf
	_AD_Open()
    For $i = 1 To $aArray[0][0]


    	$is_member = _AD_IsMemberOf($aArray[$i][1], @UserName)
		If $is_member = 1 Then


			Local $aArray_MAPDRIVE = IniReadSection("D:\Map.ini", $aArray[$i][1])
			;_ArrayDisplay ($aArray_MAPDRIVE)


			For $i = 1 To $aArray_MAPDRIVE[0][0]
				;MsgBox(0,$is_member, $aArray_MAPDRIVE[$i][1])
				$map_details = StringSplit($aArray_MAPDRIVE[$i][1],"|")
				;_ArrayDisplay ($map_details)
				DriveMapAdd($map_details[2] & ":", $map_details[1])
			Next
    	EndIf
    Next


_AD_Close()

Alles anzeigen

INI

Code

[Groups]
1=Group1
2=Group2
3=Group3
4=Group4


[Group1]
1=\\server\freigabe1|X


[Group2]
1=\\server\freigabe1|X
2=\\server\freigabe2|W
3=\\server\freigabe3|Z


[Group3]
1=\\server\freigabe1|Z
2=\\server\freigabe2|M


[Group4]
1=\\server\freigabe1|Z
2=\\server\freigabe2|M

Alles anzeigen

bei deinem oberen Beispiel wird es komplizierter, wenn mehr als eine Freigabe verbunden werden soll ... zumindest sehe ich das so.

Gruß gmmg

Camulus

Genau sowas

Danke!

Und ja es war furchtbar kompliziert
Ich versuche es jetzt zu verstehen und baue es um.

Camulus

Eine Frage noch hinterher,

angenommen der User ist in keiner der angegebenen Gruppen kommt scheinbar dieser Fehler
(23) : ==> Subscript used on non-accessible variable.:
For $i = 1 To $aArray_MAPDRIVE[0][0]
For $i = 1 To $aArray_MAPDRIVE^ ERROR

Ich habe es mit einer Gruppe getestet in der ich bin funktioniert Super,
wenn ich die Gruppe in der ini umbenenne und ich dann in keiner mehr bin kommt dieser Fehler

Zwei Fragen:
Wenn ich in mehreren Gruppen bin scheint es auch nicht zu gehen

ini:

Code

[Groups]
1=GRP_Abteilung_IT
2=GRP_COO_IT


[GRP_Abteilung_IT]
1=\\coo.local\dfs\software|X
2=\\coo.local\dfs\software|Y


[GRP_COO_IT]
1=\\coo.local\dfs\software|Z

Alles anzeigen

Am Rest hab ich nichts geändert, aber mein User ist in beiden Gruppen.
fehler kommt keiner aber Z: wird nicht verbunden

gmmg

so hier nochmal

$is_member wurde in zeile 4 definiert und in in der For Next schleife Zeile 20 das $i durch $x ersetzt. Hier hatte es das $i hochgezählt und ist somit nicht in die richtige auswahl in der ersten For Schleife gesprungen.

AutoIt

#include <Array.au3>
    #include <ad.au3>
    #include <MsgBoxConstants.au3>
	local $is_member
    Local $aArray = IniReadSection("D:\Map.ini", "Groups")
    ;_ArrayDisplay ($aArray)
     ; Check if an error occurred.
    ;~  If Not @error Then
    ;~      ; Enumerate through the array displaying the keys and their respective values.
    ;~      For $i = 1 To $aArray[0][0]
    ;~          MsgBox(0, "", "Key: " & $aArray[$i][0] & @CRLF & "Value: " & $aArray[$i][1])
    ;~      Next
    ;~  EndIf
	_AD_Open()
    For $i = 1 To $aArray[0][0]
        $is_member = 0
    	$is_member = _AD_IsMemberOf($aArray[$i][1], @UserName)
		If $is_member = 1 Then
			Local $aArray_MAPDRIVE = IniReadSection("D:\Map.ini", $aArray[$i][1])
			;_ArrayDisplay ($aArray_MAPDRIVE)
			For $x = 1 To $aArray_MAPDRIVE[0][0]
				;MsgBox(0,$is_member, $aArray_MAPDRIVE[$i][1])
				$map_details = StringSplit($aArray_MAPDRIVE[$x][1],"|")
				;_ArrayDisplay ($map_details)
				DriveMapAdd($map_details[2] & ":", $map_details[1])
			Next
    	EndIf
    Next
_AD_Close()

Alles anzeigen

gruß gmmg

Camulus

Code

#include <Array.au3>
    #include <ad.au3>
    #include <MsgBoxConstants.au3>
    Local $aArray = IniReadSection(@ScriptDir &"\Map.ini", "Groups")
	Local $is_member
    ;_ArrayDisplay ($aArray)
     ; Check if an error occurred.
;~ 	If Not @error Then
;~           ; Enumerate through the array displaying the keys and their respective values.
;~           For $i = 1 To $aArray[0][0]
;~               MsgBox(0, "", "Key: " & $aArray[$i][0] & @CRLF & "Value: " & $aArray[$i][1])
;~           Next
;~       EndIf


	_AD_Open()
    For $i = 1 To $aArray[0][0]


    	$is_member = _AD_IsMemberOf($aArray[$i][1], @UserName)


		If $is_member = 1 Then
			Local $aArray_MAPDRIVE = IniReadSection(@ScriptDir &"\Map.ini", $aArray[$i][1])
;~ 		_ArrayDisplay ($aArray_MAPDRIVE)


			For $i = 1 To $aArray_MAPDRIVE[0][0]
				;MsgBox(0,$is_member, $aArray_MAPDRIVE[$i][1])
				$map_details = StringSplit($aArray_MAPDRIVE[$i][1],"|")
				;_ArrayDisplay ($map_details)
				DriveMapAdd($map_details[2] & ":", $map_details[1])
			Next




    	EndIf
    Next


_AD_Close()

Alles anzeigen

So meinst du oder?

Fehler:
24) : ==> Subscript used on non-accessible variable.:
For $i = 1 To $aArray_MAPDRIVE[0][0]
For $i = 1 To $aArray_MAPDRIVE^ ERROR

Wenn ich in keiner der beiden Gruppen bin

gmmg

schau nochmal in meinen Post von eben ...

Camulus

Danke läuft.

Bis zur nächsten Frage;)

Wenn du mal ins Oberbergische kommst sag Bescheid, ich mach den Smoker an

gmmg

schön, wenn ich helfen konnte.

Camulus

Aloha,
ich nochmal.

Mir ist nicht so ganz klar was heute Nacht passiert ist...heute geht es nicht mehr.
Ich hab extra nochmal den Codeschnipsel oben raus kopiert aber dei Laufwerke werden nicht mehr verbunden.

Ich hab mich mal rangetastet.

Code

#include <Array.au3>
    #include <ad.au3>
    #include <MsgBoxConstants.au3>
	local $is_member
    Local $aArray = IniReadSection(@ScriptDir & "\Map.ini", "Groups")
;~     _ArrayDisplay ($aArray)
;~       Check if an error occurred.
;~       If Not @error Then
;~           ; Enumerate through the array displaying the keys and their respective values.
;~           For $i = 1 To $aArray[0][0]
;~               MsgBox(0, "", "Key: " & $aArray[$i][0] & @CRLF & "Value: " & $aArray[$i][1])
;~           Next
;~       EndIf
	_AD_Open()
    For $i = 1 To $aArray[0][0]


        $is_member = 0
    	$is_member = _AD_IsMemberOf($aArray[$i][1], @UserName)
		If $is_member = 1 Then


			Local $aArray_MAPDRIVE = IniReadSection(@ScriptDir &"\Map.ini", $aArray[$i][1])
;~ 			_ArrayDisplay ($aArray_MAPDRIVE)
			For $x = 1 To $aArray_MAPDRIVE[0][0]
;~ 				MsgBox(0,$is_member, $aArray_MAPDRIVE[$i][1])
				$map_details = StringSplit($aArray_MAPDRIVE[$x][1],"|")
;~ 				_ArrayDisplay ($map_details)






				$Str =('"' & $map_details[2] &":" &'"' & "," & '"' &$map_details[1] & '"')


								$Buchstabe=('"' & $map_details[2] &":" &'"')
								$Pfad=('"' &$map_details[1] & '"')
										MsgBox(0,"Buchstabe", $Buchstabe)
										MsgBox(0,"Pfad",  $Pfad)
				$m=DriveMapAdd($Buchstabe, $Pfad)
				MsgBox(0,"",$M &" " & @error)
				MsgBox(0,"Fertig","Laufwerk sollte da sein.")
;~ 				DriveMapAdd('"' & $map_details[2] :'"', '"'$map_details[1]'"')


			Next
    	EndIf
    Next
_AD_Close()

Alles anzeigen

Fehler 4 wenn ich das richtig gemacht habe meint der Device Name wäre ungültig

ini:

Code

[Groups]
1=GRP_Abteilung_IT
2=Alle_XYZ
3=AbteilungABC
4=AbteilungABCZentrale
5=Mitarbeiter_DEF


[GRP_Abteilung_IT]
1=\\coo.local\dfs\software\|S


[Alle_XYZ]
1=\\abc.intern\dfs\Gruppen_Koeln|V
2=\\abc.intern\dfs\Benutzer_Koeln\|W


[AbteilungABC]
1=\\abc.intern\dfs\ABC|Q
[AbteilungABCZentrale]
1=\\abc.intern\dfs\ABC|Q


[Mitarbeiter_CPP]
1=\\DEF.local\dfs\Abteilung|G

Alles anzeigen

kann mich da nochmal jemand erleuchten?

Camulus

ich nehme alles zurück und behaupte das gegenteil
Man muss schon die ini richtig bauen, da war ein \ zu viel.

Aaaaaber ich hab ein anderes Prolem:
Unsere Home Laufwerke sehen so aus:

\\coo.local\dfs\Home$\%sername%

Das $ scheint aber dafür zu sorgen dass das Laufwerk übergangen wird und die Variable %sername% finktionioert so auch nicht.
Die Idee die ich hab ist abzufangen ob der Laufwerksbuchstabe H oder W ist, sind beide als Homelaufwerke festgelegt hier (mehrer Domänen).

Oder gibt es was schlaueres was ich nicht weiß?

So hab ich es gelöst:

Code

If $map_details[2] = "H" Then
					$homelaufwerk= ($map_details[1] & "\Home$\"& @UserName)
;~ 					MsgBox(0,"Homelaufwerk",$homelaufwerk )
;~ 					MsgBox(0,"pfad",$map_details[2] & ":", & $homelaufwerk )
					DriveMapAdd($map_details[2] & ":", $homelaufwerk )
				EndIf

funktioniert, wenn jemand eine bessere Idee hat nehm ich die auch gerne

**BugFix**

Probier mal, ob _PathFull da weiter hilft.

gmmg

Hallo,

ist eigentlich ganz einfach

in der ini machst du mal aus \\coo.local\dfs\Home$\%username% folgendes \\coo.local\dfs\Home$\*USER*.

im Quelltext kommt das hinzu ...

$map_details = StringSplit($aArray_MAPDRIVE[$x][1],"|")
$map_details[1] = StringReplace($map_details[1], "*USER*", @username)
DriveMapAdd($map_details[2] & ":", $map_details[1])

praktisch wird der String *USER* dann mit dem StringReplace in den Tatsächlichen Usernamen geändert.

Gruß gmmg

Camulus

Oh mann... ich sollte das viel öfter machen

Danke

Jetzt versuche ich das mal in den rest zu integrieren.