BeenThereB4

Just a little further information on the Universal Imaging Utility: Binary Research developed the very first imaging program (ghost) (which delighted me no end at the time) and apparently retains a right to sell the dos version. I have no connection with the company.

I have worked in this exact situation. The solution that we settled on (after years trying and retrying everything) was imaging combined with multicasting. But I would still be more than willing to look into any suggestion. I value creativity, efficiency, new approaches and present ability over past glories.

Rather than looking at methods that have become outdated and are not really what the original question was about, look into this: Universal Imaging Utility Check out the "Universal Imaging Utility" for current solutions to this problem. Had this product been available before, most of us would have saved a lifetime's worth of effort refining our unattended installs. I wasted many an hour with sysprep before I learned that it alone was not up to the job. As for RIS, it reminds me of (booting) WinPE, in this sense: If I had that much time to kill waiting, it would be a great product. As always YMMV.

To speedup Acrobat: Run this VBS script, which I got from somewhere on MSFN (All credit to author) Option Explicit On Error Resume Next 'Define variables Dim ProgramPath, FSO, objShell, objNetwork 'Define objects set FSO = CreateObject("scripting.filesystemobject") Set objShell=WScript.CreateObject("Wscript.Shell") 'Accept EULA objShell.RegDelete "HKCU\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\EULA" objShell.RegDelete "HKLM\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\EULA" objShell.RegWrite "HKCU\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\EULA","1","REG_DWORD" objShell.RegWrite "HKLM\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\EULA","1","REG_DWORD" 'no updates, no ads... objShell.regwrite "HKLM\Software\Adobe\Acrobat Reader\6.0\FeatureLockdown\bUpdater","0","REG_DWORD" objShell.regwrite "HKLM\Software\Adobe\Acrobat Reader\6.0\FeatureLockdown\bShowAdsAllow","0","REG_DWORD" objShell.regwrite "HKCU\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\AdsInReader\bShowAds","0","REG_DWORD" objShell.regwrite "HKCU\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\Originals\bDisplayAboutDialog","0","REG_DWORD" objShell.regwrite "HKCU\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\Updater\bShowAutoUpdateConfDialog","0","REG_DWORD" objShell.regwrite "HKCU\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\Updater\bShowNotifDialog","0","REG_DWORD" objShell.RegWrite "HKCU\Software\Adobe\Acrobat Reader\6.0\Originals\bDisplayAboutDialog","0","REG_DWORD" objShell.regwrite "HKCU\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\Updater\iUpdateFrequency","0","REG_DWORD" 'Delete shortcuts FSO.DeleteFile objShell.SpecialFolders("AllUsersDesktop") & "\Adobe Reader 6.0.lnk", True 'FSO.DeleteFile objShell.SpecialFolders("AllUsersPrograms") & "\Adobe Reader 6.0.lnk", True FSO.DeleteFolder objShell.SpecialFolders("AllUsersPrograms") & "\PrintMe Internet Printing", True 'delete old optionnal plugin folder FSO.DeleteFolder "c:\Program Files\Adobe\Acrobat 6.0\Reader\Optional", True 'rename plugins to optional FSO.MoveFolder "c:\Program Files\Adobe\Acrobat 6.0\Reader\plug_ins", "c:\Program Files\Adobe\Acrobat 6.0\Reader\Optional" 'create a new plugin folder FSO.CreateFolder "c:\Program Files\Adobe\Acrobat 6.0\Reader\plug_ins" 'Delete security risk 'FSO.DeleteFile "c:\Program Files\Adobe\Acrobat 6.0\Reader\optional\eBook.api", True 'move the desired plugins back to it FSO.MoveFile "c:\Program Files\Adobe\Acrobat 6.0\Reader\optional\EWH32.api", "c:\Program Files\Adobe\Acrobat 6.0\Reader\plug_ins\EWH32.api" FSO.MoveFile "c:\Program Files\Adobe\Acrobat 6.0\Reader\optional\Search.api", "c:\Program Files\Adobe\Acrobat 6.0\Reader\plug_ins\Search.api" FSO.MoveFile "c:\Program Files\Adobe\Acrobat 6.0\Reader\optional\reflow.api", "c:\Program Files\Adobe\Acrobat 6.0\Reader\plug_ins\reflow.api"

@RyanVM Thanks for the updated Adobe, your work is the best!

Yes, that will do it!

It's possible that 60 seconds is not long enough for your PC to initialize. This will give the symptoms that you have. Try 120 seconds as a test.

Here is a temporary patch until RyanVM gets his fixed. It's bigger than you might expect because the fix patches the Acrobat exe file. Use /q to run it silently. Grab it while the bandwidth lasts: Edit: Deleted as RyanVm's version is done now!

Ahh, good work! I could not find the download by the KB number.

Hmmm, I get a fourth one for XP SP2-- for the firewall. It says KB886185, but it's hard to track down a download for it.

If it's really a sniffer, a software firewall will have zero effect. Keep in mind that a sniffer cannot read your traffic on a switched network unless the Administrators of the network are the ones sniffing. If that is the case, then you must find a way to encrypt your traffic, such as a VPN or Putty or .....

Run it on the 2000 client. The first thing that will happen is BITs will get upgraded to the 2.0 beta. After a reboot, the rest of the updates will install. Don't forget to change the two places to refer to your server where it now says "win2003".

I worked on this for a while before I went back to SUS as WUS was too buggy for me. Anyway, this script (which I modified for WUS) worked to get Win2000 machines (SP4) working. Try it. 'This script will do the following; 'Backup the Windows Update server settings already on the system. 'Set the system to point to the Internal setup server and reset last run states. 'check to see if the BITS speed control is enabled on the system and ask if want it disabled during update. 'Restart the Update service so that it will perform an update. 'Wait for the update to begin. 'reset the settings back to what they were before the script was launched. 'Written by Rick J. Jones 'Versioning 'V1 10/21/2003 First Version 'V2 10/21/2003 Fixed error handle in FileLastModified Function and removed un-needed functions 'V3 10/27/2004 Added BITS speed governor override ability Option Explicit const ScriptVer = "SUS Update Now V3" Public arrNewRegistrySettings 'The 2 entries of "http://yourserver.address.com" needs to be adjusted to your server's address in the following section arrNewRegistrySettings = Array ("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\WUServer", "http://win2003", "REG_SZ", "",_ "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\WUStatusServer", "http://win2003","REG_SZ", "",_ "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoUpdate", 0, "REG_DWORD", "",_ "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\AUOptions", 4, "REG_DWORD", "",_ "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\ScheduledInstallDay", 0, "REG_DWORD", "",_ "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\ScheduledInstallTime", 2, "REG_DWORD", "",_ "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\UseWUServer", 1, "REG_DWORD", "",_ "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\RescheduleWaitTime", 1, "REG_DWORD", "",_ "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoRebootWithLoggedOnUsers", 0, "REG_DWORD", "",_ "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\AUState", 2, "REG_DWORD", "",_ "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\AUOptions", 4, "REG_DWORD", "")_ Main Sub Main Dim LastUpdated, CurrentUpdate, DoneMessage, Limiter, TurnOffLimiter 'check to see if the script has not been altered to point to a different server if arrNewRegistrySettings(1) = "http://yourserver.address.com" or arrNewRegistrySettings(5) = "http://yourserver.address.com" then DoneMessage = MsgboxWithTimeout ("You need to modify the script to point to your internal SUS server!" & vbcrlf & "Exiting script in 40 seconds.", 40, ScriptVer & " - Script Alteration Needed",0) wscript.quit end if 'Check for Local Administrative rights, it is NEEDED for this script! if ComputerLocalGroupAdministrativeRights() = False Then DoneMessage = MsgboxWithTimeout ("This account does not have Local Administrative rights, exiting script",30,ScriptVer & " - Need Local Admin Rights",0) exit sub end if 'check to see if Bandwidth Limiter turned on Limiter = ComputerRegistryRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\BITS\EnableBITSMaxBandwidth") if Limiter = 1 then TurnOffLimiter = msgbox ("This machine has a Bandwidth Limit enabled for BITS, do you want to disable it?",vbYesNo , ScriptVer & " - Disable BITS speed limit?") 'check the response to see if going to disable limitor if TurnOffLimiter=vbYes then 'set limitor as disabled ComputerRegistryWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\BITS\EnableBITSMaxBandwidth",0,"REG_DWORD" 'Stop Bits service Run "Net Stop bits", True end if end if 'Stop the Windows Update Service Run "Net Stop wuauserv", True 'Update the registry with all the edits in the array above (I could not add to array) UpdateRegistry(True) 'Reset this date to any past due date ComputerRegistryWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\ScheduledInstallDate", "2004-11-11 01:00:00", "REG_SZ" 'Enable Minor Updates ComputerRegistryWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\AutoInstallMinorUpdate", "1", "REG_DWORD" 'Enable Reboot ComputerRegistryWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\RebootRelaunchTimeoutEnabled", "1", "REG_DWORD" 'Minimize Reboot Time ComputerRegistryWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\RebootWarningTimeout", "1", "REG_DWORD" 'Delete the Last Update registry entry ComputerRegistryDelete ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\LastWaitTimeout") 'Pause for 5 seconds wscript.sleep 5000 'get the Item.xml file last modified date/time since that contains the catalog of approved updates on the server at last update 'LastUpdated = FileLastModified ("C:\Program Files\WindowsUpdate\item.xml") 'Restart the Windows Update Service Run "Net start bits", True Run "Net start wuauserv", True DoneMessage = MsgboxWithTimeout ("System will now pull the update patches in 5 minutes.",10,ScriptVer & " - SUS Updates Set",0) 'Pause for 20 Minutes wscript.sleep 1200000 'Stop the Windows Update Service Run "Net Stop wuauserv", True 'Update the registry again UpdateRegistry(True) 'Reset this date to any past due date ComputerRegistryWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\ScheduledInstallDate", "2004-11-11 01:00:00", "REG_SZ" 'Enable Reboot ComputerRegistryWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\RebootRelaunchTimeoutEnabled", "1", "REG_DWORD" 'Minimize Reboot Time ComputerRegistryWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\RebootWarningTimeout", "1", "REG_DWORD" 'Restart the Windows Update Service Run "Net start wuauserv", True 'end of main end Sub Sub UpdateRegistry(BoolBackup) Dim RegInstance, RegistryWriteError, RegistryReadData, LogData 'Load the registry up with new settings if it is set for RegInstance = lbound(arrNewRegistrySettings) to ubound(arrNewRegistrySettings) step 4 if BoolBackup = True then 'This is in Backup Mode 'read the registry current setting RegistryReadData = ComputerRegistryRead (arrNewRegistrySettings(RegInstance)) 'if they don't match, then update it with the new settings if RegistryReadData <> arrNewRegistrySettings(RegInstance + 1) then RegistryWriteError = ComputerRegistryWrite (arrNewRegistrySettings(RegInstance), arrNewRegistrySettings(RegInstance + 1 ), arrNewRegistrySettings(RegInstance + 2) ) 'update the tracking of what was changed arrNewRegistrySettings(RegInstance+3) = RegistryReadData end if else 'This is in Restore Mode 'read the registry current setting RegistryReadData = ComputerRegistryRead (arrNewRegistrySettings(RegInstance)) 'if they don't match, then update it with the Backed-up settings if RegistryReadData <> arrNewRegistrySettings(RegInstance + 3) then RegistryWriteError = ComputerRegistryWrite (arrNewRegistrySettings(RegInstance), arrNewRegistrySettings(RegInstance + 1 ), arrNewRegistrySettings(RegInstance + 3) ) end if end if next End Sub Sub FileDelete(filespec) 'Function 'Input 'Output 'Revisions Dim objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") on error resume next objFSO.DeleteFile(filespec) on error goto 0 End Sub Function FileLastModified(filespec) 'Function 'Input 'Output 'Revisions on error resume next Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(filespec) FileLastModified = f.DateLastModified End Function Sub Run(strApp, boolWait) 'Function 'Run a program hidden 'Input 'strApp = Application to run 'BoolWait = True/False if the program should wait for the return. 'Revisions 'Original version created by Rick J. Jones Dim WSHShell, COMSPEC, WSHEnvironment Set WSHShell = CreateObject("WScript.Shell") Set WSHEnvironment = WSHShell.Environment("Process") COMSPEC = WshEnvironment("COMSPEC") on error resume next wshShell.Run COMSPEC & " /C " & strApp,0,boolWait on error goto 0 end sub Function MsgboxWithTimeout( Message, seconds, Title, Buttons ) 'intButton = object.Popup(strText,nSecondsToWait,Title,Buttons) 'Button Types 'Value Description '0 Show OK button. '1 Show OK and Cancel buttons. '2 Show Abort, Retry, and Ignore buttons. '3 Show Yes, No, and Cancel buttons. '4 Show Yes and No buttons. '5 Show Retry and Cancel buttons. 'Icon Types 'Value Description '16 Show "Stop Mark" icon. '32 Show "Question Mark" icon. '48 Show "Exclamation Mark" icon. '64 Show "Information Mark" icon. '4096 System modal. On Win16 systems, all applications are suspended until 'the user responds to the message box. On Win32 systems, this constant 'provides an application modal message box that always remains on top 'of any other programs you may have running. 'The return value denotes the number of the button that the user clicked. 'If the user does not click a button before nSecondsToWait seconds, return is set to -1. 'Value Description '1 OK button '2 Cancel button '3 Abort button '4 Retry button '5 Ignore button '6 Yes button '7 No button on error resume next Dim WshShell set WshShell = CreateObject("WScript.Shell") 'Display the popup message with timeout MsgboxWithTimeout = WshShell.Popup (Message, seconds, Title, Buttons) End Function Function ComputerLocalGroupAdministrativeRights 'Function 'This function will return true/false if the user 'context running the script is an administrator or not 'Output 'True = User is an administrator on the system 'False = User is NOT an administrator on the system 'Revision History '8/27/2003 First version by Rick J. Jones AT&T Desktop Engineering '9/29/2003 Added Registry attempt for NT systems that don't have the ADCE client installed. Dim WSHNetwork, objUser, ComputerName, WSHShell 'Turn off error trapping On Error Resume Next Set WSHShell = CreateObject("WScript.Shell") Set WSHNetwork = CreateObject("WScript.Network") 'Get computer name ComputerName = WshNetwork.ComputerName 'connect to the local administrator user account Set objUser = GetObject("WinNT://" & ComputerName & "/Administrator,user") 'NT4 without the ADCE loaded will return the following error if err.number = -2147221020 then 'Attempt Registry Write to a section that only an administrator should have access too WSHShell.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AdminTest", "AdminTest", "REG_SZ" 'Read the data back out RegData = WSHShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AdminTest") 'check its contents if RegData = "AdminTest" then 'the registry contains the data it should so this is success, delete the test area WSHShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AdminTest" 'return positive results ComputerLocalGroupAdministrativeRights = True exit function else 'Data did not successfully populate, return negaive results ComputerLocalGroupAdministrativeRights = False exit function end if end if 'Get all properties from the account objUser.GetInfo 'attempt to set the properties back to the account objUser.SetInfo 'If the user is in the local administrators group then there will be no error If Err.Number = 0 Then 'successful update ComputerLocalGroupAdministrativeRights = True else 'error encountered attempting update ComputerLocalGroupAdministrativeRights = False End If End Function Function ComputerRegistryRead (Key) 'Function: 'Read from the registry and return the contents of the key 'Input: 'Fully Qualified Key with the Name 'return: 'Data within the Key if present Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") on error resume next ComputerRegistryRead = WSHShell.RegRead(Key) End Function Function ComputerRegistryWrite (Key, Value, KeyType) 'Function 'Write data to the registry 'Input 'Key = the registry key 'shortcut abbreviations can be used 'Valid types are; 'HKCU = HKEY_CURRENT_USER 'KHLM = HKEY_LOCAL_MACHINE 'HKCR = KHEY_CLASSES_ROOT 'Value = the value to place in the key 'strings must be in quotes 'KeyType = the type of key. 'Valid key types are; '"REG_SZ" = String '"REG_EXPAND_SZ" = String with macros ' = Variant array of strings is not supported '"REG_DWORD" = Long integer '"REG_BINARY" = Variant arry of bytes 'Output 'returns an array of the error and description 'ComputerRegistryWrite(0) = the error number 'ComputerRegistryWrite(1) = the description 'Revisions '9/8/2003 Rick J. Jones Added comments and function return of error in an array Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") on error resume next WSHShell.Regwrite Key, Value, KeyType 'return any errors ComputerRegistryWrite = array( err.number, err.Description ) End Function Sub ComputerRegistryDelete (Key) 'Function 'Deletes a registry entry 'Input 'Fully qualified key to be deleted Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") on error resume next WSHShell.RegDelete Key End Sub '****************************************************************************** Sub Reboot Const FORCED_REBOOT = 6 Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate," & _ "(Shutdown)}!\\" & g_strComputer & "\root\cimv2") Set colOSes = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem") objTextStream.WriteLine "Attempting to reboot ..." CopyLog For Each objOS In colOSes 'Only one objOS in collection intReturn = objOS.Win32Shutdown(FORCED_REBOOT) If intReturn <> 0 Then Set objTextStream = objFSO.OpenTextFile(g_strLogFile, FOR_APPENDING, True) objTextStream.WriteLine Now objTextStream.WriteLine "Error: Unable to reboot. " & VbCrLf & _ "Return code: " & intReturn CopyLog End If Next End Sub '******************************************************************************

Teminal Services has to be set up for remote administration with the appropriate user permissions on the Win 2000 server in order to connect with remote desktop. Otherwise, what would you connect to?

NET START "your service name here"

Mods feel free to move if you have a better place for this. I thought this was a neat addition to Explorer. It adds a tab with the verification hashes that we all use from time to time. (like MD5) My search did not turn it up as being mentioned before. HashTab hashtab_setup.exe

Deleted

It's a little high, but it's within specs and won't hurt anything. See if it's really that high by running in the bios screen for a half hour and checking it there. Depending on the design of your case and the quality of your fans, you may get better temps by having the cover on.

Uhhhh, my point was: It's no longer sufficient to just have a SP2 slipstreamed CD. We're going to have to start adding security-critical hotfixes again. GreenMachine is back in business.

We're going to need you again!

Are you running AVG antivirus? That is possibly a part of it.

Why are you using a registry file instead of the included inf file? A comparison would show that you are missing many entries. You must use TrueImage server, are you?

I can only say that Dan Rather has faxed me documents that prove that gosh is a girl. Post your fax number here to receive a copy

Go to "Administrative Tools" - "Disk Management" and assign a drive letter to the partition.

Those who have BeenHereB4 remember this being established a long time ago. (gosh being a girl)