[VBS] Verwijderen bestanden ookal is het hidden

[Bikkel-Rulez]

Ik heb een script gemaakt, die uit een bestand kijkt naar een gebruiker en vervolgens mappen moet verwijderen.

nu werkt de script goed, echter als ik hem van af een andere server draai, zijn de mapjes van de Cookies niet zichtbaar (hidden). waardoor die de script niet helemaal uitvoerd.

Heeft iemand van jullie enig idee hoe ik dit kan oplossen?

VBS Script:

Visual Basic:

'variablen
strComputer = "."
Const ForReading = 1
 
'lees textbestand uit voor de gebruikersnamen.
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("Users.txt", ForReading)
 
strText = objTextFile.ReadAll
objTextFile.Close
 
arrUsers = Split(strText, vbCrLf)
 
For Each strUsers in arrUsers
    Wscript.Echo strUsers
 
'maak op basis van de gebruikers uit de lijst een path aan voor de cookie directory
UserPath = ("\\server3\tsprofiles$\" & strUsers & "Application Data\Microsoft\Office\Recent\")
Userpath2 = ("\\server3\tsprofiles$\" & strUsers & "\cookies\")
 

'wscript.echo UserPath
 
'verwijder alle bestanden uit de gebruikers cookie directory.
 
Set fso=CreateObject("Scripting.FileSystemObject")
 
For Each file In fso.GetFolder(UserPath).Files
file.delete
Next
 
'verwijder alle bestanden uit de gebruikers cookie directory.
 
Set fso=CreateObject("Scripting.FileSystemObject")
 
For Each file In fso.GetFolder(UserPath2).Files
file.delete
Next
 

Next

----------------------------------------------------------------------------------------------------------------
Users.txt:

Henk
Marcel
Gerrit

[ Voor 0% gewijzigd door alt-92 op 29-04-2011 10:43 . Reden: code tags zijn zooooooo makkelijk ;) ]

[MAX3400]

Kan je iets met objFile.Attributes AND 2?

Wat ik ff snel vond is dat dat de hidden attribute uitleest; mogelijk kan je dat weer met een loop parsen, het attribute op 0 zetten en alsnog verwijderen?

[ Voor 6% gewijzigd door MAX3400 op 29-04-2011 10:28 ]

[Bikkel-Rulez]

Max3400,

Ziet er in ieder geval goed uit als ik dat zo zie en lees op internet, ik moet er dan even in duiken.
Deze attributes kende ik niet en hoe dat zit met loopen weet ik zo niet.

Heb jij er een klein voorbeeldje van? of verwerkt in de script van mij?

[MAX3400]

Ik kan niet programmeren alleen logisch denken... Maar ik zou iets verwachten als dit (even in een andere taal opschreven)

code:

begin cookies verwijderen
ga naar directory
begin sub-routine
kijk recursief of er bestanden zijn met attribuut x
zo ja, verander attribuut x naar attribuut y
einde sub-routine
verwijder alle bestanden met attribuut y
einde cookies verwijderen

[Remco]

Kan dat niet met:

code:

file.delete, true

[Bikkel-Rulez]

Remco,

file.delete, true is niet voldoende.

blijft die geven: Error " Path not Found"

In iedergeval bedankt voor het mee denken.

[Mental]

VBScript:

UserPath = ("\\server3\tsprofiles$\" & strUsers & "Application Data\Microsoft\Office\Recent\")

Je bent daar een \ vergeten voor Application Data, script werkt hier namelijk wel gewoon.


edit: nu ik er zo over nadenk, zijn hidden files uberhaubt wel beschikbaar via het netwerk? natuurlijk zijn die beschikbaar.
Klopt je userpath ook wel?

[ Voor 29% gewijzigd door Mental op 02-05-2011 16:10 ]

[Razwer]

moet dit per sé in vbs?
als je toch weinig kennis hebt, ga dan aan de powershell. Wanneer Microsoft de kans krijgt vermelden ze op elk seminar en website dat VBS zijn grootste tijd gehad heeft en je sterk aanraden al je nieuwe scripts in powershell te bakken...

plus in powershell scheelt het je minimaal de helft van je code aan aantal regels.

http://technet.microsoft.com/en-us/library/ee692796.aspx
dat pipen met " | Remove-Item –Force" en daar gaan je hidden files...
oftewel

code:

Get-ChildItem C:\blaat -force -recurse | Remove-Item -force

[ Voor 14% gewijzigd door Razwer op 02-05-2011 16:27 ]