Wer kann helfen eine VBS Code anzupassen?

Hallo Zusammen,

ich brauche mal euere Hilfe zu diesem Code hier:

a = myshell.regread("HKCR\*\shell\Taskleiste einblenden\command\")
If a = "" Then
pcwscript=wscript.scriptfullname
Set pcwcopy=MyFiles.GetFile(pcwscript)
fold = Myfiles.GetParentFolderName(pcwscript)
Set pcwcopy2=MyFiles.GetFile(fold & "/PCWNOBAR.EXE")
pcwcopy.copy(installpath)
pcwcopy2.copy(installpath2)
myshell.regwrite("HKCR\*\shell\Taskleiste ausblenden\command\"), neu & "-aus"
myshell.regwrite("HKCR\Directory\shell\Taskleiste ausblenden\command\"), neu & "-aus"
msgbox "Taskleiste verstecken wurde installiert"
wscript.quit
Else
myshell.regdelete("HKCR\*\shell\Taskleiste einblenden\command\")
myshell.regdelete("HKCR\*\shell\Taskleiste einblenden\")
myshell.regdelete("HKCR\Directory\shell\Taskleiste einblenden\command\")
myshell.regdelete("HKCR\Directory\shell\Taskleiste einblenden\")
Weg=Myfiles.Deletefile(installpath, true)
Weg2=Myfiles.Deletefile(installpath2, true)
myshell.run "PCWNOBAR.EXE /e"
msgbox "Taskleiste verstecken wurde deinstalliert"
wscript.quit
End If
Else
myshell.regdelete("HKCR\*\shell\Taskleiste ausblenden\command\")
myshell.regdelete("HKCR\*\shell\Taskleiste ausblenden\")
myshell.regdelete("HKCR\Directory\shell\Taskleiste ausblenden\command\")
myshell.regdelete("HKCR\Directory\shell\Taskleiste ausblenden\")
Weg=Myfiles.Deletefile(installpath, true)
Weg2=Myfiles.Deletefile(installpath2, true)
msgbox "Taskleiste verstecken wurde deinstalliert"
wscript.quit
End if

end if

Select case mode

Case "-aus"
myshell.regdelete("HKCR\*\shell\Taskleiste ausblenden\command\")
myshell.regdelete("HKCR\*\shell\Taskleiste ausblenden\")
myshell.regwrite("HKCR\*\shell\Taskleiste einblenden\command\"), neu & "-ein"
myshell.regdelete("HKCR\Directory\shell\Taskleiste ausblenden\command\")
myshell.regdelete("HKCR\Directory\shell\Taskleiste ausblenden\")
myshell.regwrite("HKCR\Directory\shell\Taskleiste einblenden\command\"), neu & "-ein"
myshell.run "PCWNOBAR.EXE /a"

Case "-ein"
myshell.regdelete("HKCR\*\shell\Taskleiste einblenden\command\")
myshell.regdelete("HKCR\*\shell\Taskleiste einblenden\")
myshell.regwrite("HKCR\*\shell\Taskleiste ausblenden\command\"), neu & "-aus"
myshell.regdelete("HKCR\Directory\shell\Taskleiste einblenden\command\")
myshell.regdelete("HKCR\Directory\shell\Taskleiste einblenden\")
myshell.regwrite("HKCR\Directory\shell\Taskleiste ausblenden\command\"), neu & "-aus"
myshell.run "PCWNOBAR.EXE /e"

End Select

Im Prinzip brauche ich zwei VBS daraus eine die die Taskleiste ausblendet ohne Rückfrage und eine, die die wieder einblendet ohne Rückfrage! Ich habe diese VBS aus einer Zeitschrift, dass ding läuft auch, aber immer wenn ich den Rechner neu starte ist die Taskleiste wieder da!

CreateObject("WScript.Shell").Run "PCWNOBAR.EXE /a"

CreateObject("WScript.Shell").Run "PCWNOBAR.EXE /e"