Greetings... and some Windows Bug you can easily fix!

Welcome to The Surge Tech Blog!

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