File Check (up-to-date)

[Titu]

Allen,

Ik zit met het volgende:

Laptopgebruikers moeten ervoor zorgen dat data in My Documents\SyncToyData (op de laptop), om de 2 dagen gesynchroniseerd wordt met U:\SyncToyData dmv SyncToy. Sommige gebruikers doen dit al, anderen niet. Ik zoek een manier om via een script of batchfile (of zoekopdracht), de map SyncToyData op elke user-drive op I:\ te doorzoeken of bestanden hierin nog recentelijk (< 1 week) zijn aangepast.
Hierdoor weet ik welke gebruikers SyncToy niet gebruiken.

U:\ = User Home Dir (\\fs-01\users$\<gebruikersnaam>) (Dat zien de gebruikers als homedir)
I:\ = User Home Dir (\\fs-01\users$\<gebruikersnaam>) (hier staat de echte data van de gebruikers)

Iemand een Idee, suggestie?

---

Met Vriendelijke Groet,

Luuk Titulaer

[mbaltus]

Robocopy met de list (/L) functie en MIN/MAX AGE en LAD functies.... eigenlijk bedoeld voor kopieren, maar goed.

TreeSize Pro (betaalde versie) kan rapporteren op bestanden die een bepaalde tijd niet zijn gebruikt.

Logfiles uit SyncToy?

[kulgan]

Cygwin installeren en dan gebruik maken van het find commando ? zoiets als find -mtime -7

Is het niet mogelijk om offline files te gebruiken, dan regelt windows je synchronisatie en ben je niet afhankelijk van je gebruikers.

Een andere mogelijkheid zou een klein vb-scriptje kunnen zijn waar je mbv het filesystemobject de datum controlleert.

[Titu]

Kulgan,

Bedank voor je antwoord maar zou je me een voorbeeldje kunnn geven.
Ik ben namelijk niet zo supergoed met VBS. ik snap het wel maar kan het niet programmeren

Met voorbaat dank

[JackPoint]

Met Syncback SE (http://www.2brightsparks.com/syncback/sbse-features.html) kun je files synchroniseren.

Synchronize
Work with 2 or more computers
Ensure your workstation, laptop, and networked computers have the same files. 'Smart Sync' (2-way file sync) does the work.

[kKaltUu]

Titu schreef op woensdag 17 maart 2010 @ 09:44:
Kulgan,

Bedank voor je antwoord maar zou je me een voorbeeldje kunnn geven.
Ik ben namelijk niet zo supergoed met VBS. ik snap het wel maar kan het niet programmeren

Met voorbaat dank

kulgan heeft het woordje filesystemobject laten vallen, deze heeft een property wat DateLastModified heet.
Hier heeft Microsoft informatie staan met voorbeelden

offtopic:
het is natuurlijk niet de bedoeling dat we jou stageopdrachten maken, als ik denk te weten wie je bent

[kulgan]

Ja inderdaad die property kan je gebruiken. Samen met de "getfolder" methode en de ".files" collection zou je een heel eind moeten komen.

Zoek eens op internet naar "vbscript" en "filesystemobject" je zal genoeg code tegenkomen die je kan (her)gebruiken.

[Titu]

Ik heb even na gevragen aan een vriend van me en ik wil het nu via de command line doen
aangezien ik het VBS niet kan (ik kan het niet programere). maar nu is me volgende vraag:

Hoe laat is "Modified within last week" zien: ik heb nu het volgende command:

U:\>dir "C:\Documents and Settings\<username>\Desktop\users" /s/b/ad SyncToy

Dit is even op me locale PC om het te testen vandaar dat pad.

Uitkomst van dat command:

U:\>dir "C:\Documents and Settings\<username>\Desktop\users" /s/b/ad SyncToy C:\Documents and Settings\<username>\Desktop\users\user1 C:\Documents and Settings\<username>\Desktop\users\user2 C:\Documents and Settings\<username>\Desktop\users\user3 C:\Documents and Settings\<username>\Desktop\users\user4 C:\Documents and Settings\<username>\Desktop\users\user5 C:\Documents and Settings\<username>\Desktop\users\user6 C:\Documents and Settings\<username>\Desktop\users\user2\SyncToy C:\Documents and Settings\<username>\Desktop\users\user3\SyncToy C:\Documents and Settings\<username>\Desktop\users\user4\SyncToy C:\Documents and Settings\<username>\Desktop\users\user5\SyncToy C:\Documents and Settings\<username>\Desktop\users\user6\SyncToy

[kulgan]

/b staat volgens mij voor "uses bare format" dus geen helaas ook ook geen modificatie tijd.

Jammer dat je niet VBscript gaat gebruiken. Een voorbeeldje van wat ik denk dat jij wil in

VBScript:

 

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\temp"
ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        Wscript.Echo Subfolder.Path & "  " & Subfolder.DateLastModified
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        ShowSubFolders Subfolder
    Next
End Sub
 

code plakken in <filenaam>.vbs en dan i/e dosprompt aanroepen met "cscript <filenaam>.vbs" (De output komt nu in je dosvenster.)

variabele objStartFolder bevat je startfolder in je directoryboom, alle onderliggende folders worden weergegeven met padnaam en laatste modificatie datum"

Ik hoop dat dit je een beetje verder helpt.

Scriptje is "geinspireerd" op http://blogs.technet.com/...r-and-its-subfolders.aspx

[Tsurany]

Waarom niet een script dat gewoon om de zoveel tijd even Synctoy op de achtergrond laat draaien?
Maar dit is, mag ik hopen, toch niet in een bedrijf he?

[Titu]

kulgan schreef op donderdag 18 maart 2010 @ 14:58:
/b staat volgens mij voor "uses bare format" dus geen helaas ook ook geen modificatie tijd.

Jammer dat je niet VBscript gaat gebruiken. Een voorbeeldje van wat ik denk dat jij wil in

VBScript:

 

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\temp"
ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        Wscript.Echo Subfolder.Path & "  " & Subfolder.DateLastModified
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        ShowSubFolders Subfolder
    Next
End Sub
 

code plakken in <filenaam>.vbs en dan i/e dosprompt aanroepen met "cscript <filenaam>.vbs" (De output komt nu in je dosvenster.)

variabele objStartFolder bevat je startfolder in je directoryboom, alle onderliggende folders worden weergegeven met padnaam en laatste modificatie datum"

Ik hoop dat dit je een beetje verder helpt.

Scriptje is "geinspireerd" op http://blogs.technet.com/...r-and-its-subfolders.aspx

Echt super bedank,
Wat ik nu graag zou willen is dat ik alleen de mappen krijg te zien met de naam: SyncToy
Dus niet de inhoud er van (ook niet van de parent mappen). maar echt alleen de naam + modife date (het mooiste zou zijn dat je er een filter opkan zetten bijv. not modified last week, dan kan ik makkelijk zien welke nog WEL moeten updaten)

[Titu]

De instellingen die ik bedoel:



Alleen dan niet "Within last week" maar dan Within last weet NIET gewijzigd
dit is via Windows search maar ik wil het via een script

[kulgan]

Dat filter is te doen met een simpel IF-statement.

De code zou dan kunnen worden:
(Ik ben geen proffesioneel programmeur, het zal misschien makkelijker/beter kunnen )

VBScript:

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\temp"
ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
          If DateDiff("d",Subfolder.DateLastModified,Now())>7 and InStr(Subfolder.Path,"SyncToy")>0 Then
           Wscript.Echo Subfolder.Path & "  " & Subfolder.DateLastModified & " Synctoy ouder dan 1 week"
          End If
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        ShowSubFolders Subfolder
    Next
End Sub

Succes

[Titu]

kulgan schreef op vrijdag 19 maart 2010 @ 12:15:
Dat filter is te doen met een simpel IF-statement.

De code zou dan kunnen worden:
(Ik ben geen proffesioneel programmeur, het zal misschien makkelijker/beter kunnen )

VBScript:

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\temp"
ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
          If DateDiff("d",Subfolder.DateLastModified,Now())>7 and InStr(Subfolder.Path,"SyncToyData")>0 Then
           Wscript.Echo Subfolder.Path & "  " & Subfolder.DateLastModified & " Synctoy ouder dan 1 week"
          End If
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        ShowSubFolders Subfolder
    Next
End Sub

Succes

Echt bedankt, we zijn er bijna waar ik naar streef ^^. als er nog 1 ding veranderd kan worden ben ik echt super blij.

op het moment zoek het script ook naar sub folders in de map SyncToyData maar dat hoeft niet, hij hoeft alleen de info te geven van de map SyncToyData

Ik waardeer jullie werkt heel erg

[Titu]

Dit laat het script nu zien (1 regel van vele)
Ik heb even de gebruikersnaam zwart gemaakt voor privacy

---

Zo had ik heb graag gehad (1 regel van vele)
Ik heb even de gebruikersnaam zwart gemaakt voor privacy

[alt-92]

Je hebt een bekend stampad (userprofile-rootfolder), een variable (de username in kwestie) en dan een deel wat in ieder geval voor wat betreft de eerste 12 karakters een vaste naam heeft.

dan hoef je niet alle subfolders te hebben, maar bouw je zelf de string op?

[kulgan]

Pas 't script eens als volgt aan ?

VBScript:

 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
objStartFolder = "D:\users" 
ShowSubfolders objFSO.GetFolder(objStartFolder) 

Sub ShowSubFolders(Folder) 
    For Each Subfolder in Folder.SubFolders 
          If DateDiff("d",Subfolder.DateLastModified,Now())>7 and Right(Subfolder.Path,11)="SyncToyData"  Then 
           Wscript.Echo Subfolder.Path & "  " & Subfolder.DateLastModified & " Synctoy ouder dan 1 week" 
          End If 
        Set objFolder = objFSO.GetFolder(Subfolder.Path) 
        ShowSubFolders Subfolder 
    Next 
End Sub

Resultaat zijn alle "SyncToyData" folders die ouder zijn als één week.

Laat eens weten of 't werkt ?

[Titu]

kulgan schreef op maandag 22 maart 2010 @ 21:02:
Pas 't script eens als volgt aan ?

VBScript:

 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
objStartFolder = "D:\users" 
ShowSubfolders objFSO.GetFolder(objStartFolder) 

Sub ShowSubFolders(Folder) 
    For Each Subfolder in Folder.SubFolders 
          If DateDiff("d",Subfolder.DateLastModified,Now())>7 and Right(Subfolder.Path,11)="SyncToyData"  Then 
           Wscript.Echo Subfolder.Path & "  " & Subfolder.DateLastModified & " Synctoy ouder dan 1 week" 
          End If 
        Set objFolder = objFSO.GetFolder(Subfolder.Path) 
        ShowSubFolders Subfolder 
    Next 
End Sub

Resultaat zijn alle "SyncToyData" folders die ouder zijn als één week.

Laat eens weten of 't werkt ?

SUPER echt heel erg bedank Kulgan, Klasse werk!
werkt precies zoals ik het in me gedachte had

[Titu]

Is het mogelijk om de output weg te schrijven naar excel ?

[kulgan]

Een kleine aanpassing:

De output zal nu niet meer op je beeldscherm verschijnen maar wordt opgeslagen in het bestand "output.csv".
Dit kan je dan weer met excel openen.

VBScript:

constForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set fileOutput = objFSO.OpenTextFile("output.csv", constForWriting, true)

objStartFolder = "D:\users"  
ShowSubfolders objFSO.GetFolder(objStartFolder)  

fileOutput.Close()

Sub ShowSubFolders(Folder)  
    For Each Subfolder in Folder.SubFolders  
          If DateDiff("d",Subfolder.DateLastModified,Now())>7 and Right(Subfolder.Path,11)="SyncToyData"  Then  
            fileOutput.WriteLine(Subfolder.Path & ";" & Subfolder.DateLastModified)
          End If  
        Set objFolder = objFSO.GetFolder(Subfolder.Path)  
        ShowSubFolders Subfolder  
    Next  
End Sub

[alt-92]

Titu schreef op woensdag 24 maart 2010 @ 09:30:
Is het mogelijk om de output weg te schrijven naar excel ?

Ja.
Maar onderhand denk ik dat je wel doorhebt dat er veel meer mee kan, en dat het ook een keer erop aan komt of je zelf ook iets gaat scripten

genoeg Scripthulp te vinden via Internet, bijvoorbeeld http://technet.microsoft.com/en-us/library/bb902776.aspx