[XP] Toegang geweigerd Backup rsynbackup.vbs

[Chrit]

Beste lezer,
Ik heb sinds kort mijn systeem vernieuwd vanwege een aantal server fouten.
Hij draait weer als een tierelier, alleen heb ik nu 'n probleem met mijn backup m.b.v. rsyncbackup.vbs op de externe harde schijf welk 'n jaar geleden in het C't magazin stond.
Het werkt voor mij perfect tot afgelopen zaterdag, toen ik 'n aantal bestanden van de backup terug wilde halen, maar helaas de toegang geweigerd.
Hoe kan ik deze mappen met inhoud van Mijn Documenten (vooral van mijn vriendin) en mij weer terug halen.
Ik weet zeker dat ze er opstonden.
Zelfs met de cd van Bart Lageweijer PE-builder lukt het niet.

Groetjes en alvast bedankt Chrit en Monique

[Chrit]

Heeft het misschien hiermee te maken?

Als je het script onder een ander account met beheersrechten wilt starten
' moet je het met rsyncStart.bat aanroepen.
' Het batchbestand zet de omgevingsvariabele "cygwin=nontsec", waardoor
' Cygwin geen ACL's aan de geback-upte bestanden hangt. Daardoor kun je
' de back-ups zonder problemen onder je beperkte gebruikersaccount lezen.

Maar natuurlijk dan wel te laat
Windows XP home edition

[Verwijderd]

Ik volg niet helemaal? Je hebt een aantal mappen in Windows waar je backup bestanden in staan, als je deze mappen wilt openen krijg je de melding dat je geen toegang hebt?

Heb je al eens geprobeerd of je aan de mappen kan via veilige modus, dan ben je ingelogd als Administrator, ook onder Windows XP Home

[Spider.007]

Dit past beter in WOS gezien het feit dat dit een Windows specifiek rechtenprobleem is. Ook ik snap niet helemaal wat er niet lukt; kun je geen ownership claimen van de specifieke mappen; of heb je deze ge-encrypt?

CSA > WOS

[BCC]

Idd, gewoon take ownership? How to take ownership of a file or a folder in Windows XP

[Chrit]

Voor alle duidelijkheid.
Ik maak Back-ups op een externe harde schijf.
Maar nu ik Windows opnieuw geïnstalleerd heb wordt mijn toegang geweigerd zelfs in de veilige mode als administrator.
Hier volgt de volledige script als dat mag.

code:

'......................................................................................
'... rsyncBackup.vbs 1.01 .............................................................
'... auteurs: Karsten Violka / Noud van Kruysbergen ([e-mail]) ............
'... c't 2006/0607 ....................................................................
'......................................................................................
'
' Versie 1.01 19.04.06   geen extra back-upbestanden meer die op "~" eindigen
'                        (switch "b" verwijdert, functie removePathLines() toegevoegd)
' Versie 1.00 14.04.06   eerste openbare versie
'--------------------------------------------------------------------------------------
' Bekende problemen:
'   -- rsync kopieert geen geopende bestanden
'   -- rsync kopieert alleen paden met een lengte tot 260 tekens
'   -- rsync kopieert geen specialiteiten van NTFS (junctions, streams, sparse files)
'
' Start het script met lage prioriteit: 
'   start /min /belownormal cscript.exe rsyncBackup.vbs
'
' Als je het script onder een ander account met beheersrechten wilt starten
' moet je het met rsyncStart.bat aanroepen.
' Het batchbestand zet de omgevingsvariabele "cygwin=nontsec", waardoor
' Cygwin geen ACL's aan de geback-upte bestanden hangt. Daardoor kun je
' de back-ups zonder problemen onder je beperkte gebruikersaccount lezen.
'--------------------------------------------------------------------------------------

Option Explicit
'--------------------------------------------------------------------------------------
'----- BEGIN configuratie -------------------------------------------------------------
'--------------------------------------------------------------------------------------
Dim sourceFolders
' Bronmappen
' Belangrijk: Voeg geen backslash toe aan de bronpaden, omdat rsync voor
' iedere bronmap een aparte submap aanmaakt op de back-upschijf. 
'Voorbeeld:
'sourceFolders = Array("c:\Documents and Settings\Monique")
sourceFolders = Array("c:\Documents and Settings\Monique", "c:\Documents and Settings\Chrit", "d:\werk")

Dim excludeFiles
excludeFiles = Array("Cache", "parent.lock", "Temp*")

' De doelmap moet zich bevinden op een schijf die met NTFS geformateerd is
'Voorbeeld:
'const DESTINATION="H:\BC"
const DESTINATION="K:\BC0309"

' Aantal bewaarde back-ups:
const STAGE0_HOURLY = 10000
const STAGE1_DAILY = 14
const STAGE2_WEEKLY = 10

'Uitbreiding: als je de constante COMPARE_CHECKSUMS op true zet,
'roept het script rsync aan met de optie --checksum (zie Manpage). Om achter het aantal
'bestandenUm te kokmen die bij een incrementele bac-kup gekopieerd moeten worden,
'gebruikt rsync normaal gesproken het tijdstip van de laatste wijziging. Als deze switch
'gezet os wordemn daarentegen alle bestanden gelezen, checksums gemaakt en
'worden ze met het origineel vergeleken.

'Deze modus kan echter aanzienlijk meer tijd kosten.
 
'Deze optie kan als vervanging van de ontbrekende Verify-funcite dienen: als je in het
'logbestand ziet dat rsync bestanden opnieuw kopieert terwijl die sinds de laatste
'back-up niet gewijzigd zijn, kan het zijn dat de bestanden op het back-upmedium
'niet meer goed zijn.

const COMPARE_CHECKSUMS=false

'--------------------------------------------------------------------------------------
'----- EINDE configuratie -------------------------------------------------------------
'--------------------------------------------------------------------------------------
const STAGE1_DAILY_FOLDER =  "\_niveau1"
const STAGE2_WEEKLY_FOLDER=  "\_niveau2"
const STAGE3_MONTHLY_FOLDER= "\_niveau3"
' constanten voor ADO
const adVarChar = 200
const adDate = 7
' veldnamen voor ecordSet
Dim rsFieldNames
rsFieldNames = Array("name", "date")

'---- globaal gebruikte variabelen
Dim fso, wsh

set fso = CreateObject("Scripting.FileSystemObject")
set wsh = CreateObject("WScript.Shell")

'---- Het logbestand wordt in de profielmap aangemaakt, bijvoorbeeld:
'---- c:\Documents and Settings\Noud\rsyncBackup.log
Dim logFile
logFile = wsh.ExpandEnvironmentStrings("%userprofile%") & "\rsyncBackup.log"

Dim strSourceFolder, recentBackupFolder, strDestinationFolder
Set recentBackupFolder = Nothing
Dim strCmd, cmdResult

logAppend(vbCRLf & "-------- Start: " & Now & " --------------------------------------------")

checkFolders()
strDestinationFolder = DESTINATION & "\" & getDateFolderName()
Set recentBackupFolder = getRecentFolder(DESTINATION)

'-- met Dry-Run testen of de inhoud van de bronmap gewijzigd is
If sourceChanged() Then
    strCmd=getRsyncCmd(false)
    logAppend("--- rsync-commandoregel:")
    logAppend(strCmd)
    cmdResult=callCmd(strCmd)
    logAppend("--- uitvoervon rsync:" & vbCrLf & toCrLf(removePathLines(cmdResult(1))))
    
    If Len(cmdResult(2)) > 0 Then   
        logAppend("--- foutmeldingen:" & vbCrLf & toCrLf(cmdResult(2)))
    End If
    
    logAppend("--- errorlevel: " & cmdResult(0))
Else
    logAppend("--- niets nieuws")
End If

'-- back-ups doorschuiven en oude back-ups verwijderen
rotate getFolderObject(DESTINATION), _
        getFolderObject(DESTINATION & STAGE1_DAILY_FOLDER), STAGE0_HOURLY, "d"
rotate getFolderObject(DESTINATION & STAGE1_DAILY_FOLDER), _
        getFolderObject(DESTINATION & STAGE2_WEEKLY_FOLDER), STAGE1_DAILY, "ww"
rotate getFolderObject(DESTINATION & STAGE2_WEEKLY_FOLDER), _
        getFolderObject(DESTINATION & STAGE3_MONTHLY_FOLDER), STAGE2_WEEKLY, "m"
logAppend("-------- klaar: " & Now & " --------------------------------------------")

'---------------------------------------------------------------------------------------
'--- funkties --------------------------------------------------------------------------
'---------------------------------------------------------------------------------------

'--- checkFolders() --------------------------------------------------------------------
' test of de ingevoerde paden goed zijn
Function checkFolders()
    Dim aSourceFolder
    For Each aSourceFolder in sourceFolders
        If Not fso.FolderExists(aSourceFolder) Then
            criticalErrorHandler "checkFolders()", "bronmap '" & aSourceFolder & "' bestaat niet.", 0, ""
        End If
    Next
    
    If Not fso.DriveExists(fso.getDriveName(DESTINATION)) Then
        criticalErrorHandler "checkFolders()", "doelschijf " & fso.getDriveName(DESTINATION) & " niet gevonden", 0, ""
    End If
    
    dim d, f
    
    If Not fso.getDrive(fso.getDriveName(DESTINATION)).FileSystem = "NTFS" Then
        logAppend("--- waarschuwing: Doelpad " & DESTINATION & " staat niet op een NTFS-schijf!")
        logAppend("--- waarschuwing: rsync maakt daar geen hard-Links, maar volledige kopieën")
    End If
End Function

'--- sourceChanged() -------------------------------------------------------------------
' geeft "true" terug als een test door rsync oplevert dat er in de bronmappen sinds
' de laatste back-up bestanden gewijzigd zijn.
Function sourceChanged()
    dim strCmd, cmdResult, arrayOutput
    cmdResult = callCmd(getRsyncCmd(true)) ' commando opbouwen met dryRun
    arrayOutput=Split(cmdResult(1), "" & Chr(10) & "", -1, 1)
    '-- als er in de vierde regel al "sent" staat is er niets veranderd
    If Left(arrayOutput(3), 4) = "sent" Then
      sourceChanged=false
    Else
      sourceChanged=true
    End If
End Function

'--- getRsyncCmd() ----------------------------------------------------------------------
' stelt het rsync-commando samen; de parameter "true" schakelt de dryRun-Modus in,
' waarmee een test wordt gestart.
'
' In Version 1.01 is de switch "b" weer verwijderd: deze zorgt er voor dat
' rsync in een nieuwe map de back-upbestanden gewijzigde bestanden voorspiegelt, die
' eindigen op een tilde "~". Zonder deze switch wordt de uitvoer van rsync echter erg
' onoverzichtelijk: rsync toont dan iedere keer alle doorzochte bronmappen,
' of er nou wat nieuws is zit of niet. De funcite removePathLines() filtert deze
' overbodige regels er weer uit.

' bebruikte rsync-parameters:
'   a   Archiv-Modus   Bronnen recursief en geheel kopiëren
'   v   Verbose        Uirgebreide uitvoer, toont alle nieuw gekopieerde bestanden
'   c                  Optioneel, rsync berekent checksums und vergelijkt die met
'                      de bestandsinhoud, om het aantal te kopiëren bestanden te bepalen
'   n   Dryrun

Function getRsyncCmd(dryRun)
    dim cmd, aSourceFolder, aExcludeFile
    cmd = wsh.ExpandEnvironmentStrings("%comspec%") & " /c rsync -av"
    
    If (COMPARE_CHECKSUMS = true) Then
        cmd = cmd & "c"
    End If
    
    If (dryRun = true) Then
        cmd = cmd & "n"
    End If
    
    If Not recentBackupFolder Is Nothing Then
        cmd = cmd & " --link-dest=""" _
            & toCygwinPath(recentBackupFolder.Path) & """"
    End If
    
    For Each aExcludeFile in excludeFiles
        cmd = cmd & " --exclude """ & aExcludeFile & """"
    Next
    
    For Each aSourceFolder in sourceFolders
        cmd = cmd & " """ & toCygwinPath(aSourceFolder) & """"
    Next
    
    cmd = cmd & " """ & toCygwinPath(strDestinationFolder) & """"
    
    getRsyncCmd = cmd
End Function

'--- getDateFolderName()------------------------------------------------------------
' maakt een mapnaam aan met de huidige datum en tijd
Function getDateFolderName()
    Dim nu
    nu = Now()
    getDateFolderName = Year(nu) & "-" & addLeadingZero(Month(nu))_
        & "-" & addLeadingZero(Day(nu))_
        & "_"   & addLeadingZero(Hour(nu))_
        & "~" & addLeadingZero(Minute(nu))
End Function

'--- addLeadingZero(number) -------------------------------------------------------------
' voegt bij getallen < 10 een leidende nul toe
Function addLeadingZero(number)
    If number < 10 Then
        number = "0" & number
    End If 
    addLeadingZero = number
End Function

'--- getFolderObject(path) -------------------------------------------------------------
' levert voor het meegegeven pad een WSH-objekt van het type Folder
' als deze nog niet bestaat wordt die aangemaakt
Function getFolderObject(path)
    If (fso.FolderExists(path)) Then
        Set getFolderObject = fso.GetFolder(path)
    Else
        logAppend("--- maak map: " & path)
        On Error Resume Next
        Set getFolderObject = fso.CreateFolder(path)
        
        If Err.Number <> 0 Then
            On Error Goto 0
            criticalErrorHandler "getFolderObject()", "kan doelmap niet aanmaken", Err.Number, Err.Description
        End If
        
        On Error Goto 0
    End If
End Function

'--- toCygwinPath(String) -----------------------------------------------------------------
' converteert een Windows-pad in het formaat dat Cygwin verwacht
Function toCygwinPath(path)
    Dim driveLetter, newPath
    driveLetter = Left(fso.GetDriveName(path), 1)
    newPath = Replace(path, "\", "/")
    newPath = Mid(newPath, 4)
    toCygwinPath = "/cygdrive/" & driveLetter & "/" & newPath
End Function

'--- toCrLf(String) -----------------------------------------------------------------------
' vervangt het door rsync gegeven Unix-regeleinde (LF)
' door het gebruikelijke Windows-formaat (CRLF)
Function toCrLf(strText)
    toCrLf = Replace(strText, vbLf, vbCrLf)
End Function

'--- removePathLines(String) -----------------------------------------------------------------------
' verwijdert alle regels die op een backslash eindigen
' rsync toont normaal gesproken alle paden, die op nieuwe bestanden gecontroleerd worden,
' ook als er daar niets verandert is; deze routine verwijdert deze regels,
' zodat het logbesatnd overzichtelijk blijft
Function removePathLines(strText)
    Dim arrayText, line
    arrayText=Split(strText, "" & Chr(10) & "", -1, 1) ' de uitvoer moet in Unix-formaat,
                                                       ' met LF als regeleinde 
    For Each line in arrayText
        If Not Right(line, 1) = "/" Then
            removePathLines = removePathLines & line & vbLF
        End If
    Next
End Function

'--- logAppend(String) --------------------------------------------------------------------
' voegt de meegegeven tekst aan het logbestand toe
Function logAppend(string)
    const forAppend = 8
    dim f, errnum
    
    On Error Resume Next    
    Set f = fso.OpenTextFile(logFile, forAppend, true)
    errnum = Err.Number
    
    On Error Goto 0
    If errnum = 0 Then
        f.WriteLine(string)
        f.Close()
    Else
        Err.Raise 1, "logAppend", "kan logbestand niet openen"
    End If
End Function

'--- getRecentFolder(String) ---------------------------------------------------------------
' sorteert de meegegeven map op datum en levert het jongste item terug
Function getRecentFolder(path)
    Dim destinationFolder, rs
    Set destinationFolder = getFolderObject(path)
    Set rs=newFolderRecordSet(destinationFolder)
    
    If Not (rs.Eof) Then
        rs.sort = "date DESC"       ' aflopend op aanmaakdatum sorteren 
        rs.MoveFirst
        Set getRecentFolder= fso.GetFolder(rs.fields("name"))
    Else
        Set getRecentFolder = Nothing
    End If
    rs.Close
    Set rs = Nothing
End Function

'--- newFolderRecordSet(Folder-Objekt) -----------------------------------------------------
' zet de submappen van de meegegeven map in de een nieuwe RecordSet,
' die gebruikt wordt voor het sorteren

Function newFolderRecordSet(folder)
    Dim aFolder
    Set newFolderRecordSet = CreateObject("ADODB.Recordset")
    newFolderRecordSet.Fields.Append "name", adVarChar, 255
    newFolderRecordSet.Fields.Append "date", adDate
    newFolderRecordSet.Open
    
    For Each aFolder in folder.SubFolders
        If Left(aFolder.Name, 2) = "20" Then    ' alleen de datumma in de lijst opnemen
            newFolderRecordSet.addnew rsFieldNames, Array(aFolder.Path, aFolder.DateCreated)
        End if
    Next    
End Function

'--- rotate(fromFolder, toFolder, numberToKeep, diffInterval) ------------------------------
' verplaatst of verwijdert de back-upmap; voor ieder tijdsinterval (dag, week, maand) wordt
' de laatst gemaakte back-up gearchiveerd
Function rotate(fromFolder, toFolder, numberToKeep, diffInterval)
    Dim rs, aFolder, lastFolder, i, recentBackup, errNr
    Set rs=newFolderRecordSet(fromFolder)
    If Not (rs.Eof) Then
        rs.Sort = "date DESC"
        rs.MoveFirst
        i = 0
        Do until rs.Eof
            If i >= numberToKeep Then
                'MsgBox("übrig:" & rs.fields("name"))
                ' de laatste back-up van deze datum uit toFolder halen; als die nieuwer is dan vervangen
                Set recentBackup = getRecentBackupForDate(toFolder, rs.fields("date"), diffInterval)
                On Error Resume Next
                If Not recentBackup Is Nothing Then
                    ' als de geselecteerde back-up van hetzelfde tijdsinterval is (dag) en
                    ' laer gemaakt is, moet de back-up in de doelmap vervangen worden
                    If DateDiff("s", recentBackup.DateCreated, rs.fields("date")) > 0 Then
                        'MsgBox("selber Tag & neuer: bewegen")
                        logAppend("--- verplaats " & rs.fields("name") & " naar " & toFolder.Path)
                        fso.MoveFolder fso.GetFolder(rs.fields("name")), toFolder.Path & "\"
                        If Err.Number <> 0 Then 
                            ErrNr=Err.Number
                            On Error Goto 0
                            criticalErrorHandler "rotate()", "kon de map niet verplaatsen", Err.Number, Err.Description
                        End If
                        'MsgBox("vorige versie verwijderen")
                        logAppend("--- vorige versie verwijderen " & recentBackup)
                        fso.DeleteFolder recentBackup, true
                        If Err.Number <> 0 Then
                            On Error Goto 0
                            criticalErrorHandler "rotate()", "kon de map niet verwijderen", Err.Number, Err.Description
                        End If                  
                    Else
                        logAppend("--- verwijder " & rs.fields("name"))
                        'MsgBox("zelfde dag en tijd: weg ermee")
                        fso.DeleteFolder fso.GetFolder(rs.fields("name")), true
                    
                        If Err.Number <> 0 Then 
                            On Error Goto 0
                            criticalErrorHandler "rotate()", "kon de map niet verwijderen", Err.Number, Err.Description
                        End If
                    End If
                Else
                    ' van deze dag bestaat nog geen back-up
                    'MsgBox("bestaat nog niet, verplaatsen!")
                    logAppend("--- verplaats " & rs.fields("name") & " naar " & toFolder.Path)
                    fso.MoveFolder fso.GetFolder(rs.fields("name")), toFolder.Path & "\"
                    If Err.Number <> 0 Then 
                        On Error Goto 0
                        criticalErrorHandler "rotate()", "kon de map niet verplaatsen", Err.Number, Err.Description
                    End If  
                End If
                On Error Goto 0
            End If
            i = i + 1
            rs.MoveNext
        Loop
    End If
    rs.Close
    Set rs = Nothing
End Function

'--- getRecentBackupForDate(folderObj, aDate, diffInterval) -----------------------------
' sorteert de submap met behulp van de ADO RecordSet en geeft de laatste back-up
' de aangegeven dag/week/maand --> diffInterval
Function getRecentBackupForDate(folderObj, aDate, diffInterval)
    Dim rs, exitLoop
    Set getRecentBackupForDate = Nothing
    Set rs=newFolderRecordSet(folderObj)
    If Not (rs.Eof) Then
        rs.Sort = "date DESC"
        rs.MoveFirst
        exitLoop=false 
        Do until rs.Eof Or exitLoop
            If DateDiff(diffInterval, rs.fields("date"), aDate) = 0 Then
                set getRecentBackupForDate = fso.GetFolder(rs.fields("name"))
                exitLoop = true
            End If
           rs.MoveNext
        Loop      
    End If
    rs.Close
    Set rs = Nothing
End Function

'--- criticalErrorHandler(source, description, errNumber, errDescription) ---------------
' kritische fouten loggen en programma beëindigen. Voor de aanroep moet de
' foutafhandeling met "On Error Goto 0" weer ingeschakeld worden, zodat het script
' met de nieuw gemaakte fout afbreekt
Function criticalErrorHandler(source, description, errNumber, errDescription)
    logAppend("--- fout: functie " & source & ", " & description)
    logAppend("            Err.Number: " & errNumber & " Err.Description:" & errDescription)
    logAppend("-------- gestopt: " & Now & " --------------------------------------------")
    Err.Raise 1, source, description
End Function


'--- callCmd(strCommand) ----------------------------------------------------------------
' voert de commandoregel uit en geef Array terug:
' Index 0: Errorlevel
' Index 1: uitvoer
' Index 2: foutmelding
Function callCmd(strCommand)
    Dim strTempFile, strTempFile2, outputFile, result, strOutput, strOutput2
    
    strTempFile = fso.GetSpecialFolder(2) & "\" & fso.GetTempName
    strTempFile2 = fso.GetSpecialFolder(2) & "\" & fso.GetTempName
    
    strCommand = strCommand & " 1>" & strTempFile & " 2>" & strTempFile2
    
    result = wsh.Run(strCommand, 0, true)
    
    If fso.FileExists(strTempFile2) And fso.GetFile(strTempFile2).Size > 0 Then
        Set outputFile = FSO.OpenTextFile(strTempFile2)
        strOutput2 = outputFile.Readall
        outputFile.Close
    Else
        strOutput2 = ""
    End If
    
    If fso.FileExists(strTempFile) And fso.GetFile(strTempFile).Size > 0 Then
        Set outputFile = FSO.OpenTextFile(strTempFile)
        strOutput = outputFile.Readall
        outputFile.Close
        callCmd = Array(result, strOutput, strOutput2)
        deleteInsistently(strTempFile)
        deleteInsistently(strTempFile2)
    Else
        criticalErrorHandler "callCmd()", "commando mislukt: " & strCommand & vbCrLf & "--- foutmelding: " & strOutput2, 0, ""
    End If
End Function


'--- deleteInsistently(strFileName)  -----------------------------------------------------
' Op sommige testsystemen trad een fout op, omdat de functie callCmd() diens
' tijdelijke bestandn niet kon verwijderen; vermoedelijk blokkeert een virusscanner
' dat bestand op dat moment. De Functi deleteInsistently() onderneemt daarom 10 pogingen
' om het meegegeven bestand te verwijderen; als dat mislukt probeer het script het 5
' seconde later weer
Function deleteInsistently(strFileName)
    Dim noOfTries, successful
    
    On Error Resume Next
    noOfTries=0         
    successful=false
        
    While noOfTries < 10 And Not successful
        Err.Clear
        If fso.FileExists(strFileName) Then
            fso.DeleteFile(strFileName)
                If Err.Number <> 0 Then
                    successful=false
                    noOfTries = noOfTries + 1
                    logAppend("--- Waarschuwing: kon tijdelijke bestand " & strFileName & " niet verwijderen, poging " & noOfTries)
                    Wscript.Sleep(5000)
                Else
                    successful=true
                End If
        Else
                successful=true
        End If
    Wend
    On Error Goto 0
    If Not successful Then
        logAppend("--- waarschuwing: ik geef het op")
    End If
End Function

P.s. zet hem maar op WOS of staat hij er al op??

Chrit

[ Voor 196% gewijzigd door een moderator op 23-03-2009 21:13 . Reden: +code tags ]

[Flipke84]

Zou je de code van hierboven eens in code-tags kunnen zetten aub?

[Spider.007]

Chrit schreef op maandag 23 maart 2009 @ 20:47:
Voor alle duidelijkheid.
Ik maak Back-ups op een externe harde schijf.
Maar nu ik Windows opnieuw geïnstalleerd heb wordt mijn toegang geweigerd zelfs in de veilige mode als administrator.
Hier volgt de volledige script als dat mag.
[...]

Ja, het script posten is heel erg leuk; maar lees nou een de reeds gegeven suggesties? Wat gaat er nou eigenlijk fout? Reageer eens op de al eerder gestelde vragen?

P.s. zet hem maar op WOS of staat hij er al op??

Chrit

Hij is, zoals ik al melde, reeds verplaatst

[Chrit]

BCC schreef op maandag 23 maart 2009 @ 20:18:
Idd, gewoon take ownership? How to take ownership of a file or a folder in Windows XP

Ik moet inderdaad naar de veilige modus gaan zoals KimG al zei.
Alle submappen moet ik apart van eigenaar veranderen los ven de bestanden (nog 'n keer).
Weten jullie misschien hoe ik de schijf of map in z'n geheel ineens kan toe-eigenen.
Je moet er maar net tijd voor hebben.
Ik wil dit in de toekomst wel voorkomen en eventueel het script aanpassen.
Bedankt in ieder geval

[Chrit]

Flipke84 schreef op maandag 23 maart 2009 @ 20:48:
Zou je de code van hierboven eens in code-tags kunnen zetten aub?

Moet ik nog effe kijken of ik daar 'n programma voor bij de hand heb?

[Spider.007]

Chrit schreef op dinsdag 24 maart 2009 @ 01:23:
[...]

Moet ik nog effe kijken of ik daar 'n programma voor bij de hand heb?

Ook dat heb ik inmiddels al voor je gedaan; maar lees gerust Overzicht van UBB-codes nog eens door om erachter te komen dat je daar geen programma's voor bij de hand hoeft te hebben

[alt-92]

Chrit schreef op maandag 23 maart 2009 @ 20:47:
Voor alle duidelijkheid.
Ik maak Back-ups op een externe harde schijf.
Maar nu ik Windows opnieuw geïnstalleerd heb wordt mijn toegang geweigerd zelfs in de veilige mode als administrator.

Logisch want je hebt nu een compleet nieuwe SID gegenereerd.

doe maar eens een output van icacls op die externe disk?

icacls /? voor alle beschikbare opties.