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

Finden von Office-Dateien mit Schreibschutz

Mitglied: kerstine1981

kerstine1981 (Level 1) - Jetzt verbinden

18.11.2004, aktualisiert 19.11.2004, 9452 Aufrufe, 4 Kommentare

Hallo!

Gibt es eine Möglichkeit, automatisiert bzw. mit sehr wenig Aufwand Office-Dateien zu suchen, die durch einen Schreibschutz geschützt sind???

Bin um jede Hilfe dankbar!

Danke,
kerstine
Mitglied: gemini
18.11.2004 um 23:03 Uhr
Hallo,
vielleicht hilft dir das einwenig.
In der Variablen strExt stehen kommagetrennt die Dateiendungen.
Das Script durchsucht rekursiv alle Ordner unter dem in der InputBox angegebenen und gibt das Ergebnis mit Pfad in einer Datei aus.
~~~~~~~~~~~~~~~~~
Option Explicit

Dim objFSO, objFolder, objSubFld, objLog, f1, f2, colFiles, strExt, strMSG, arExt, strStart, i

strExt = "xls,doc,mdb,pps"
strMSG = "Schreibgeschützte Dateien"
strStart = InputBox("Wo solls denn losgehen?","Check4ReadOnly")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strStart)

ChkSubFld objFolder

Private Sub ChkSubFld(StartFolder)
ChkFiles StartFolder
Set objSubFld = StartFolder.SubFolders
For Each f2 in objSubFld
ChkSubFld f2
Next
End Sub

Private Sub ChkFiles(Start)
Set colFiles = Start.Files
For Each f1 in colFiles
arExt = Split(strExt, ",", -1, 1)
For i = 0 To UBound(arExt)
If LCase(Right(f1, 3)) = arExt(i) Then
If f1.Attributes AND 1 Then
strMSG = strMSG & vbCrLf & objFSO.GetAbsolutePathName(f1)
End If
End If
Next
Next
End Sub

Set objLog = objFSO.CreateTextFile("c:\CheckReadOnly.txt", True)
objLog.Write strMSG
objLog.Close

f1 = ""
f2 = ""
i = ""
strExt = ""
strMSG = ""
strStart = ""
colFiles = ""
~~~~~~~~~~~~~~~~~
Bitte warten ..
Mitglied: kerstine1981
19.11.2004 um 08:26 Uhr
Hi!

Danke für den Tip - ich bekomm leider immer den fehler

Zeile 23, Zeichen 1
Zugriff verweigert...
Bitte warten ..
Mitglied: gemini
19.11.2004 um 10:20 Uhr
Guten Morgen!

Ich hätte vielleicht noch dazuschreiben sollen, dass ich es nicht getestet habe.
Ist auch nicht sehr ausgefeilt, nur eben schnell hingeklopft.
War ja auch schon spät gestern.

In Ordnern die keine speziellen Unterordner (wie bspw. System Volume Information) haben sollte es schon laufen.

Ich seh es mir heute abend mal an.
Bitte warten ..
Mitglied: gemini
19.11.2004 um 18:59 Uhr
Hallo Kerstin,

Zugriff verweigert = Du kommst hier net rein

Im Ernst, der Fehler tritt auf, wenn f2 in der Ordnerauflistung auf einen Ordner trifft für den die Rechte nicht ausreichen. Normalerweise haben User in solchen Ordnern nichts zu suchen und erst recht nichts zu speichern.

Um mir mein Wochenende zu retten hab ich mirs einfach gemacht.
Diese Fehler führen jetzt nicht mehr zum Abbruch (Resume Next).
~~~~~~~~~~~~~~~~~~~~
Option Explicit
On Error Resume Next

Dim objFSO, objFolder, objSubFld, objLog, f1, f2, colFiles, strExt, strMSG, arExt, strStart, strLog, i

strExt = "xls,doc,mdb,pps"
strStart = InputBox("Wo solls denn losgehen?","Check4ReadOnly")
strMSG = "Schreibgeschützte Dateien von " & strStart & " beginnend" & vbCrLf & "~~~~~~~~~~~~~~~~~~~~~~~~~~~"
strLog = "c:\CheckReadOnly.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strStart)

ChkSubFld objFolder

Private Sub ChkSubFld(StartFolder)
ChkFiles StartFolder
Set objSubFld = StartFolder.SubFolders
For Each f2 in objSubFld
ChkSubFld f2
Next
End Sub

Private Sub ChkFiles(Start)
Set colFiles = Start.Files
For Each f1 in colFiles
arExt = Split(LCase(strExt), ",", -1, 1)
For i = 0 To UBound(arExt)
If LCase(Right(f1, 3)) = arExt(i) Then
If f1.Attributes AND 1 Then
strMSG = strMSG & vbCrLf & objFSO.GetAbsolutePathName(f1)
End If
End If
Next
Next
End Sub

Set objLog = objFSO.CreateTextFile(strLog, True)
objLog.Write strMSG
objLog.Close

MsgBox "Fertig!"
LoadFile strLog

Private Sub LoadFile(File)
Dim objShell, strApplication
strApplication = "notepad.exe"
Set objShell = CreateObject("WScript.Shell")
objShell.Run strApplication & " " & File
set objShell = Nothing
End Sub

Set objFSO = Nothing
Set objFolder = Nothing
Set objLog = Nothing
f1 = ""
f2 = ""
i = ""
strExt = ""
strMSG = ""
strStart = ""
colFiles = ""
strLog = ""
strApp = ""
arExt = ""
~~~~~~~~~~~~~~~~~~~~
Schönes Wochenende
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Office Datei nach Bearbeitung vom Stick noch auf PC zu finden?

gelöst Frage von absoluterdatenverlustMicrosoft Office15 Kommentare

Hallo liebe Community, ich habe einen Freund der mit sensiblen Daten umgehen muss und diese an verschiedenen Computern bearbeiten ...

Windows Server

Benutzerprofil schreibschützen?

Frage von LK5000Windows Server5 Kommentare

Hallo zusammen, wir haben den Auftrag unseren Domänen-Benutzern die Schreibrechte für das Benutzerprofil zu entziehen. Ich musste es auf ...

Webentwicklung

Mit Inspector ort von Datei finden

Frage von BoogiemanWebentwicklung1 Kommentar

Hallo Admins Ich muss leider schon wieder stören :/ Wenn ich bei einer Webseite mit F12 (Chrome) den Inspector ...

HTML

Abhängigkeiten in einer HTML-Datei finden

Frage von StefanKittelHTML8 Kommentare

Hallo, ich arbeite gerade an einem Projekt in PHP (7.0) um webseiten statisch abzulegen. Um alle Folgeseiten und Abhängigkeiten ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 19 StundenWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 19 StundenSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 1 TagDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein Beitrag bei Heise (siehe Link folgend). Behörden ignorieren Sicherheitsbedenken gegenüber ...

Sicherheit
Information Security Hub Munich airport
Information von brammer vor 1 TagSicherheit

Hallo, Neues Center für Cyber Kriminalität am Münchener Flughafen brammer

Heiß diskutierte Inhalte
Exchange Server
Exchange Postfach Einbindung Betriebs-rat -Arzt, Bewerbung .
gelöst Frage von YellowcakeExchange Server23 Kommentare

Hey ich habe da mal eine Denksport Aufgabe bekommen Genutzt wird ein Exchange Server 2010. hier gibt es den ...

Datenschutz
Telematikinfrastruktur Erfahrungsaustausch
Frage von MOS6581Datenschutz12 Kommentare

Moin, unter meinen Kunden befinden sich auch einige Ärzte, welche sich künftig mit der Telematikinfrastruktur-Geschichte der Gematik herumärgern dürfen. ...

Windows Server
Delgegierte OU via RDP verwalten - Objektverwaltung zuweisen
gelöst Frage von TOAOICEWindows Server12 Kommentare

Hallo, ich habe folgendes Problem. Ich möchte in meiner Domäne (Server2016), einer Gruppe (OUAdmin) Berechtigungen auf die OU Test ...

LAN, WAN, Wireless
Gigabit-Lan mit zwei 4-adrigen Kabeln?
Frage von ArvedirmerLAN, WAN, Wireless11 Kommentare

Ich habe folgendes Problem: Ich betreue eine kleine Firma die sich im 1.Stock eines Gebäudes befindet. Es existiert ein ...