Beim Login auf Unterverzeichnis im Benutzerverzeichnis prüfen und dieses ggf. anlegen

Wir haben unsere Druck- und Kopiertechnik ausgetauscht und durch netzwerkfähige Geräte ersetzt. Diese können auch auf eine Netzwerkfreigabe scannen. Um nicht für zig Benutzer ein Scan-Verzeichnis von Hand einzurichten, möchte ich per Loginscript bei der Benutzeranmeldung prüfen, ob im Benutzerverzeichnis ein Unterverzeichnis "scan" existiert, dieses ggf. anlegen und einem Scan-Benutzer auf dieses Verzeichnis Schreibrechte geben.

Hallo allerseits.

Die Zielstellung habe ich oben bereits geschildert.

Die Anwendungsumgebung ist eine Win2k8R2-Domäne mit W2k3 Server und W2k8R2 Server als Fileserver und WXPPro und Win7Pro als Clientsysteme.

Die Benutzerverzeichnisse sind die im AD hinterlegten Basisverzeichnisse, welche bei der Anmeldung des Users als Laufwerk Z gemappt werden.

Mein grundlegendes Problem ist, dass ich nicht einfach per Loginscript (Batch) prüfen kann, ob ein Verzeichnis "\\SERVER\Benutzerverzeichnisse\%username%\scan" existiert, da das Benutzerverzeichnis (Basisordner im AD) nicht zwangsläufig "\\SERVER\Benutzerverzeichnisse\%username%" ist.

Ich müsste also auf den AD-Eintrag für das Basisordner zugreifen können, nur erschließt sich mir nicht, wie ich das anstellen kann. Per Batch fällt wohl aus. Meine Vorstellung wäre per kix, vbs oder AutoIT. Mit kix hab ich einige Erfahrung, nur wüsste ich nicht ob und wie ich den Basisordner des Users damit ermitteln kann. Mit vbs oder AutoIT lässt sich soetwas sicher realisieren, nur fehlt mir da wiederum die Erfahrung.

Hat wer eine ähnliche Lösung implementiert, oder eine Idee diesbezüglich, und/oder ein Code-Schnipsel das mir weiterhilft? Vielleicht denke ich ja auch zu kompliziert

Vielen Dank schon mal.

VG mhard666

md Z:\Scan

md Z:\Scan 2>nul

for /f "tokens=3" %i in ('net use^|findstr "Z:"') do @echo md "%i\Scan"

for /f "tokens=2*" %i in ('dsquery * domainroot -filter "(&(objectCategory=Person)(objectClass=User))" -attr sAMAccountName distinguishedName homeDirectory -limit 0') do @if "%~j" neq "" echo @md "%~j\Scan"

Set objSysInfo = CreateObject("ADSystemInfo")  
Set objUser = GetObject("LDAP://objSysInfo.UserName")  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
strHomeDirectory = objUser.homeDirectory
If Not objFSO.FolderExists(strHomeDirectory & "\Scan") Then objFSO.CreateFolder(strHomeDirectory & "\Scan")  

Set objUser = GetObject("LDAP://"+objSysInfo.UserName)  

;***************************************************
; File:    chk_scandir.au3
;
;***************************************************

#include <String.au3>

$strEncPassword = "ein geheimer text :-)"  
$intEncrypt = 0
$strUser = _StringEncrypt($intEncrypt, "hier steht der verschlüsselte Benutzername...", $strEncPassword)  
$strPassword = _StringEncrypt($intEncrypt, "hier steht das verschlüsselte Passwort...", $strEncPassword)  
$strDomain = _StringEncrypt($intEncrypt, "hier steht die verschlüsselte Domäne...", $strEncPassword)  

$strHomeDirectory = ""  
$strScanDirectory = ""  

$objSysInfo = ObjCreate("ADSystemInfo")  
$String = "User name: " & $objSysInfo.UserName  
$objUser = ObjGet("LDAP://"& $objSysInfo.UserName)  
$strHomeDirectory = $objUser.homeDirectory

If $strHomeDirectory <> "" Then  
	If FileExists($strHomeDirectory) Then
		$strScanDirectory = $strHomeDirectory & "\scan"  
;		=== Wenn nicht existiert Ordner anlegen
		If Not FileExists($strScanDirectory) Then DirCreate($strScanDirectory)

;		=== Erneut prüfen, wenn existiert Berechtigungen setzen
		If FileExists($strScanDirectory) Then
			If RunAs ( $strUser, $strDomain, $strPassword, 2, "CACLS " & $strScanDirectory & " /E /C /G scanuser@myhome.local:C" ) = 0 Then  
				Msgbox(0,"Shell Windows","Fehler beim setzen der Zugriffsrechte")  
			EndIf
		EndIf
	Else
		Msgbox(0,"Shell Windows","Homedirectory " & $strHomeDirectory & "existiert nicht")  
	EndIf
Else
	Msgbox(0,"Shell Windows","Kein Homedirectory")  
EndIf