mc134
Content Type
Profiles
Forums
Events
Posts posted by mc134
-
-
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}]0 -
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?
0 -
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.
0 -
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.
0 -
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,00Scripts must be in $OEM$\$$\System32\GroupPolicy\User\Scripts\Logon and \Logoff
0 -
Use Desktop Icon Restore:
0 -
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.
0 -
Magic JellyBean Finder..Google it
0 -
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.
0 -
Try to redownload Defender again and start fresh..maybe you removed something you shouldn't have.
0 -
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 = YesNow you should be able to install Defender unattended without errors.
0 -
Search is your friend:
0 -
Installation went flawless. Good work!!
0 -
I would like to get rid of the Messenger 4.7 update. Please let me know if this is successful.
0 -
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=8Notice 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
0 -
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:000000780 -
Thank you for helping a nooby to programming. I will try your suggestions and report back.
0 -
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.
0 -
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.
0 -
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.QuitI fixed it though and i really appreciate the help.
0 -
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 IfMy first program and I'm pretty proud of it. I'm sure it could have been done better but I gotta learn somehow
0 -
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("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.
0 -
Edit your WINNT.SIF file and under the unattended section add this to auto activate:
[Unattended]
AutoActivate = Yes0 -
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,00To 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,00To 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,00To 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,00To 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,000
Adding exception to Windows Firewall
in Unattended Windows 2000/XP/2003
Posted
Add something like this to a batch file which is called from your WINNT.SIF
Of course you will have to change it to point to the correct program.
Enjoy.