Jump to content

mc134

Member
  • Posts

    84
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    United States

Posts 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}]

    :thumbup

  3. To fix the logon box color problem use this method...

    Straight from How to convert your Windows Server 2003

    You probably have noticed that the Startup and Shutdown windows are not skinned, even when you've enabled and are using themes. In here, we'll be showing you how to get them skinned with the theme of your choice! Be sure to enable your themes service before proceeding, if you haven't done so you can go here to find out how.

    Before starting, make sure you have a favourite visual style in use.

    Let's fire up the Registry Editor by going to Start -> Run -> and typing regedit followed by enter. The Registry Editor will open, browse to:

    HKEY_CURRENT_USER\Software\Microsoft\

    Windows\CurrentVersion\ThemeManager

    Right click on ThemeManager and choose Export, and then save the reg file anywhere you like, with any name.

    Edit your saved registy file in Notepad and edit the following line:

    HKEY_CURRENT_USER\Software\Microsoft\

    Windows\CurrentVersion\ThemeManager

    so that it shows as:

    HKEY_USERS\.DEFAULT\Software\Microsoft\

    Windows\CurrentVersion\ThemeManager

    Save the file, and then execute your registry file.

    Reboot to see the changes made! If all went well, you should see your Startup and Shutdown windows themed with your choice of Visual Style.

    You may have to repeat the steps outlined above if you change your visual style in future.

    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. :thumbup

  5. 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

  6. 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. :)

  7. 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.

  8. 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

  9. 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.

  10. 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.

  11. 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 :P

  12. 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. :D

    On Error Resume Next

    arrTargets = Array("192.168.2.1", "192.168.2.2")

    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.

  13. 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...