Frage: 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 ... 8 Kommentare, 358 mal gelesen.
↧