The purpose here is to talk a little bit about technology and also give out some useful tips to fix really, REALLY, awkward Windows Errors, some interesting projects, Linux and tips, or "pro-tips" and some other random curiosities.
To start this blog I'll post some awkward errors that I've found during my time working at a Medical Disposables Factory. These were a pain to fix but with time and dedication, AKA Google, we easily removed/fixed all the issues.
As a quick side note remember that you MUST be an Administrator to run this commands, no guarantee on power users or limited users here.
Error 0x000022:
This, from what I recall, was caused by not having enough permissions or because the Read/Write permissions on the Windows DLL/OCX files is incorrect for a designated user/group.
CACLS %systemroot%\System32\*.dll /E /G BUILTIN\Users:R
CACLS %systemroot%\System32\*.ocx /E /G BUILTIN\Users:R
shutdown -r
Error 0x80004015:
This error can be the result of a security decriptor error on Windows when trying to use the Windows Updater, usually happens in Windows XP but I recall seeing this on 2000 also though I don't know if it works or not.
Windows Batch:
sc sdset bits "D:(A;;CCLCSWRPWPDTLOCRRC;;;SY)(A;;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;BA)(A;;CCLCSWLOCRRC;;;AU)(A;;CCLCSWRPWPDTLOCRRC;;;PU)"
sc sdset wuauserv "D:(A;;CCLCSWRPWPDTLOCRRC;;;SY)(A;;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;BA)(A;;CCLCSWLOCRRC;;;AU)(A;;CCLCSWRPWPDTLOCRRC;;;PU)"
Windows VBS:
Option Explicit
on error resume next
dim oAU, oBITS, oComputer
dim oCommand, oFSO, oShell
do while lcase(oComputer) <> "quit"
' gather input
oComputer = InputBox("Enter the workstation's name, or type quit to exit")
' stop services
set oFSO = CreateObject("Scripting.FileSystemObject")
set oBITS = GetObject("WinNT://" & oComputer & "/BITS")
oBITS.stop
set oAU = GetObject("WinNT://" & oComputer & "/wuauserv")
oAU.stop
' delete old jobs
set oFSO = CreateObject("Scripting,Filesystemobject")
oFso.DeleteFile("\\" & oComputer & "\c$\Documents and Settings\All Users\application data\microsoft\network\downloader\*.*" & chr(34)), DeleteReadOnly
' set security descriptors on services
Set oShell = CreateObject("WScript.shell")
oCommand = "sc \\" & oComputer & " sdset bits " & chr(34) &"D:(A;;CCLCSWRPWPDTLOCRRC;;;SY)(A;;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;BA)(A;;CCLCSWLOCRRC;;;AU)(A;;CCLCSWRPWPDTLOCRRC;;;PU)" & chr(34)
oShell.RunoCommand
oCommand = "sc \\" & oComputer & " sdsetwuauserv " & chr(34) & "D:(A;;CCLCSWRPWPDTLOCRRC;;;SY)(A;;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;BA)(A;;CCLCSWLOCRRC;;;AU)(A;;CCLCSWRPWPDTLOCRRC;;;PU)" & chr(34)
oShell.RunoCommand
' start services
oBITS.start
oAU.start
loop
Rebuilding the TCP/IP Stack:
Yes, from time to time every solar/lunar eclipse, you may need to use this. Be warned that this should only be used when you've discarded hardware issues and you know Windows is still not a lost cause... heh, right.
@echo off
echo Resetting...
netsh int ip reset resetlog.txt
echo Dumping...
netsh dump
exit
