7
VBS Skript von UserName auf UserProfile ändern
Hallo aus Norddeutschland,
ich habe ein vbs Script um bei mehereren Usern den GoogleChrome Cache zu löschen. Das funktioniert auch soweit...
ich möchte das Script aber auf UserProfile anwenden und nicht mit UserName in der Zeile
aber irgendwie bekomme ich das nicht hin... vieleicht kann mir hier ja jemand helfen bzw. Unterstützung geben.
Vielen dank
ich habe ein vbs Script um bei mehereren Usern den GoogleChrome Cache zu löschen. Das funktioniert auch soweit...
Option Explicit
Dim FileSystemObject, RootFolder, UserName, File
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
UserName = CreateObject("WScript.Network").UserName
RootFolder = "C:\Users\" & UserName & "\AppData\Local\Google\Chrome\User Data\Default\Cache"
DeleteFileFromFolder RootFolder
Sub DeleteFileFromFolder(Path)
For Each File In FileSystemObject.GetFolder(Path).Files
DeleteAllow File
Next
For Each File In FileSystemObject.GetFolder(Path).SubFolders
DeleteFileFromFolder File.Path
Next
End Sub
Sub DeleteAllow(File)
On Error Resume Next
FileSystemObject.DeleteFile File.Path, True
End Subich möchte das Script aber auf UserProfile anwenden und nicht mit UserName in der Zeile
RootFolder = "C:\Users\" & UserName & "\AppData\Local\Google\Chrome\User Data\Default\Cache" aber irgendwie bekomme ich das nicht hin... vieleicht kann mir hier ja jemand helfen bzw. Unterstützung geben.
Vielen dank
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 6437910010
Url: https://administrator.de/contentid/6437910010
Printed on: April 28, 2024 at 12:04 o'clock
7 Comments
Latest comment
Moin,
Quelle: https://social.technet.microsoft.com/Forums/en-US/1b8b424b-6514-462c-b60 ...
gefunden via 20 Sekunden google
Gruß
em-pie
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
MsgBox strHomeFoldergefunden via 20 Sekunden google
Gruß
em-pie
Moin,
und wenn du schon am Umbauen bist, dann nimm gleich 
lg,
Slainte
und wenn du schon am Umbauen bist, dann nimm gleich
%localappdata%lg,
Slainte
1
Ja, das habe ich auch gefunden, aber wo und wie muss ich das einbauen ?
das hat alles nicht funktioniert bei mir...
das hat alles nicht funktioniert bei mir...
Zitat von @em-pie:
Moin,
Quelle: https://social.technet.microsoft.com/Forums/en-US/1b8b424b-6514-462c-b60 ...
gefunden via 20 Sekunden google
Gruß
em-pie
Moin,
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
MsgBox strHomeFoldergefunden via 20 Sekunden google
Gruß
em-pie
.. aber wo und wie muss ich das einbauen ?
Demnach ist dein obiger Code auch schon irgendwoher wegkopiert und du hast nicht vertanden, was da eigentlich passiert.Option Explicit
Dim objShell, ProfileFolder, CacheFolder
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
ProfileFolder = obShell.ExpandEnvironmentStrings("%USERPROFILE%")
CacheFolder = ProfileFolder & "\AppData\Local\Google\Chrome\User Data\Default\Cache"
...Tip:
lösch einfach den ganzen Ordner Cache. Chrome legt den beim nächsten Start von selbst an.
Da sparst du dir ne Menge Code mit
1lösch einfach den ganzen Ordner Cache
rmdir "%localappdata%\Google\Chrome\User Data\Default\Cache" /Q /S 
set objShell = CreateObject("WScript.Shell")
CreateObject("Scripting.FilesystemObject").DeleteFolder objShell.ExpandEnvironmentStrings("%localappdata%") & "\Google\Chrome\User Data\Default\Cache",True 
... genau diese Zeile hatte ich mir auch schon gedacht. Ich hatte mich nicht nicht getraut, das zu schreiben...
Aber wozu ein Einzeiler, wenn an das auch mit 30 Zeilen Programmcode erledigen kann!
Gruß
