To fix the issue just run the following on the master server:
-Update(05/26/2020) Removed link as it was dead.
Auto, computer and electronics hardware hacking. Electronic projects, system administration scripts, ideas and anything fun and/or geeky :)
Long overdue update.
Added Vista support, removed old AutoIT declarations, and set the temp folder to be recreated after deletion to avoid random errors.
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=OLKaway.exe
#AutoIt3Wrapper_Compression=4
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs
This script will delete the Outlook temp folder under
c:\documents and settings\%username%\local settings\temporary internet files\OLKxxx (Windows XP/2000)
or
C:\Users\%username%\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.Outlook (Windows Vista)
It will check for the presense of the OutlookSecureTempFolder entry in the registry
starting with Outlook 2007, all the way to Outlook 2000 working backwards.
Once found, it will delete the contents.
/install option will add a shortcut to the startup folder.
/uninstall option will delete the shortcut.
no option will just execute the removal without installing.
created 01/07/2008
updates 10/09/2009
Added Vista support
Removed old AutoIT declarations
Corrected random Outlook issues due to the temp folder not being recreated, by creating it manually after each delete.
ab@nyitsupport.com
#ce
dim $InstallPath
$InstallPath = "C:\Program Files\NYITSupport\OLKaway\"
Select
case @OSVersion = "WIN_VISTA"
#requireadmin
Call ("StartSequence")
case @OSVersion = "WIN_XP"
Call ("StartSequence")
case @OSVersion = "WIN_2000"
$ver = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions", "ProductType")
If $ver = "ServerNT" then Exit
Call ("StartSequence")
case Else
Exit
EndSelect
Func StartSequence()
if $CmdLine[$CmdLine[0]] = "" then
call ("CleanUp")
Else
Select
case $CmdLine [1] = "/uninstall"
if not IsAdmin() then Exit
call ("Uninstall")
case $CmdLine [1] = "/install"
if not IsAdmin() then Exit
if FileExists($InstallPath) then Exit
Call ("Install")
case Else
Exit
EndSelect
EndIf
EndFunc
func CleanUp()
$OSTF = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Security", "OutlookSecureTempFolder") ; Outlook 2007
if @error then $OSTF = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Security\", "OutlookSecureTempFolder") ; Outlook 2003
if @error then $OSTF = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Security", "OutlookSecureTempFolder") ; Outlook XP
if @error then $OSTF = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Security", "OutlookSecureTempFolder") ; Outlook 2000
DirRemove($OSTF,1)
DirCreate($OSTF)
EndFunc
Func Install()
FileCopy (@ScriptFullPath, $InstallPath,8)
ShellExecute("cacls.exe", '"' & StringLeft($InstallPath, StringLen($InstallPath)-1) & '" /e /c /g BUILTIN\Users:F')
FileCreateShortcut($InstallPath &; "OLKaway.exe", @StartupCommonDir & "\NYITSUPPORT OLKaway.lnk", $InstallPath, "", "NYITSUPPORT OLKaway")
call ("CleanUp")
EndFunc
Func Uninstall()
FileDelete (@StartupCommonDir &; "\NYITSUPPORT OLKaway.lnk")
DirRemove($InstallPath,1)
EndFunc
I ran into an interesting issue the other day. A machine registered in WSUS would appear and then dissapear from the WSUS 3 SP1 console.
Found the solution to the problem on the following links:
http://blog.netnerds.net/2006/12/wsus-force-registration-of-clients-that-are-not-showing-up/ – best source
https://www.experts-exchange.com/questions/23550840/Computers-disappearing-from-WSUS.html
Here is a script that will run only once if completed successfully. It will also write a log in either case to a subfolder where it ran from with a computer name in the file name.
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=WSUSFix.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs
WSUSFix
This application will repair WSUS issues that may have been caused by the machine being imaged.
Referrenced from:
http://www.wsuswiki.com/ClientFAQ
http://www.experts-exchange.com/OS/Microsoft_Operating_Systems/Server/2003_Server/Q_23550840.html
http://blog.netnerds.net/2006/12/wsus-force-registration-of-clients-that-are-not-showing-up/
Alex Belenkiy
ab@nyitsupport.com
07/15/2009
#ce
If Not IsAdmin() then Exit ; check for admin rights
if @OSVersion <> "WIN_XP" then Exit ; Only install on Windows XP
if FileExists("c:\windows\WSUS\WSUSFixComplete.txt") then Exit
dim $error, $File, $log, $logText
$command = RunWait(@ComSpec & " /c " & "net stop wuauserv")
if @error then
call("Logger", "net stop wuauserv FAILED")
$error = 1
Else
call("Logger", "net stop wuauserv SUCCESSFUL")
EndIf
Call("RegFix", "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate", "AccountDomainSid")
Call("RegFix", "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate", "PingID")
Call("RegFix", "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate", "SusClientId")
Call("RegFix", "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update", "LastWaitTimeout")
Call("RegFix", "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update", "DetectionStartTime")
Call("RegFix", "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update", "NextDetectionTime")
Call("RegFix", "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update", "AUState")
$command = RunWait(@ComSpec & " /c " & "net start wuauserv")
if @error then
call("Logger", "net start wuauserv FAILED")
$error = 1
Else
call("Logger", "net start wuauserv SUCCESSFUL")
EndIf
$command = RunWait(@ComSpec & " /c " & "wuauclt /resetauthorization /detectnow")
if @error then
call("Logger", "wuauclt /resetauthorization /detectnow FAILED")
$error = 1
Else
call("Logger", "wuauclt /resetauthorization /detectnow SUCCESSFUL")
EndIf
if $error <> 1 then ; install completed successfully don't run again.
$File = FileOpen("c:\windows\WSUS\WSUSFixComplete.txt",9)
call ("Logger", "WSUS Fix completed successfully")
Else ; install did not complete successfully, write a log and allow for another try
call ("Logger", "WSUS Fix encountered errors. Will try again at next startup.")
EndIf
Func Logger($logText) ; write a log
$log = FileOpen(@ScriptDir & "\Logs\" & @ComputerName & ".log", 9)
if not @error Then
FileWriteLine($log, @CRLF & $logText & " - " & @MON & "/" & @MDAY & "/" & @YEAR & " - " & @HOUR & ":" & @MIN)
FileClose($log)
EndIf
EndFunc
Func RegFix($RegKey, $RegVal)
$Command = RegRead($RegKey, $RegVal)
if not @error Then
call("Logger", "RegRead " & $RegKey & " " & $RegVal & " " & "LOCATED")
$Command = RegDelete($RegKey, $RegVal)
if @error then
$error = 1
call("Logger", "RegDelete " & $RegKey & " " & $RegVal & " " & "FAILED")
Else
call("Logger", "RegDelete " & $RegKey & " " & $RegVal & " " & "SUCCESSFUL")
EndIf
Else
call("Logger", "REGREAD " & $RegKey & " " & $RegVal & " " & "NOT FOUND")
EndIf
EndFunc
Yet another serial number generator. Ported from a vbscript found online.
Just feed a machine name to the script to get an output with a serial number into a csv file.
You can also feed a file with all computer names on separate lines. If executed with no options, the current computer info is returned.
If there is no input, the local machine will be used.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_outfile=SerialNumber.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs Yet another serial number generator. Ported from a vbscript found online. Just feed a machine name to the script to get an output with a serial number into a csv file. You can also feed a file with all computer names on separate lines. If executed with no options, the current computer info is returned. If there is no input, the local machine will be used. Alex Belenkiy 09/24/08 #ce #include <array.au3> #include <file.au3> dim $strComputer, $ComputersArray $OutputFile = FileOpen("ServiceTag " & @MON & "-" & @MDAY & "-" & @YEAR & ".csv", 10) FileWriteLine($OutputFile, "Machine Name, Manufacturer, Model Number, Serial Number, Part Number, SMBIOSAssetTag, OtherIdentifyingInfo") If $CmdLine[0] = 0 Then $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & @ComputerName & "\root\cimv2") $colSMBIOS = $objWMIService.ExecQuery ("Select * from Win32_SystemEnclosure") For $objSMBIOS in $colSMBIOS FileWriteLine($OutputFile, @ComputerName & "," & $objSMBIOS.Manufacturer & "," & $objSMBIOS.Model & "," & $objSMBIOS.SerialNumber & "," & $objSMBIOS.PartNumber & $objSMBIOS.SMBIOSAssetTag & $objSMBIOS.OtherIdentifyingInfo) Next Else if not FileExists($CmdLine[1]) Then $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $CmdLine[1] & "\root\cimv2") if not @error Then $colSMBIOS = $objWMIService.ExecQuery ("Select * from Win32_SystemEnclosure") For $objSMBIOS in $colSMBIOS FileWriteLine($OutputFile, $CmdLine[1] & "," & $objSMBIOS.Manufacturer & "," & $objSMBIOS.Model & "," & $objSMBIOS.SerialNumber & "," & $objSMBIOS.PartNumber & $objSMBIOS.SMBIOSAssetTag & $objSMBIOS.OtherIdentifyingInfo) Next EndIf Else _FileReadToArray($CmdLine[1],$ComputersArray) For $a = 1 to $ComputersArray[0] $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $ComputersArray[$a] & "\root\cimv2") if not @error Then $colSMBIOS = $objWMIService.ExecQuery ("Select * from Win32_SystemEnclosure") For $objSMBIOS in $colSMBIOS FileWriteLine($OutputFile, $ComputersArray[$a] & "," & $objSMBIOS.Manufacturer & "," & $objSMBIOS.Model & "," & $objSMBIOS.SerialNumber & "," & $objSMBIOS.PartNumber & $objSMBIOS.SMBIOSAssetTag & $objSMBIOS.OtherIdentifyingInfo) Next EndIf Next EndIf EndIf FileClose($OutputFile) |