Hiho,
ich suche folgendes.
ein programm, in dem ich einen ordner auswähle, und dann von diesem ordner und allen unterordner die berechtigungen in ner txt abspeichert.
hab versucht ein bestehendes script umzubauen, aber es kommt immer:
Variable must be of type "Object".:
ShowSubfolders( $FSO.GetFolder($SearchFolder) )
ShowSubfolders( $FSO^ ERROR
also so stelle ich mir das in etwa vor
Spoiler anzeigen
Dim $SearchFolder = FileSelectFolder("Gebe Sie den gewünschten Ordner an, der nach Berechtigungen durchsucht werden soll", "", 2)
Dim $PathFound
$FSO = ObjCreate("Scripting.FileSystemObject")
Showsubfolders( $FSO.GetFolder($SearchFolder) )
Func ShowSubFolders($Folder)
For $Subfolder in $Folder.SubFolders
If ($Subfolder.Path & "\") Then
$PathFound = $Subfolder.Path & "\"
runwait(@comspec & ' /c cacls "' & $Subfolder.Path & '">>"C:\Documents and Settings\plutod\Desktop.txt"')
ExitLoop
EndIf
ShowSubFolders( $Subfolder )
Next
EndFunc