hallo, folgenden Code habe ich soweit entwickelt um, nach Kundenvorgabe, Dateien und Ordner aus dem Startmenü zu verschieben oder gar zu löschen. Eigentlich sollte es soweit funktionieren, weil ich es ausgiebig versucht habe. Aber wenn ich auf Sachen von Microsoft zugreifen müchte, z:B. der Spiele Ordner, Standardprogramme.lnk (löschen), Snipping tool, Windows Updates (verschieben) wird die erlaubnis verweigert, obwohl ich es mit administrativen rechten (über die cmd) starte, was mich sehr wundert. Mit dem gleichen User kann ich dieses zwar manuell ausführen und habe hierzu auch die Berechtigung aber über Script klappt es nicht, wieso ist das so?
Wäre super wenn mir jemand helfen könnte.
Das ist der code:
wäre super, wenn mir jemand helfen könnte.
*Topic verschoben*
Wäre super wenn mir jemand helfen könnte.
Das ist der code:
Visual Basic-Quellcode
- if fso.FileExists ("C:\ProgramData\Microsoft\Windows\Start Menu\Default Programs.lnk") then
- fso.deleteFile ("C:\ProgramData\Microsoft\Windows\Start Menu\Default Programs.LNK")
- end if
- if fso.FolderExists ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Winzip") then
- fso.deleteFolder ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Winzip"),true
- end if
- if fso.FolderExists ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Games") then
- fso.deleteFolder ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Games"),true
- end if
- 'dateien verschieben
- if fso.FileExists ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\Snipping Tool.LNK") then
- fso.moveFile ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\Snipping Tool.LNK") , ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Tools\Snipping Tool.LNK")
- end if
- if fso.FileExists ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Windows Fax and Scan.lnk") then
- fso.moveFile ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Windows Fax and Scan.lnk") , ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\Windows Fax and Scan.lnk")
- end if
- if fso.FileExists ("C:\ProgramData\Microsoft\Windows\Start Menu\Windows Update.lnk") then
- fso.moveFile ("C:\ProgramData\Microsoft\Windows\Start Menu\Windows Update.lnk") , ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\System Tools\Windows Update.lnk")
- end if
- if fso.FileExists ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Media Center.lnk") then
- fso.moveFile ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Media Center.lnk") , ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\Media Center.lnk")
- end if
- if fso.FileExists ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Windows DVD Maker.lnk") then
- fso.moveFile ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Windows DVD Maker.lnk") , ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\Windows DVD Maker.lnk")
- end if
wäre super, wenn mir jemand helfen könnte.
*Topic verschoben*
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()