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.
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
start menu errors 1
- Thread starter babybella1
- Start date
- Status
Hi,
here are a couple of places to check:
The Startup folder in all profiles .
The registry in HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
(in the run keys)
![[profile]](/data/assets/smilies/profile.gif "[profile] [profile]")
To Paraphrase:"The Help you get is proportional to the Help you give.."
here are a couple of places to check:
The Startup folder in all profiles .
The registry in HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
(in the run keys)
To Paraphrase:"The Help you get is proportional to the Help you give.."
-
1
- #3
There is always this tool to use.
310560 - How to Troubleshoot By Using the Msconfig Utility in Windows XP
310560 - How to Troubleshoot By Using the Msconfig Utility in Windows XP
or this tool:
CCleaner
it's Registry Scan, will remove those Start Menu files that have no attached files, ergo it cleans out the Start Menu...
side benefit: it will also clean out the PC of other junk that accumulates over the years...
Ben
"If it works don't fix it! If it doesn't use a sledgehammer..."
How to ask a question, when posting them to a professional forum.
Only ask questions with yes/no answers if you want "yes" or "no"
CCleaner
it's Registry Scan, will remove those Start Menu files that have no attached files, ergo it cleans out the Start Menu...
side benefit: it will also clean out the PC of other junk that accumulates over the years...
Ben
"If it works don't fix it! If it doesn't use a sledgehammer..."
How to ask a question, when posting them to a professional forum.
Only ask questions with yes/no answers if you want "yes" or "no"
goombawaho
MIS
Autoruns is the best, but if you're not careful and turn the wrong thing off, windows may not boot.
Make sure hide all Microsoft entries and then it should be safer.
Make sure hide all Microsoft entries and then it should be safer.
CaptainCommandLine
Technical User
The "Run" portion of the registry exists in HKCU, as well as HKLM. I recommend that you export that portion of the registry first... That way, you can re-import it later if you remove the wrong key.
The above should have read:
START FILES, minus the MENU...
for those who want to know:
there are 29 different START RAMPS for programs under XP...
I could list them AGAIN, if someone wants to know them...
Ben
"If it works don't fix it! If it doesn't use a sledgehammer..."
How to ask a question, when posting them to a professional forum.
Only ask questions with yes/no answers if you want "yes" or "no"
START FILES, minus the MENU...
for those who want to know:
there are 29 different START RAMPS for programs under XP...
I could list them AGAIN, if someone wants to know them...
Ben
"If it works don't fix it! If it doesn't use a sledgehammer..."
How to ask a question, when posting them to a professional forum.
Only ask questions with yes/no answers if you want "yes" or "no"
goombawaho
MIS
BadBigBen - that's why I tell people to use Autoruns. They can turn things on/off using it OR they can just learn where those locations are by looking in the program.
I use a VBscript, I got off of a German website (CT), works like a charm...
and the quip about listing them again, is that if one searches hard enough on this Forum, I have had listed them quite a while ago... just don't remember when... or the thread off hand...
Ben
"If it works don't fix it! If it doesn't use a sledgehammer..."
How to ask a question, when posting them to a professional forum.
Only ask questions with yes/no answers if you want "yes" or "no"
and the quip about listing them again, is that if one searches hard enough on this Forum, I have had listed them quite a while ago... just don't remember when... or the thread off hand...
Ben
"If it works don't fix it! If it doesn't use a sledgehammer..."
How to ask a question, when posting them to a professional forum.
Only ask questions with yes/no answers if you want "yes" or "no"
goombawaho
MIS
Not recommended for the average user:
"a VBscript, I got off of a German website (CT)"
But then again - MSCONFIG can be dangerous in the wrong hands.
"a VBscript, I got off of a German website (CT)"
But then again - MSCONFIG can be dangerous in the wrong hands.
no, this one opens a window, where you can choose what to remove, by placing a tick mark ... very safe, as it only removes when you hit REMOVE... 
actually, it is a VB & HTML hybrid script, here take a gander, the English version (translated by me):
Ben
"If it works don't fix it! If it doesn't use a sledgehammer..."
How to ask a question, when posting them to a professional forum.
Only ask questions with yes/no answers if you want "yes" or "no"
actually, it is a VB & HTML hybrid script, here take a gander, the English version (translated by me):
Code:
<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>Ben
"If it works don't fix it! If it doesn't use a sledgehammer..."
How to ask a question, when posting them to a professional forum.
Only ask questions with yes/no answers if you want "yes" or "no"
goombawaho
MIS
Tell me again why this is better than a Microsoft-owned/supported product (Autoruns) especially if it does the same things??
manhunter2826
Technical User
I do love Autoruns also; just noticed that when you install Microsoft Windows Defender, in the Control Panel you now get a 'Software Explorers' icon - nowhere near as exhaustive as Autoruns however.
goombawaho
MIS
In the future, I'll give it a try if you say it's safe.
manhunter2826
Technical User
^Ah, sorry, I was unaware. Are there known issues surrounding it?
I did not say it was better, I said it was what I use... no more no less...
Ben
"If it works don't fix it! If it doesn't use a sledgehammer..."
How to ask a question, when posting them to a professional forum.
Only ask questions with yes/no answers if you want "yes" or "no"
goombawaho
MIS
Here's how to use Autoruns:
Download and extract the Autoruns program by Sysinternals to C:\Autoruns or wherever
Navigate to the C:\Autoruns folder you created in Step 1 and double-click on autoruns.exe.
When the program starts, click on the Options menu and enable the following options by clicking on them. This will place a checkmark next to each of these options.
1. Include empty locations
2. Verify Code Signatures
3. Hide Signed Microsoft Entries
Then press the F5 key on your keyboard to refresh the startups list using these new settings.
Now look for things that you don't want to start and uncheck them.
Download and extract the Autoruns program by Sysinternals to C:\Autoruns or wherever
Navigate to the C:\Autoruns folder you created in Step 1 and double-click on autoruns.exe.
When the program starts, click on the Options menu and enable the following options by clicking on them. This will place a checkmark next to each of these options.
1. Include empty locations
2. Verify Code Signatures
3. Hide Signed Microsoft Entries
Then press the F5 key on your keyboard to refresh the startups list using these new settings.
Now look for things that you don't want to start and uncheck them.
- Status
Similar threads
- Locked
- Question
- Locked
- Question