babybella1
Technical User
everytime i boot up it tries to open programs that have been unistalled.trying to find a way to remove these programs from the startup.anyone have any good ideas?its getting tiresome clicking cancel repeatedly.
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
The Startup folder in all profiles .
The registry in HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
(in the run keys)
<HTML>
<HEAD>
<TITLE>Autostart-Programs</TITLE>
<HTA:APPLICATION ID="hta3"
APPLICATIONNAME="Autostart"
BORDER="thin"
BORDERSTYLE="normal"
CAPTION="yes"
SHOWINTASKBAR="yes"
SYSMENU="no"
INNERBORDER = "yes"
MAXIMIZEBUTTON = "no"
MINIMIZEBUTTON = "no"
WINDOWSTATE="normal"
SINGLEINSTANCE="yes"
CONTEXTMENU = "no"
SYSMENU = "no">
<STYLE type="text/css">
body { scrollbar-arrow-color: #000000;
font-family:Verdana;
font-style:normal;
font-size:12;
background-color:Buttonface}
.fading {font-size:14px;
background-color:#003159;
color:white;width:400;
filter:Alpha(style=1, opacity=90, startx=83, finishx=86)
</STYLE>
<SCRIPT LANGUAGE=vbscript>
'|--------------------------------------------------------------------------------------------------|'
on error resume next
Dim myfiles, myshell, Appshell, INIFile, SYSFile, WINFile, FullBatch
ReDim Apps(0)
ReDim Keys(0)
ReDim DivKey(0)
Set myfiles = CreateObject("Scripting.FileSystemObject")
Set myshell = CreateObject("Wscript.Shell")
Set Appshell = CreateObject("Shell.Application")
Set c = MyShell.Environment("PROCESS")
Tempdir=c("Temp")
windir = c("windir")
userprofile = c("userprofile")
allusersprofile = c("allusersprofile")
homedrive = Mid(windir, 1, InStr(1, windir, "\", 1)-1)
winver = myshell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
if winver = "" then
export = "regedit /e "
else
export = "regedit /a "
end if
'|--------------------------------------------------------------------------------------------------|'
Sub SubInitFenster
on error resume next
Document.all.KeyText.style.visibility="hidden"
Document.all.item("Button3").disabled=True
if not (myfiles.FileExists(windir & "\subinacl.exe")) Then
Document.all.item("Button4").disabled=True
Document.all.item("Button5").disabled=False
else
Document.all.item("Button4").disabled=False
Document.all.item("Button5").disabled=True
end if
'**********Registry Autostart-Keys***********
MasterKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run"
ReadReg "RegRunLM", MasterKey, Ubound(Divkey)
MasterKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run"
ReadReg "RegRunCU", MasterKey, Ubound(Divkey)
MasterKey = "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run"
ReadReg "RegRunDF", MasterKey, Ubound(Divkey)
MasterKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce"
ReadReg "RegRunOnceLM", MasterKey, Ubound(Divkey)
MasterKey = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce"
ReadReg "RegRunOnceCU", MasterKey, Ubound(Divkey)
MasterKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices"
ReadReg "RegRunServicesLM", MasterKey, Ubound(Divkey)
MasterKey = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices"
ReadReg "RegRunServicesCU", MasterKey, Ubound(Divkey)
MasterKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce"
ReadReg "RegRunServicesOnceLM", MasterKey, Ubound(Divkey)
MasterKey = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce"
ReadReg "RegRunServicesOnceCU", MasterKey, Ubound(Divkey)
MasterKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run"
ReadReg "RegExRunLM", MasterKey, Ubound(Divkey)
MasterKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run"
ReadReg "RegExRunCU", MasterKey, Ubound(Divkey)
'**********Scriptcalls per Registry***********
MasterKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\Scripts"
ReadReg "ScriptLM", MasterKey, Ubound(Divkey)
MasterKey = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\Scripts"
ReadReg "ScriptCU", MasterKey, Ubound(Divkey)
'**********Special Registry-Autostart***********
MasterKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit"
ReadUserInit MasterKey
MasterKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\load"
ReadLoad MasterKey
'**********Windows Autostart-Folder***********
MasterFold = userprofile & "\Startmenü\Programme\Autostart"
ReadFold MasterFold
MasterFold = Startup
ReadFold MasterFold
MasterFold = windir & "\Startmenü\Programme\Autostart"
ReadFold MasterFold
'**********Autostarts within INI-Files***********
MasterFile = windir & "\Win.ini"
ReadFile MasterFile
MasterFile = windir & "\System.ini"
ReadFile MasterFile
'**********Autostarts within Batch-Files***********
MasterBat = windir & "\Winstart.bat"
ReadBAT MasterBat
MasterBat = homedrive & "\Autoexec.bat"
ReadBAT MasterBat
MasterBat = homedrive & "\Config.Sys"
ReadBAT MasterBat
'**********Autostart-Folder per Registry***********
MasterKey = "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup"
OverRegFold MasterKey
MasterKey = "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup"
OverRegFold MasterKey
MasterKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup"
OverRegFold MasterKey
MasterKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup"
OverRegFold MasterKey
MasterKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup"
OverRegFold MasterKey
MasterKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup"
OverRegFold MasterKey
'Reading of generated Arrays
DivList = ""
xx=0
yy=0
for x=0 to Ubound(DivKey)
inp = Instr(1, Divkey(x), "nbsp;", 1)
out = Instr(1, Divkey(x), "</DIV>", 1)
nbsp = mid(DivKey(x), inp+5, out-inp-5)
if instr(1, DivList, nbsp, 1) = 0 then
xx = x - yy
Divkey(x) = Replace(Divkey(x), "ColorSel" & x, "ColorSel" & xx)
DivList = DivList & DivKey(x)
else
yy = yy+1
end if
next
if DivList = "" then
DivList = "<DIV>Keine Autostart-Einträge gefunden</DIV>"
end if
document.all.tableRegKey.innerHTML = DivList
y = Ubound(DivKey)*20+120
window.resizeTo 800, y
Set count = Myfiles.OpentextFile(Tempdir & "\count.txt", 2, True)
count.write Ubound(DivKey)
count.close
end Sub
'|--------------------------------------------------------------------------------------------------|'
Function ReadReg(Regfile, MasterKey, n)
Redim Preserve Keys(n)
ReDim Preserve DivKey(n)
myshell.run export & Tempdir & "\" & Regfile & ".reg " & chr(34) & MasterKey & chr(34), 0, True
if (myfiles.FileExists(Tempdir & "\" & Regfile & ".reg")) Then
RRegfile = Tempdir & "\" & Regfile & ".reg"
Set FRead = Myfiles.OpentextFile(RRegFile, 1, False)
Keys(n) = FRead.Readall
FRead.Close
if not Instr(1, Keys(n), "=", 1) = 0 and not instr(1, Keys(n), ".", 1) = 0 and mid(RegFile, 1, 3) = "Reg" then
DivKey(n) = "<DIV ID=ColorSel" & n & " Title=" & Chr(34) & Regfile & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &Regfile & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterKey & "</DIV>"
Redim Preserve Keys(n+1)
ReDim Preserve DivKey(n+1)
elseif not Instr(1, Keys(n), "=", 1) = 0 and not Instr(1, lcase(Keys(n)), "script" & Chr(34) & "=", 1 ) = 0 and mid(RegFile, 1, 6) = "Script" then
DivKey(n) = "<DIV ID=ColorSel" & n & " Title=" & Chr(34) & Regfile & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &Regfile & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterKey & "</DIV>"
Redim Preserve Keys(n+1)
ReDim Preserve DivKey(n+1)
end if
end if
ReadReg = n
end Function
'|--------------------------------------------------------------------------------------------------|'
Function ReadUserInit(MasterKey)
m=0
UserInit = myshell.Regread(MasterKey)
if Instr(1, UserInit, ",", 1) = 0 then UserInit=""
UserInit = Mid(UserInit, Instr(1, UserInit, ",", 1)+1, Len(UserInit))
If not UserInit = "" then
do
SearchComma = 0
SearchComma = Instr(1, UserInit, ",", 1)
if SearchComma = 0 and not UserInit = "" then
Redim Preserve Apps(m)
Apps(m) = UserInit
exit do
end if
Redim Preserve Apps(m)
Apps(m) = Left(UserInit, SearchComma-1)
UserInit = Mid(UserInit, SearchComma+1, Len(UserInit))
m = m+1
Loop until UserInit = ""
ReDim Preserve DivKey(Ubound(Divkey))
DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & "UserInit" & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &"UserInit" & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & Masterkey & "</DIV>"
ReDim Preserve DivKey(Ubound(Divkey)+1)
end if
End Function
'|--------------------------------------------------------------------------------------------------|'
Function ReadLoad(MasterKey)
LoadReg = myshell.Regread(MasterKey)
If not Loadreg = "" then
ReDim Preserve DivKey(Ubound(Divkey))
DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & "LoadKey" & Masterkey & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &"LoadKey" & Masterkey & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterKey & "</DIV>"
ReDim Preserve DivKey(Ubound(Divkey)+1)
end if
End Function
'|--------------------------------------------------------------------------------------------------|'
Function OverRegFold(MasterKey)
StartFold = MyShell.RegRead(MasterKey)
if not StartFold = "" then
ReadFold StartFold
end if
End Function
'|--------------------------------------------------------------------------------------------------|'
Function ReadFold(MasterFold)
n=0
if (myfiles.FolderExists(MasterFold)) Then
Set StartFold = MyFiles.GetFolder(MasterFold)
Set AutoFiles = StartFold.Files
if (myfiles.FileExists(MasterFold & "\Desktop.ini")) then
n=1
end if
Zaehler = AutoFiles.Count - n
if Zaehler > 0 Then
ReDim Preserve DivKey(Ubound(Divkey))
DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & MasterFold & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &MasterFold & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterFold & "</DIV>"
ReDim Preserve DivKey(Ubound(Divkey)+1)
end if
end if
End Function
'|--------------------------------------------------------------------------------------------------|'
Function ReadFile(MasterFile)
on error resume next
if (myfiles.FileExists(MasterFile)) Then
Set FRead = Myfiles.OpentextFile(MasterFile, 1, False)
INIFile = FRead.Readall
LoadStri = Instr(1, lcase(INIFile), "load=", 1)
if LoadStri = 0 Then LoadStri = Instr(1, lcase(INIFile), "load =", 1)
if not LoadStri = 0 then
LoadStro = Instr(LoadStri, INIFile, vbNewLine, 1)
if LoadStro = 0 then LoadStro = Len(INIFile)
end if
RunStri = Instr(1, lcase(INIFile), "run=", 1)
if RunStri = 0 Then RunStri = Instr(1, lcase(INIFile), "run =", 1)
if not RunStri = 0 then
RunStro = Instr(RunStri, INIFile, vbNewLine, 1)
if RunStro = 0 then RunStro = Len(INIFile)
end if
ShellStri = Instr(1, lcase(INIFile), "shell=", 1)
if ShellStri = 0 Then ShellStri = Instr(1, lcase(INIFile), "shell =", 1)
if not ShellStri = 0 then
ShellStro = Instr(ShellStri, INIFile, vbNewLine, 1)
if ShellStro = 0 then ShellStro = Len(INIFile)
end if
if RunStro - RunStri > 4 and not RunStri = 0 or LoadStro - LoadStri > 5 and not LoadStri = 0 then
WINFile = INIFile
ReDim Preserve DivKey(Ubound(Divkey))
DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & MasterFile & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &MasterFile & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterFile & "</DIV>"
ReDim Preserve DivKey(Ubound(Divkey)+1)
MasterFile = ""
elseif ShellStro - ShellStri > 20 and not ShellStri = 0 then
SYSfile=INIFile
ReDim Preserve DivKey(Ubound(Divkey))
DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & MasterFile & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &MasterFile & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterFile & "</DIV>"
ReDim Preserve DivKey(Ubound(Divkey)+1)
MasterFile = ""
end if
end if
End Function
'|--------------------------------------------------------------------------------------------------|'
Function ReadBAT(MasterBat)
on error resume next
if (myfiles.FileExists(MasterBat)) Then
if instr(1, lcase(Masterbat), ".sys", 1) = 0 then
Set DivFL = myfiles.GetFile(MasterBat)
DivSize = DivFl.Size
If DivSize > 0 then
ReDim Preserve DivKey(Ubound(Divkey))
DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & MasterBat & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &MasterBat & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterBat & "</DIV>"
ReDim Preserve DivKey(Ubound(Divkey)+1)
end if
else
Set FRead = Myfiles.OpentextFile(MasterBat, 1, False)
SYSFull = Fread.ReadAll
if not instr(1, lcase(sysfull), "install=", 1) = 0 or not instr(1, lcase(sysfull), "install =", 1) = 0 then
ReDim Preserve DivKey(Ubound(Divkey))
DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & MasterBat & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &MasterBat & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterBat & "</DIV>"
ReDim Preserve DivKey(Ubound(Divkey)+1)
end if
end if
end if
End Function
'|--------------------------------------------------------------------------------------------------|'
Sub SubMarkSelection
on error resume next
n = 0
Set count = Myfiles.OpentextFile(Tempdir & "\count.txt", 1, False)
zahl = count.readall
count.close
do
If document.all.Sellnk(n).Checked Then
document.all.Sellnk(n).style.backgroundColor="salmon"
document.all.Item("ColorSel" & n).style.backgroundColor="salmon"
Document.all.KeyText.style.visibility="visible"
If mid(lcase(document.all.Sellnk(n).Title), 1, 3) = "reg" then
RegTxtEdit n
elseif lcase(document.all.Sellnk(n).Title) = "userinit" then
InitEdit
elseif mid(lcase(document.all.Sellnk(n).Title), 1, 6) = "script" then
ScriptEdit n
elseif mid(lcase(document.all.Sellnk(n).Title), 1,4) = "load" then
LoadEdit n
elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "\autostart", 1) = 0 then
FoldEdit n
elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "\win.ini", 1) = 0 then
FileEdit n
elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "\system.ini", 1) = 0 then
SysEdit n
elseif not Instr(1, lcase(document.all.Sellnk(n).Title), ".bat", 1) = 0 then
BatEdit n
elseif not Instr(1, lcase(document.all.Sellnk(n).Title), ".sys", 1) = 0 then
CSysEdit n
end if
window.resizeTo 800, y+480
Else
document.all.Sellnk(n).style.backgroundColor=""
document.all.Item("ColorSel" & n).style.backgroundColor=""
End If
n = n+1
loop until zahl - n = 0
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub RegTxtEdit(n)
m=1
x=0
Do
Zeile = Instr(m, Keys(n), vbNewLine, 1)
RegText = Mid(Keys(n), m+1, Zeile-m)
RegText = Replace(RegText, Chr(34), "'")
if not instr(1, RegText, "=", 1) = 0 and not instr(1, RegText, ".", 1) = 0 then
RegList = RegList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & RegText & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & RegText & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & RegText & "</DIV>"
x=x+1
end if
m=Zeile+1
Document.all.KeyText.innerHTML = RegList
Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
countreg.write x
countreg.close
loop until Zeile >= Len(Keys(n))
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub InitEdit
For m=0 to Ubound(Apps)
UserInitList = UserInitList & "<DIV ID=ColorSelR" & m & " Title=" & Chr(34) & Apps(m) & Chr(34) &"><INPUT type=checkbox name=SelReg" & m & " Title=" & Chr(34) & Apps(m) & Chr(34) & " onClick=" & Chr(34)& "SubMarkRegSelection" & Chr(34) & "> " & Apps(m) & "</DIV>"
next
Document.all.KeyText.innerHTML = UserInitList
Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
countreg.write m
countreg.close
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub ScriptEdit(n)
m=1
x=0
Do
Zeile = Instr(m, Keys(n), vbNewLine, 1)
RegText = Mid(Keys(n), m+1, Zeile-m)
RegText = Replace(RegText, Chr(34), "'")
if not instr(1, RegText, "=", 1) = 0 and not instr(1, RegText, "Script", 1) = 0 then
RegList = RegList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & RegText & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & RegText & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & RegText & "</DIV>"
x=x+1
end if
m=Zeile+1
Document.all.KeyText.innerHTML = RegList
Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
countreg.write x
countreg.close
loop until Zeile >= Len(Keys(n))
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub LoadEdit(n)
m=0
on error resume next
LKey = Mid(document.all.Sellnk(n).Title, 8, len(document.all.Sellnk(n).Title))
LReg = Myshell.Regread(LKey)
LoadList = "<DIV ID=ColorSelR" & m & " Title=" & chr(34) & LReg & Chr(34) & "><INPUT type=checkbox name=SelReg" & m & " Title=" & chr(34) & LReg & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & LReg & "</DIV>"
Document.all.KeyText.innerHTML = LoadList
Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
countreg.write 1
countreg.close
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub FoldEdit(n)
x=0
Set StartFold = MyFiles.GetFolder(document.all.Sellnk(n).Title)
Set AutoFiles = StartFold.Files
For Each AutoFile in AutoFiles
if instr(1, Lcase(AutoFile), "\desktop.ini", 1) = 0 then
FoldList = FoldList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & AutoFile & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & AutoFile & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & MyFiles.GetFileName(AutoFile) & "</DIV>"
x=x+1
end if
next
Document.all.KeyText.innerHTML = FoldList
Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
countreg.write x
countreg.close
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub FileEdit(n)
on error resume next
x=0
Runmehr = 0
Loadmehr = 0
LoadStri = Instr(1, lcase(WINFile), "load=", 1)
if LoadStri = 0 then LoadStri = Instr(1, lcase(WINFile), "load =", 1)
LoadStro = Instr(LoadStri, WINFile, vbNewLine, 1)
if LoadStro = 0 then
LoadStro = Len(WINFile)
Loadmehr = 1
end if
RunStri = Instr(1, lcase(WINFile), "run=", 1)
if RunStri = 0 then RunStri = Instr(1, lcase(WINFile), "run =", 1)
RunStro = Instr(RunStri, WINFile, vbNewLine, 1)
if RunStro = 0 then
RunStro = Len(WINFile)
Runmehr = 1
end if
if LoadStro - LoadStri > 5 and not LoadStri = 0 then
LoadStr = Mid(WINFile, LoadStri, LoadStro - LoadStri+Loadmehr)
LoadStr = Replace(LoadStr, Chr(34), "'")
FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & LoadStr & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & LoadStr & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & LoadStr & "</DIV>"
x=x+1
end if
if RunStro - RunStri > 4 and not RunStri = 0 then
RunStr = Mid(WINFile, RunStri, RunStro - RunStri+Runmehr)
RunStr = Replace(RunStr, Chr(34), "'")
FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & RunStr & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & RunStr & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & RunStr & "</DIV>"
x=x+1
end if
Document.all.KeyText.innerHTML = FileList
Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
countreg.write x
countreg.close
end Sub
'|--------------------------------------------------------------------------------------------------|'
Sub SysEdit(n)
on error resume next
x = 0
Shellmehr = 0
ShellStri = Instr(1, lcase(SYSFile), "shell=", 1)
if ShellStri = 0 Then ShellStri = Instr(1, lcase(SYSFile), "shell =", 1)
ShellStro = Instr(ShellStri, SYSFile, vbNewLine, 1)
if ShellStro = 0 then
ShellStro = Len(SYSFile)
Shellmehr = 1
end if
if ShellStro - ShellStri > 6 and not ShellStri = 0 then
ShellStr = Mid(SYSFile, ShellStri, ShellStro - ShellStri+Shellmehr)
ExCheck = Instr(1, lcase(ShellStr), "explorer.exe", 1)
if not ExCheck = 0 then
ShellStr2 = Trim(Replace(lcase(ShellStr), "explorer.exe", ""))
if not lcase(ShellStr2) = "shell=" then
ShellStr = Replace(ShellStr, Chr(34), "'")
FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & ShellStr & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & ShellStr & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & ShellStr2 & "</DIV>"
x=x+1
FileList = FileList & "<DIV> Explorer.exe</DIV>"
x=x+1
end if
elseif not ShellStr = "" and ExCheck = 0 then
ShellStr = Replace(ShellStr, Chr(34), "'")
FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & ShellStr & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & ShellStr & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & ShellStr & "</DIV>"
x=x+1
end if
end if
Document.all.KeyText.innerHTML = FileList
Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
countreg.write x
countreg.close
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub BatEdit(n)
on error resume next
x = 0
Set FRead = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 1, False)
do
Zeile = FRead.Readline
Zeile = Replace(Zeile, chr(34), "'")
FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & Zeile & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & Zeile & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & Zeile & "</DIV>"
x=x+1
Loop until FRead.AtEndOfStream
Fread.close
Document.all.KeyText.innerHTML = FileList
Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
countreg.write x
countreg.close
end Sub
'|--------------------------------------------------------------------------------------------------|'
Sub CSysEdit(n)
on error resume next
x = 0
Set FRead = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 1, False)
do
Zeile = FRead.Readline
Csys = instr(1, lcase(Zeile), "install=", 1)
if Csys = 0 then Csys = instr(1, lcase(Zeile), "install =", 1)
if not Csys = 0 then
Zeile = Replace(Zeile, chr(34), "'")
FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & Zeile & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & Zeile & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & Zeile & "</DIV>"
x=x+1
end if
Loop until FRead.AtEndOfStream
Fread.close
Document.all.KeyText.innerHTML = FileList
Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
countreg.write x
countreg.close
end Sub
'|--------------------------------------------------------------------------------------------------|'
Sub SubMarkRegSelection
on error resume next
m = 0
ch = 0
Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 1, False)
zahl = countreg.readall
countreg.close
do
If document.all.Item("SelReg"& m).Checked Then
Document.all.item("button3").disabled=False
document.all.Item("SelReg" & m).style.backgroundColor="salmon"
document.all.Item("ColorSelR" & m).style.backgroundColor="salmon"
ch = 1
Else
document.all.Item("SelReg" & m).style.backgroundColor=""
document.all.Item("ColorSelR" & m).style.backgroundColor=""
if ch = 0 then Document.all.item("button3").disabled=True
End If
m = m+1
loop until zahl - m = 0
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub Apply
n = 0
m = 0
on error resume next
Set count = Myfiles.OpentextFile(Tempdir & "\count.txt", 1, False)
zahl = count.readall
count.close
Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 1, False)
zahlreg = countreg.readall
countreg.close
do
If document.all.Sellnk(n).Checked Then
do
If document.all.Item("SelReg" & m).Checked Then
If mid(lcase(document.all.Sellnk(n).Title), 1, 3) = "reg" then
RegTxtDel n, m
elseif mid(lcase(document.all.Sellnk(n).Title), 1, 6) = "script" then
ScriptDel n, m
elseif lcase(document.all.Sellnk(n).Title) = "userinit" then
if InitRoot = "" then
InitRoot = myshell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit")
end if
InitRoot = Replace(InitRoot, "," & document.all.Item("SelReg" & m).Title, "")
MyShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit", InitRoot, "REG_SZ"
elseif mid(lcase(document.all.Sellnk(n).Title), 1, 4) = "load" then
LKey = Mid(document.all.Sellnk(n).Title, 8, len(document.all.Sellnk(n).Title))
MyShell.RegDelete LKey
elseif (myfiles.FolderExists(document.all.Sellnk(n).Title)) Then
MyFiles.DeleteFile(document.all.Item("SelReg" & m).Title)
elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "\win.ini", 1) = 0 then
AutoEintr = Replace(document.all.Item("SelReg" & m).Title, "'", Chr(34))
if not instr(1, WINFile, AutoEintr & vbNewLine) = 0 then
WINFile = Replace(WINFile, AutoEintr & vbNewLine, "")
else
WINFile = Replace(WINFile, AutoEintr, "")
end if
WINFile = Replace(WINFile, AutoEintr, "")
Set FWrite = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 2, False)
FWrite.Write WINFile
FWrite.Close
elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "\system.ini", 1) = 0 then
AutoEintr = Replace(document.all.Item("SelReg" & m).Title, "'", Chr(34))
if not Instr(1, lcase(AutoEintr), "explorer.exe", 1) = 0 then
SYSFile = Replace(SYSFile, AutoEintr, "Shell=Explorer.exe")
end if
if not instr(1, SYSFile, AutoEintr & vbNewLine) = 0 then
SYSFile = Replace(SYSFile, AutoEintr & vbNewLine, "")
else
SYSFile = Replace(SYSFile, AutoEintr, "")
end if
SYSFile = Replace(SYSFile, AutoEintr, "")
Set FWrite = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 2, False)
FWrite.Write SYSFile
FWrite.Close
elseif not Instr(1, lcase(document.all.Sellnk(n).Title), ".bat", 1) = 0 then
if FullBatch = "" then
Set BatchF = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 1, False)
FullBatch = Batchf.Readall
Batchf.Close
end if
BatTxTDel FullBatch, n, m
elseif not Instr(1, lcase(document.all.Sellnk(n).Title), ".sys", 1) = 0 then
Set FRead = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 1, False)
AutoEintr = Replace(document.all.Item("SelReg" & m).Title, "'", Chr(34))
SYSFull = Fread.ReadAll
if not instr(1, SYSFull, AutoEintr & vbNewLine) = 0 then
SYSFull = Replace(SYSFull, AutoEintr & vbNewLine, "")
else
SYSFull = Replace(SYSFull, AutoEintr, "")
end if
SYSFull = Replace(SYSFull, AutoEintr, "")
Set FWrite = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 2, False)
FWrite.Write SYSFull
FWrite.Close
end if
end if
m = m+1
loop until zahlreg - m = 0
if (myfiles.FileExists(Tempdir & "\" & document.all.Sellnk(n).Title & "_neu.reg")) Then
Bef = myshell.run("regedit /s " & Tempdir & "\" & document.all.Sellnk(n).Title & "_neu.reg", 0, True)
myfiles.DeleteFile(Tempdir & "\" & document.all.Sellnk(n).Title & "_neu.reg")
End if
exit do
End If
n = n+1
loop until zahl - n = 0
window.location.reload
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub RegTxtDel(n, m)
org = Replace(document.all.Item("SelReg" & m).Title, "'", Chr(34))
RegStr = Left(org, Instr(1, org, "=", 1))
Keys(n) = Replace(Keys(n), org, RegStr & "-" & VBCR)
Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & document.all.Sellnk(n).Title & "_neu.reg", 2, True)
FWrite.Write Keys(n)
FWrite.Close
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub ScriptDel(n, m)
org = Replace(document.all.Item("SelReg" & m).Title, "'", Chr(34))
SrcKeyo = InstrRev(Keys(n), "]", Instr(1, Keys(n), org, 1), 1)
SrcKeyi = InstrRev(Keys(n), "[", Instr(1, Keys(n), org, 1), 1)
SrcKey = Mid(Keys(n), SrcKeyi+1, SrcKeyo-SrcKeyi-1)
Keys(n) = Replace(Keys(n), SrcKey, "-" & SrcKey)
Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & document.all.Sellnk(n).Title & "_neu.reg", 2, True)
FWrite.Write Keys(n)
FWrite.Close
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub BatTxtDel(FullBatch, n, m)
org = Replace(document.all.Item("SelReg" & m).Title, "'", Chr(34))
if not instr(1, FullBatch, org & vbNewLine) = 0 then
FullBatch = Replace(FullBatch, org & vbNewLine, "")
else
FullBatch = Replace(FullBatch, org, "")
end if
FullBatch = Replace(FullBatch, org, "")
Set FWrite = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 2, False)
FWrite.Write FullBatch
FWrite.Close
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub SubQuit
on error resume next
Set count = Myfiles.OpentextFile(Tempdir & "\count.txt", 1, False)
zahl = count.readall
count.close
If (myfiles.FileExists(Tempdir & "\count.txt")) then
myfiles.DeleteFile(Tempdir & "count.txt")
end if
If (myfiles.FileExists(Tempdir & "\countreg.txt")) then
myfiles.DeleteFile(Tempdir & "\countreg.txt")
end if
myfiles.DeleteFile(Tempdir & "\*.reg")
Set myshell = Nothing
Window.Close
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub SetACL
Set MyNetwork = CreateObject("WScript.Network")
Benutzer = MyNetwork.UserName
on error resume next
Test = MyShell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\pcw_acl")
if Test="" then
Frage = Msgbox("Möchten Sie den Schreibzugriff auf die Autostart-Quellen verbieten?", 36, "Berechtigung ändern")
If Frage = 7 then exit Sub
Set BatchACL = MyFiles.OpentextFile(Tempdir & "\BatchACL.BAT", 2, True)
BatchACL.Writeline "subinacl /keyreg Hkey_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Run /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg Hkey_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Run /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\SCripts /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\SCripts /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\Scripts /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\Scripts /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit /deny=System=SC"
USFD = MyShell.Regread("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup")
SFD = MyShell.Regread("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\ Shell Folders\Startup")
USFM = MyShell.Regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup")
SFM = MyShell.Regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup")
SFU = MyShell.Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup")
USFU = MyShell.Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup")
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup" & chr(34) & " /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup" & chr(34) & " /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup" & chr(34) & " /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup" & chr(34) & " /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup" & chr(34) & " /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup" & chr(34) & " /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup" & chr(34) & " /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup" & chr(34) & " /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup" & chr(34) & " /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup" & chr(34) & " /deny=System=SC"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup" & chr(34) & " /deny=" & Benutzer & "=SC"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup" & chr(34) & " /deny=System=SC"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\win.ini /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\win.ini /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & userprofile & "\Startmenü\Programme\Autostart" & chr(34) & " /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & userprofile & "\Startmenü\Programme\Autostart" & chr(34) & " /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & allusersprofile & "\Startmenü\Programme\Autostart" & chr(34) & " /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & allusersprofile & "\Startmenü\Programme\Autostart" & chr(34) & " /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\Startmenü\Programme\Autostart /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\Startmenü\Programme\Autostart /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\System.ini /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\System.ini /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\Winstart.bat /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\Winstart.bat /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & homedrive & "\Autoexec.bat /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & homedrive & "\Autoexec.bat /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & homedrive & "\Config.Sys /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & homedrive & "\Config.Sys /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFD & chr(34) & " /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFD & chr(34) & " /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFM & chr(34) & " /deny=" & Benutzer & "=CW"
'atchACL.Writeline "subinacl /subdirectories "& chr(34) & USFM & chr(34) & " /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFD & chr(34) & " /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFD & chr(34) & " /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFM & chr(34) & " /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFM & chr(34) & " /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFU & chr(34) & " /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFU & chr(34) & " /deny=System=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFU & chr(34) & " /deny=" & Benutzer & "=CW"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFU & chr(34) & " /deny=System=CW"
BatchACL.Close
Set BatchACL = MyFiles.OpentextFile(Tempdir & "\BatchACL.BAT", 1, False)
t = BatchACL.Readall
t = replace(t, chr(228), chr(132))
t = replace(t, chr(246), chr(148))
t = replace(t, chr(252), chr(129))
t = replace(t, chr(196), chr(142))
t = replace(t, chr(214), chr(153))
t = replace(t, chr(220), chr(154))
t = replace(t, chr(223), chr(225))
BatchACL.Close
Set BatchACL = MyFiles.OpentextFile(Tempdir & "\BatchACL.BAT", 2, False)
BatchACL.Write t
BatchACL.Close
ACL = MyShell.Run("cmd /c " & Tempdir & "\BatchACL.BAT", 1, True)
MyShell.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\pcw_acl", "1", "REG_SZ"
msgbox "Die Schreibrechte auf alle Autostart-Quellen wurden dem Benutzer und dem System entzogen"
Loesch = MyFiles.Deletefile(Tempdir & "\BatchACL")
else
Frage = Msgbox("Möchten Sie den Schreibzugriff auf die Autostart-Quellen erlauben?", 36, "Berechtigung ändern")
If Frage = 7 then exit Sub
Set BatchACL = MyFiles.OpentextFile(Tempdir & "\BatchACL.BAT", 2, True)
BatchACL.Writeline "subinacl /keyreg Hkey_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Run /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg Hkey_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Run /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\Scripts /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\Scripts /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\Scripts /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\Scripts /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit /grant=System=F"
USFD = MyShell.Regread("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup")
SFD = MyShell.Regread("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\ Shell Folders\Startup")
USFM = MyShell.Regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup")
SFM = MyShell.Regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup")
SFU = MyShell.Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup")
USFU = MyShell.Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup")
BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup /grant=System=F"
BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup /grant=System=F"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup" & chr(34) & " /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup" & chr(34) & " /grant=System=F"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup" & chr(34) & " /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup" & chr(34) & " /grant=System=F"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup" & chr(34) & " /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup" & chr(34) & " /grant=System=F"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup" & chr(34) & " /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup" & chr(34) & " /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\win.ini /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\win.ini /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & userprofile & "\Startmenü\Programme\Autostart" & chr(34) & " /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & userprofile & "\Startmenü\Programme\Autostart" & chr(34) & " /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & allusersprofile & "\Startmenü\Programme\Autostart" & chr(34) & " /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & allusersprofile & "\Startmenü\Programme\Autostart" & chr(34) & " /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\Startmenü\Programme\Autostart /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\Startmenü\Programme\Autostart /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\System.ini /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\System.ini /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\Winstart.bat /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories " & windir & "\Winstart.bat /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & homedrive & "\Autoexec.bat /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories " & homedrive & "\Autoexec.bat /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFD & chr(34) & " /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFD & chr(34) & " /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFM & chr(34) & " /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories "& chr(34) & USFM & chr(34) & " /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFD & chr(34) & " /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFD & chr(34) & " /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFM & chr(34) & " /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFM & chr(34) & " /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFU & chr(34) & " /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFU & chr(34) & " /grant=System=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFU & chr(34) & " /grant=" & Benutzer & "=F"
BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFU & chr(34) & " /grant=System=F"
BatchACL.Close
Set BatchACL = MyFiles.OpentextFile(Tempdir & "\BatchACL.BAT", 1, False)
t = BatchACL.Readall
t = replace(t, chr(228), chr(132))
t = replace(t, chr(246), chr(148))
t = replace(t, chr(252), chr(129))
t = replace(t, chr(196), chr(142))
t = replace(t, chr(214), chr(153))
t = replace(t, chr(220), chr(154))
t = replace(t, chr(223), chr(225))
BatchACL.Close
Set BatchACL = MyFiles.OpentextFile(Tempdir & "\BatchACL.BAT", 2, False)
BatchACL.Write t
BatchACL.Close
ACL = MyShell.Run("cmd /c " & Tempdir & "\BatchACL.BAT", 1, True)
MyShell.Regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\pcw_acl"
msgbox "Die Schreibrechte auf alle Autostart-Quellen wurden dem Benutzer und dem System erteilt"
Loesch = MyFiles.Deletefile(Tempdir & "\BatchACL")
end if
window.location.reload
End Sub
'|--------------------------------------------------------------------------------------------------|'
Sub Hilfe
H = Msgbox("Wenn Sie über die Schaltfläche " & chr(34) & "Berechtigungen" & chr(34) & ", das Schreibrecht auf alle Autostart-Quelle entfernen möchten, müssen Sie " &_
"Windows 2000 oder XP auf einer NTFS-Partition verwenden. Zusätzlich müssen Sie das englischsprachige Microsoft-Tool Subinacl.EXE von [URL unfurl="true"]www.pcwelt.de/sac[/URL] herunterladen " &_
"(371 KB), installieren, und die EXE-Datei dann in Ihr Windows-Verzeichnis kopieren.",, "Hilfe")
End Sub
'|--------------------------------------------------------------------------------------------------|'
</SCRIPT>
</HEAD>
<BODY onload="SubInitFenster" scroll="no">
<DIV ID=tableRegKey></DIV>
<HR style=" & Chr(34) & "height:5px; color:black" & Chr(34) &"></BR>
<INPUT Type=button value="Remove" name=button3 size=52 onClick="Apply">
<INPUT Type=button value="Permission" & Text name=button4 size=52 onClick="SetACL">
<INPUT Type=button value="?" name=button5 size=52 onClick="Hilfe">
<INPUT Type=button value="Quit" name=button2 size=32 onClick="SubQuit"></BR></BR>
<div ID=KeyText style="position:relative; top:0px; left:0px; width:785px; height:270px; overflow-y:auto"></div>
</BODY>
</HTML>
I did not say it was better, I said it was what I use... no more no less...Tell me again why this is better than a Microsoft-owned/supported product (Autoruns)