Jump to content


  • Posts

  • Joined

  • Last visited

  • Donations


Everything posted by mc134

  1. Add something like this to a batch file which is called from your WINNT.SIF WINNT.SIF [GuiRunOnce] Command0=%SystemDrive%\install.cmd install.cmd ECHO Configuring Windows Firewall ECHO Please Wait... netsh.exe firewall set service fileandprint enable all netsh.exe firewall set service remotedesktop enable all netsh.exe firewall set service remoteadmin enable all netsh.exe firewall set allowedprogram "%ProgramFiles%\Netmeeting\Conf.exe" "Netmeeting" Enable all netsh.exe firewall set allowedprogram "%ProgramFiles%\Windows Media Player\wmplayer.exe" "Windows Media Player 11" Enable all ECHO. Of course you will have to change it to point to the correct program. Enjoy.
  2. Only way to do it is to replace "Games" with "Downloads" using these registry entries: Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Classes\CLSID\{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}] @="Downloads" [HKEY_CURRENT_USER\Software\Classes\CLSID\{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}\DefaultIcon] @="imageres.dll,-184" [HKEY_CURRENT_USER\Software\Classes\CLSID\{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}\InProcserver32] @="shell32.dll" [HKEY_CURRENT_USER\Software\Classes\CLSID\{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}\shell\open\command] @="explorer.exe shell:Downloads" [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{ED228FDF-9EA8-4870-83B1-96B02CFE0D52}] @="Downloads" To remove and set back to default: Windows Registry Editor Version 5.00 [-HKEY_CURRENT_USER\Software\Classes\CLSID\{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}] [-HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{ED228FDF-9EA8-4870-83B1-96B02CFE0D52}]
  3. To fix the logon box color problem use this method... Straight from How to convert your Windows Server 2003 I just place these registry setting in my default registry hacks and it always come up dark. Hope this helps. Zedox, maybe you can integrate this into XPize Darkside?
  4. I am setting up a group of workstations that I have locked down. What I want to do is to overwrite the "user" profile with my default profile on reboot. In doing so, whomever sits at the workstation will receive the same desktop and users making any changes will not be saved. I would prefer to do this with a logoff script because I already have one in place. Hopefully someone has done this before and it will be a quick and east fix.
  5. The nvidia drivers do not have the specific on-board sound card drivers included for the mothboard. Go to the Asus website and do a search for that motherboard,look under the beta or newest tabs for drivers and it will be there.
  6. As far as I can tell, a logoff (and logon) script is added to this registry key: [HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\Scripts\Logoff] "Script"="logoff.cmd" "Parameters"="" "ExecTime"=hex(b):00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 [HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\Scripts\Logon] "Script"="logon.cmd" "Parameters"="" "ExecTime"=hex(b):00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Scripts must be in $OEM$\$$\System32\GroupPolicy\User\Scripts\Logon and \Logoff
  7. Use Desktop Icon Restore: http://www.snapfiles.com/get/iconrestore.html
  8. Look in the .inf file for locations or do an install on a machine and do a search for the location of each file you listed.
  9. Your not getting the windows update install because of Windows Defender your getting the update because the WGA check isn't installed yet. Do a google search for RyanVM and check out his update packs. He has a version that includes the check so when you do an unattended install you don't get that windows update problem. BTW, your email has been sent.
  10. Try to redownload Defender again and start fresh..maybe you removed something you shouldn't have.
  11. Download Windows Defender Download Orca.msi (Search Google) [ORCA is part of Windows Server 2003 SP1 Platform SDK] Create a Administrative installation by running msiexec /A "c:\temp\WindowsDefender.msi" then it will ask where to put the files, I use c:\temp\Defender Now open new WindowsDefender.msi (ex. c:\temp\Defender\WindowsDefender.msi) in ORCA editor You have to delete several entries: CustomAction - CHECK_WGA CustomAction - OtherWGAError CustomAction - OpenURL CustomAction - LAUNCH_MY_PROGRAM_PLEASE InstallExecuteSequence - CHECK_WGA InstallExecuteSequence - OtherWGAError InstallExecuteSequence - LAUNCH_MY_PROGRAM_PLEASE and you MUST set this: Property - LAUNCHPROGRAM = 0 Property - AgreeToLicense = Yes Now you should be able to install Defender unattended without errors.
  12. Search is your friend: http://www.msfn.org/board/index.php?showforum=92
  13. Installation went flawless. Good work!!
  14. I would like to get rid of the Messenger 4.7 update. Please let me know if this is successful.
  15. If you are using a custom theme, the wallpaper setting comes from that. The .theme file holds the wallpaper setting and it overrides the other setting. Look in C:\windows\Resources\Themes for the .theme files. It will look like this: [Theme] DisplayName=@themeui.dll,-2017 ; My Computer [CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\DefaultIcon] DefaultValue=%WinDir%explorer.exe,0 ; My Documents [CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}\DefaultIcon] DefaultValue=%WinDir%SYSTEM32\mydocs.dll,0 ; My Network Places [CLSID\{208D2C60-3AEA-1069-A2D7-08002B30309D}\DefaultIcon] DefaultValue=%WinDir%SYSTEM32\shell32.dll,17 ; Recycle Bin [CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\DefaultIcon] full=%WinDir%SYSTEM32\shell32.dll,32 empty=%WinDir%SYSTEM32\shell32.dll,31 [Control Panel\Cursors] Arrow= Help= AppStarting= Wait= NWPen= No= SizeNS= SizeWE= Crosshair= IBeam= SizeNWSE= SizeNESW= SizeAll= UpArrow= DefaultValue=Windows default DefaultValue.MUI=@themeui.dll,-2043 [Control Panel\Desktop] Wallpaper=%WinDir%web\wallpaper\Bliss.bmp Wallpaper.MUI=@themeui.dll,-2036 TileWallpaper=0 WallpaperStyle=2 Pattern= ScreenSaveActive=1 [VisualStyles] Path=%ResourceDir%\Themes\luna\luna.msstyles ColorStyle=NormalColor Size=NormalSize [boot] SCRNSAVE.EXE=%WinDir%\System32\logon.scr [MasterThemeSelector] MTSM=DABJDKT ThemeColorBPP=8 Notice the My computer, My documents , My network places and recycle bin at the top? that allows you to change the icons for those and under the VisualStyles you will see the wallpaper. Hope this helps
  16. This setting sets the DPI to 125% or (120 dpi). I checked it myself to make sure it worked. Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontDPI] "LogPixels"=dword:00000078
  17. Thank you for helping a nooby to programming. I will try your suggestions and report back.
  18. You miss understood me. The new script doesn't work now. Create a text file called list.txt and add your IP address to it and then run it. My script runs and adds the information to the excel spreadsheet but yours does not. I looked through it but nothing stood out. Probably just one little typo. Thanks one again.
  19. I agree with Ophiel X on this issue. Remove the CD-rom (unplug the power from it) and re-name the file back and see what happens. You might have a drive going bad. I have also had bad results with the cable select option.
  20. wow, your fast...I just copied your fixed version and ran it and now it just opens up excel and then says that the script completed. I went through it and didn't pick anything out of the ordinary. You missed one line also: WshShell.Run("taskkill /F /IM excel.exe"), 0 ,True WScript.Echo "Input text file " & strInputFile & " is empty." WScript.Quit I fixed it though and i really appreciate the help.
  21. gunsmokingman, Thank you for the help....I couldn't stand the wait any longer and just ran with it. Here is my finished (Is it ever really finished?) script. It worked perfectly and maybe someone can use it for themselves. '************************************************ '** '** Ping Script '** '** Michael Carpenter '** '** May 15,2006 '** '** '************************************************* On Error Resume Next set WshShell = CreateObject("WScript.Shell") Result = WshShell.Popup("Searching for machine names or IP addresses from list.txt. " & Chr(13) & "This might take a while depending on number of machines you are trying to find" & Chr(13) & "Please Wait...", 6, "Ping Script") 'Gets the directory where script is running from 'and looks for list.txt for IP addresses Set objShell = CreateObject("Wscript.Shell") strPath = Wscript.ScriptFullName Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(strPath) strFolder = objFSO.GetParentFolderName(objFile) strInputFile = strFolder & "\list.txt" '****************************************************************************** Function ReadTextFile(strInputFile) 'Read contents of text file and return array with one element for each line. On Error Resume Next Const FOR_READING = 1 Set objFSO = CreateObject(Scripting.FileSystemObject) If Not objFSO.FileExists(strInputFile) Then Set objShell = CreateObject("WScript.Shell") objShell.Run "taskkill /F /IM excel.exe" WScript.Echo "Input text file " & strInputFile & " not found." WScript.Quit End If Set objTextStream = objFSO.OpenTextFile(strInputFile, FOR_READING) If objTextStream.AtEndOfStream Then Set objShell = CreateObject("WScript.Shell") objShell.Run "taskkill /F /IM excel.exe" WScript.Echo "Input text file " & strInputFile & " is empty." WScript.Quit End If arrLines = Split(objTextStream.ReadAll, vbCrLf) objTextStream.Close ReadTextFile = arrLines End Function '****************************************************************************** On Error Resume Next x = 2 'Open Excel and populate header Information Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Add() Set objWorksheet = objWorkbook.Worksheets(1) objWorksheet.Activate objWorksheet.Name = "Ping Output" objExcel.Cells(1, 1).Value = "IP Address " objExcel.Cells(1, 1).Font.Bold = TRUE objExcel.Cells(1, 1).Font.Size = 12 objExcel.Cells(1, 1).Interior.colorIndex = 15 objExcel.Cells(1, 2).Value = "Reply? " objExcel.Cells(1, 2).Font.Bold = TRUE objExcel.Cells(1, 2).Font.Size = 12 objExcel.Cells(1, 2).Interior.colorIndex = 15 Set objRange = objExcel.Range("A1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("B1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() 'Ping machines from list and based on reply, enter information in excel For Each strItem In ReadTextFile(strInputFile) Set objShell = CreateObject("WScript.Shell") Set objExec = objShell.Exec("ping.exe -n 2 -w 1000 " & strItem) strPingResults = LCase(objExec.StdOut.ReadAll) If InStr(strPingResults, "ttl") Then objExcel.Cells(x, 1).Value = strItem objExcel.Cells(x, 2).Value = "Yes" x = x + 1 Else objExcel.Cells(x, 1).Value = strItem objExcel.Cells(x, 2).Value = "No" x = x + 1 End If Next '****************************************************************************** 'Make sure that excel is selected Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) ' Set the ranges so that we can sort. Set objRange = objExcel.Range("A:B") Set objRange2 = objExcel.Range("B3") ' Sort Yes / No objRange.Sort objRange2,1,,,,,,1 '****************************************************************************** Answer = MsgBox ("Ping Script Complete!" & Chr(13) & Chr(13) & "Select OK to save Excel" & Chr(13) & "Spreadsheet to Script Directory" & Chr(13) & Chr(13) & "Select Cancel to Leave" & chr(13) & "Spreadsheet Open." & Chr(13), 65, "Ping Program") If Answer = ("1") Then set WshShell = CreateObject("WScript.Shell") Result = WshShell.Popup("Saving Speadsheet " & Chr(13) & "Name: Ping_Information.xls" & Chr(13) & "Location: " & strFolder & Chr(13) & "Please Wait...", 8, "Saving to Script directory") Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strFolder & "\Ping_Information.old") Then objFSO.DeleteFile(strFolder & "\Ping_Information.old") If objFSO.FileExists(strFolder & "\Ping_Information.xls") Then objFSO.MoveFile(strFolder & "\Ping_Information.xls") , (strFolder & "\Ping_Information.old") Set objWorkbook = objExcel.ActiveWorkbook objWorkbook.SaveAs(strFolder & "\Ping_Information.xls") objExcel.Quit Else End If My first program and I'm pretty proud of it. I'm sure it could have been done better but I gotta learn somehow
  22. I am pretty new to VB scripting and I have to ping over 5,000 computers and get a result outputted to a file. I thought i would write a script and actually have it working. My problem is I have the IP addresses hard-coded into the script and I need to input from a text file as a array. I am happy with outputting to a text file but i would prefer to output to a file that i can read in excel so that i can sort between responding devices and the ones that are not. My working script is here...I know it is simple but cut me some slack. On Error Resume Next arrTargets = Array("", "") Set objFS = CreateObject("Scripting.FileSystemObject") Set objNewFile = objFS.CreateTextFile("output.txt") objNewFile.WriteLine "Ping Reply Information -- Date: " & Now() For Each strTarget In arrTargets Set objShell = CreateObject("WScript.Shell") Set objExec = objShell.Exec("ping.exe -n 2 -w 1000 " & strTarget) strPingResults = LCase(objExec.StdOut.ReadAll) If InStr(strPingResults, "reply from") Then objNewFile.WriteLine VbCrLf & strTarget & Chr(9) & " Yes" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strTarget & "\root\cimv2") Set colCompSystems = objWMIService.ExecQuery("SELECT * FROM " & _ "Win32_ComputerSystem") For Each objCompSystem In colCompSystems WScript.Echo "Host Name: " & LCase(objCompSystem.Name) Next Else objNewFile.WriteLine VbCrLf & strTarget & Chr(9) & " No" End If Next objNewFile.Close Set objShell = Wscript.CreateObject("Wscript.Shell") objShell.Run "output.txt" My "input" text file would be something like "list.txt" and just have each IP address listed on a seperate line. Thank you for your help.
  23. Edit your WINNT.SIF file and under the unattended section add this to auto activate: [Unattended] AutoActivate = Yes
  24. The "hidestubpath" surpresses the just-in-time setup when creating new users. To remove Outlook Express import this registry key. [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\>{881dd1c5-3dcf-431b-b061-f3f88e8be88a}] @="Outlook Express" "ComponentID"="OEACCESS" "Dontask"=dword:00000002 "IsInstalled"=dword:00000000 "Locale"="*" "Version"="2,0,0,0" "StubPath"=- "HideStubPath"=hex(2):25,00,73,00,79,00,73,00,74,00,65,00,6d,00,72,00,6f,00,6f,\ 00,74,00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,\ 73,00,68,00,6d,00,67,00,72,00,61,00,74,00,65,00,2e,00,65,00,78,00,65,00,20,\ 00,4f,00,43,00,49,00,6e,00,73,00,74,00,61,00,6c,00,6c,00,55,00,73,00,65,00,\ 72,00,43,00,6f,00,6e,00,66,00,69,00,67,00,4f,00,45,00,00,00 To remove Outlook Express Mail and News feature: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{44BBA840-CC51-11CF-AAFA-00AA00B6015C}] "Version"="6,0,2900,2180" @="Microsoft Outlook Express 6" "IsInstalled"=dword:00000001 "Locale"="EN" "ComponentID"="MailNews" "CloneUser"=dword:00000001 "StubPath"=- "HideStubPath"=hex(2):22,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,\ 00,69,00,6c,00,65,00,73,00,25,00,5c,00,4f,00,75,00,74,00,6c,00,6f,00,6f,00,\ 6b,00,20,00,45,00,78,00,70,00,72,00,65,00,73,00,73,00,5c,00,73,00,65,00,74,\ 00,75,00,70,00,35,00,30,00,2e,00,65,00,78,00,65,00,22,00,20,00,2f,00,41,00,\ 50,00,50,00,3a,00,4f,00,45,00,20,00,2f,00,43,00,41,00,4c,00,4c,00,45,00,52,\ 00,3a,00,57,00,49,00,4e,00,4e,00,54,00,20,00,2f,00,75,00,73,00,65,00,72,00,\ 20,00,2f,00,69,00,6e,00,73,00,74,00,61,00,6c,00,6c,00,00,00 To remove Internet Explorer Windows Marketplace: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{4b218e3e-bc98-4770-93d3-2731b9329278}] @="Internet Explorer" "ComponentID"="Windows Marketplace Link" "IsInstalled"=dword:00000001 "Locale"="EN" "Version"="1,0,0,0" "StubPath"=- "HideStubPath"=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,\ 00,74,00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,\ 72,00,75,00,6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,00,78,00,65,00,20,\ 00,73,00,65,00,74,00,75,00,70,00,61,00,70,00,69,00,2c,00,49,00,6e,00,73,00,\ 74,00,61,00,6c,00,6c,00,48,00,69,00,6e,00,66,00,53,00,65,00,63,00,74,00,69,\ 00,6f,00,6e,00,20,00,4d,00,61,00,72,00,6b,00,65,00,74,00,70,00,6c,00,61,00,\ 63,00,65,00,4c,00,69,00,6e,00,6b,00,49,00,6e,00,73,00,74,00,61,00,6c,00,6c,\ 00,20,00,38,00,39,00,36,00,20,00,25,00,73,00,79,00,73,00,74,00,65,00,6d,00,\ 72,00,6f,00,6f,00,74,00,25,00,5c,00,69,00,6e,00,66,00,5c,00,69,00,65,00,2e,\ 00,69,00,6e,00,66,00,00,00 To remove Messenger 4.7: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{5945c046-1e7d-11d1-bc44-00c04fd912be}] "KeyFileName"="C:\\Program Files\\Messenger\\msmsgs.exe" "Version"="4,7,0,3000" "Locale"="EN" "ComponentID"="Messenger" "IsInstalled"=dword:00000001 @="Windows Messenger 4.7" "StubPath"=- "HideStubPath"=hex(2):72,00,75,00,6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,\ 00,78,00,65,00,20,00,61,00,64,00,76,00,70,00,61,00,63,00,6b,00,2e,00,64,00,\ 6c,00,6c,00,2c,00,4c,00,61,00,75,00,6e,00,63,00,68,00,49,00,4e,00,46,00,53,\ 00,65,00,63,00,74,00,69,00,6f,00,6e,00,20,00,25,00,53,00,79,00,73,00,74,00,\ 65,00,6d,00,52,00,6f,00,6f,00,74,00,25,00,5c,00,49,00,4e,00,46,00,5c,00,6d,\ 00,73,00,6d,00,73,00,67,00,73,00,2e,00,69,00,6e,00,66,00,2c,00,42,00,4c,00,\ 43,00,2e,00,49,00,6e,00,73,00,74,00,61,00,6c,00,6c,00,2e,00,50,00,65,00,72,\ 00,55,00,73,00,65,00,72,00,00,00 To remove Address Book 6: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{7790769C-0471-11d2-AF11-00C04FA35D02}] "Version"="6,0,2600,0000" @="Address Book 6" "IsInstalled"=dword:00000001 "Locale"="EN" "ComponentID"="WAB" "StubPath"=- "HideStubPath"=hex(2):22,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,\ 00,69,00,6c,00,65,00,73,00,25,00,5c,00,4f,00,75,00,74,00,6c,00,6f,00,6f,00,\ 6b,00,20,00,45,00,78,00,70,00,72,00,65,00,73,00,73,00,5c,00,73,00,65,00,74,\ 00,75,00,70,00,35,00,30,00,2e,00,65,00,78,00,65,00,22,00,20,00,2f,00,41,00,\ 50,00,50,00,3a,00,57,00,41,00,42,00,20,00,2f,00,43,00,41,00,4c,00,4c,00,45,\ 00,52,00,3a,00,57,00,49,00,4e,00,4e,00,54,00,20,00,2f,00,75,00,73,00,65,00,\ 72,00,20,00,2f,00,69,00,6e,00,73,00,74,00,61,00,6c,00,6c,00,00,00

  • Create New...