badwolf
Goto Top

Batchdatei von verschieben bzw. Löschen von Dateien

Hallo

ich versuche via BATCH datei das Microsoftgedöns aus dem Startmenü zu verschieben oder löschen. Folgende Code habe ich nach den Wünschen, wie es ablaufen soll schon erstellt.

RD /S /Q "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Winzip"  
RD /s /Q "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Games"  
MOVE /Y /-Y "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\Snipping Tool.LNK" "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Tools"  
MOVE /Y /-Y "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Windows Fax and Scan.lnk" "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories"  
MOVE /Y /-Y "C:\ProgramData\Microsoft\Windows\Start Menu\Windows Update.lnk" "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\System Tools"  
MOVE /Y /-Y "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Media Center.lnk" "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories"  
MOVE /Y /-Y "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Windows DVD Maker.lnk" "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories"  
DEL /F "C:\ProgramData\Microsoft\Windows\Start Menu\Default Programs.INK"  

nun für ich dieses als Domainadmin aber auch unter administrativen rechten aus, aber nix passiert, keine Löschung, keine Verschiebung. Aber eine manuelle Löschung und Verschiebung unter diesem User ist möglich. Liegt hier ein Fehler von mir vor? oder ist dieses via Script nicht möglich?

Die Batch datei, sobald funktionsfähig wird in ein vbs - Script eingebettet und zur automatischen Installation verwendet.

Content-Key: 185698

Url: https://administrator.de/contentid/185698

Ausgedruckt am: 29.03.2024 um 15:03 Uhr

Mitglied: Ravers
Ravers 31.05.2012 um 11:10:08 Uhr
Goto Top
Moin,

ööööhm, schau dir mal die Schalter von Move an .. was soll das mit /Y und danach /-Y ??? Windows verwirren? ... macht es idR. schon von allein.

greetz
ravers
Mitglied: BADwolf
BADwolf 31.05.2012 aktualisiert um 14:23:30 Uhr
Goto Top
Danke Ravers für deine Antwort!
Das stimmt, das war mein fehler, die sind auch eig nicht da, da ich das ganze in ein vbscript verwende und da die Syntaxfolge ohnehin anders ist.

aber dennoch kann ich zumindest die Microsoft eigenen Ordner und Dateien, welche dort angesprochen nicht verschieben nicht mit adminstrativen Rechten und nicht als Administrator ausgeführt.

folgendermaßen sieht der code jetzt aus:

Set fso = CreateObject("Scripting.FileSystemObject")  
Set WshShell = WScript.CreateObject("wscript.shell")  
'dateien löschen  
if fso.FileExists ("C:\ProgramData\Microsoft\Windows\Start Menu\Default Programs.INK") then  
fso.deleteFile ("C:\ProgramData\Microsoft\Windows\Start Menu\Default Programs.INK")  
end if
if fso.FolderExists ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Winzip") then  
fso.deleteFolder ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Winzip")  
end if
if fso.FolderExists ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Games") then  
fso.deleteFolder ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Games")  
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 
Mitglied: Ravers
Ravers 31.05.2012 um 15:02:58 Uhr
Goto Top
Hi,

mag es sein, das es z.B. bei
fso.moveFile ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\Snipping Tool.LNK") , ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Tools\Snipping Tool.LNK")

den Ordner Tools (noch) nicht gibt??

Habe leider kein Win7 o.ä. hier. XP for ever face-wink

greetz
ravers
Mitglied: BADwolf
BADwolf 31.05.2012 um 15:44:43 Uhr
Goto Top
mh.. doch doch ... also auf den Rechnern auf den es zu installieren wäre, auf den gibt es dieses! da schon einige andere Scripte und Pakete diesen anlegen