joejoesto
Goto Top

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...

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 Sub

ich 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

Content-ID: 6437910010

Url: https://administrator.de/forum/vbs-skript-von-username-auf-userprofile-aendern-6437910010.html

Ausgedruckt am: 14.03.2025 um 11:03 Uhr

em-pie
em-pie 20.03.2023 um 12:47:12 Uhr
Goto Top
Moin,

Set oShell = CreateObject("WScript.Shell")  
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")  
MsgBox strHomeFolder
Quelle: https://social.technet.microsoft.com/Forums/en-US/1b8b424b-6514-462c-b60 ...
gefunden via 20 Sekunden google face-wink

Gruß
em-pie
SlainteMhath
SlainteMhath 20.03.2023 um 12:55:18 Uhr
Goto Top
Moin,

und wenn du schon am Umbauen bist, dann nimm gleich
%localappdata%
face-smile

lg,
Slainte
joejoesto
joejoesto 20.03.2023 um 13:30:04 Uhr
Goto Top
Ja, das habe ich auch gefunden, aber wo und wie muss ich das einbauen ?
das hat alles nicht funktioniert bei mir...


Zitat von @em-pie:

Moin,

Set oShell = CreateObject("WScript.Shell")  
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")  
MsgBox strHomeFolder
Quelle: https://social.technet.microsoft.com/Forums/en-US/1b8b424b-6514-462c-b60 ...
gefunden via 20 Sekunden google face-wink

Gruß
em-pie
em-pie
em-pie 20.03.2023 aktualisiert um 13:42:59 Uhr
Goto Top
.. 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 face-wink
SlainteMhath
Lösung SlainteMhath 20.03.2023 um 13:51:56 Uhr
Goto Top
lösch einfach den ganzen Ordner Cache

rmdir "%localappdata%\Google\Chrome\User Data\Default\Cache" /Q /S  
6247018886
Lösung 6247018886 20.03.2023 aktualisiert um 15:08:53 Uhr
Goto Top
set objShell = CreateObject("WScript.Shell")  
CreateObject("Scripting.FilesystemObject").DeleteFolder objShell.ExpandEnvironmentStrings("%localappdata%") & "\Google\Chrome\User Data\Default\Cache",True  
Hubert.N
Hubert.N 20.03.2023 aktualisiert um 15:49:03 Uhr
Goto Top
Zitat von @SlainteMhath:
rmdir "%localappdata%\Google\Chrome\User Data\Default\Cache" /Q /S  

... genau diese Zeile hatte ich mir auch schon gedacht. Ich hatte mich nicht nicht getraut, das zu schreiben... face-big-smile
Aber wozu ein Einzeiler, wenn an das auch mit 30 Zeilen Programmcode erledigen kann!

Gruß