Collection of Registry Tips and Tricks

Hello All,

Below the registry tips and tricks which I have collected over the period of time and would like to share to you all through my blog.

I have tested few of them and not tested many of them as its been collected from different sources through search engines...

1. Default Mail Client

HKEY_CLASSES_ROOT\mailto\shell\open\command.
Under command, enter the full path to the email client then %1
c:\internet\Netscape\program\netscape.exe %1
c:\program files\internet explorer\iexplore.exe %1

2. Generate Program Fault Log

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\FaultLogFile
Value should be the path and filename of the log file

3. Remove "Click here to begin"

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartBanner
Set this hex value to 01,00,00,00

4. Disable Windows Animation

HKEY_CURRENT_USER \Control Panel \Desktop \WindowMetrics\MinAnimate
Set this to 1

5. Full-Color Icons

HKEY_CURRENT_USER\Control Panel\desktop\WindowMetrics\Shell Icon BPP
Give it a value of 16

6. Preview BMP images in Windows Explorer

HKEY_CLASSES_ROOT\PAINT.PICTURE\DefaultIcon
Set value to "%1"

7. Windows Refresh Rate

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Update\UpdateMode
Setting value to 00 will force an instant update to Windows Explorer.

8. Remove Hidden Shares

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\LanmanServer\Parameters\AutoShareServer
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\LanmanServer\Parameters\AutoShareWks
Both of these REG_DWORD values set to 0 will prevent hidden shares from working (c$, etc.)

9. Outlook 2000/XP Restricted Filetypes

HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Security\Level1Remove
It is possible to add Filetypes back into the OK zone. This will allow you to open these attachments from Outlook (they won’t be blocked).
This key lists all of the file extensions that will be blocked by Outlook. You can edit this key to either remove extensions that you want access to or add extensions that you want to block.

10. Display the Number of Network Errors for a Network Connection

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\Connections\StatMon\ShowLanErrors
(Windows 2000)
You can display a LAN connection-error count on the General tab of the connection's Status dialog box in Win2K This REG_DWORD when set to 1 will display the errors that have occurred over a network connection. The default value is 0 will not display the errors. Note that the Errors field looks a little odd, because of a bug in how the Status dialog box accommodates the error information.

11. Changes to the Windows Security Screen Title Bar

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\ Welcome
(Windows NT/2000)
This REG_SZ data type will display a custom string on the title bar of the Windows Security Screen that you see when you invoke the Ctrl+Alt+Del keystroke.

12. Thumbnail Size

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\ThumbnailSize
This DWORD value can be set between 32 and 256. This number represents the size in pixels that the Windows Explorer Thumbnail view will display.

13. Thumbnail Quality

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\ThumbnailQuality
This DWORD value will determine the quality of the thumbnail image quality. This number can be set between 50 and 100

14. Default Email Client

HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail
From the Internet Options applet of the Control Panel, click on the Programs tab. The program that Internet Explorer will try to open when you click on an email link is here (my default is Outlook, although I could also choose Hotmail or Outlook Express). This registry key is where this information is saved. If your favourite email program won't set itself up here, then you can go to this registry key, and following the example of the ones already setup, try and set your program up.

15. Restrict Users from Changing their Home Page

HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage
This DWORD set to 1 will make it so users cannot change their Internet Explorer home page. Setting it to 0 will allow the home page to be changed.

16. Delete Roaming Profiles when logging out

HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Winlogon\DeleteRoamingCache
This value set to 1 will cause Windows to delete Roaming Profiles (if they are enabled on a network). This value set to 0 will keep the profile.

17. Delete NetMeeting Most Recently Used List

HKEY_USERS\[LongNumber/String]\Software\Microsoft\Conferencing\UI\CallMRU
Each of the Addr# values can be deleted or changed. This will delete IP addresses that are showing up in the Netmeeting recently used list.

18. Require a Password in Order to Access a Workstation

HKEY_LOCAL_MACHINE\Network\Logon\MustBeValidated
This REG_DWORD set to 1 forces a user to enter a password to login to the local workstation. Setting it to 0 allows them to press Esc and bypass a password.

19. Restrict Users from Changing Their Passwords

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableChangePassword
(Windows 2000)
Setting this REG_DWORD to 1 will stop users from being able to change their passwords.

20. Remove Shortcut Arrow

HKEY_CLASSES_ROOT\lnkfile\IsShortcut
HKEY_CLASSES_ROOT\piffile\IsShortcut
Delete these values if you want to remove the arrow that appears on all shortcuts.

21. View/Change System Variables

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SessionManager\Environment
(Windows 2000)
All of the values in this key are system variables that can be used by programs. You can make changes to the variables.

22. Force IE to Open with Full Screen

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\fullscreen
This STRING value set to "yes" will force new IE Windows to full screen. Note: This does not work for me on my Windows 2000/IE 6 system.

23. Change the Name of the Recycle Bin

HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\LocalizedString
Changing the text at the end of this value from Recycle Bin to the text of your choice will change the name of the recycle bin.

24. Restrict Users from Changing File Types

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileAssociate
This REG_DWORD value set to 1 will prevent users from changing file type associations. Setting it to 0 will allow them to make changes.

25. Regedit.exe Favourites

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\Favorites
(Windows 2000)
The Windows 2000 Registry Editor (Regedit.exe) provides you with the ability to add frequently visited registry keys to a Favourites menu. This enables you to open those registry keys quickly without having to browse through the Registry Editor for them. This registry key is where the Favourites are stored.

26. Edit Windows 2000 "Open With…" List

KEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.extension\OpenWithList (where extension equals the file extension that you want to open)
(Windows 2000)
This string (REG_SZ_ values) identifies a program that will open files of this type. You can remove values if you don't want those programs to open that file type, or you can add items to add new programs.

27. Restrict Windows Setup Option from Add/Remove Programs Applet

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Uninstall\NoWindowsSetupPage
(Windows 2000)
Settings this REG_DWORD to 1 will prevent users from seeing the Add/Remove Windows Components Button in the Add/Remove Programs applet of the Control Panel.

28. Disable Personalized Menus

HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoInstrumentation
(Windows 2000)
This REG_DWORD set to 1will disable personalized menus.

29. Working with Shares

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\LanmanServer\Shares
All of the shares on your computer are listed here. To remove a share, delete the key.
It is also a good way to migrate shares to a new server. If you rebuild a server, you can export this key and associated sub-keys from your old server and import them on your new server and all of the shares will be set up for you.

30. How Many Processors Does Your O/S Support

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\RegisteredProcessors
(Windows 2000)
Check the registry value to see how many processors your version of Windows supports. This registry key value is informational only. In other words, changing the value to 128 won't enable your version of Windows to support 128 processors.

31. Restrict Users from Accessing Windows Update

HKEY_CURRENT_USER\Software\Microsoft\Windows\ CurrentVersion\Policies\Explorer\NoWindowsUpdate
To disable Windows Update on a per user basis set (or create) this DWORD value to 1. If you want to enable WindowsUpdate, delete this value, or change it to 0.

32. Clear the Windows Run Most Recently Used List

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU
Deleting the values in this key will clear the log list of commands that is created when you use Run on Windows' Start menu.

33. Change Main Network Provider (Novell or NT)

HKEY_LOCAL_MACHINE\Microsoft\Windows NT\CurrentVersion\Winlogon
(Windows 2000 Professional)
The GINADLL value is set for either a Microsoft logon screen or a Novell login screen. If you want to use a Novell login screen, make sure that the value is NWGINA.DLL. If you want to use a Microsoft Login screen, make sure the value is MSGINA.DLL. Then close the Registry Editor and restart the system.

34. Remove Shutdown from the Start Menu

HKEY_CURRENT_USER\Software\Microsoft\Windows\Current Version\Policies\Explorer\NoClose
This String Value set to 1 removes the Shutdown option from the Startmenu. Change it to 0 to allow shutdowns.

35. Password Reminder

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\PasswordExpiryWarning
(Windows 2000)
This key in Windows 2000 sets the number of days before a user's password must be changed.
36. Export Dial-Up Networking Settings

HKEY_CURRENT_USER\RemoteAccess\Addresses
This key is where the Dial-Up Networking settings are stored.
37. Force Windows to Crash

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\i8042prt\Parameters\CrashOnCtrlScroll
(Windows NT/2000)
Set this DWORD value to 1. After a reboot, hold down the right CTRL key and hit the Scroll Lock key twice. This generates a BSOD. This is intentional as it can be used for testing purposes.
38. Hide the File Menu in Windows Explorer

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Change (or create) the NoFileMenu value to 1 to hide the File menu, or 0 to show it.
39. Critical Update Notification Delay

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsUpdate\Critical Update\CurrentDelayInterval
This REG_DWORD value is the value in seconds between prompts from the Critical Update Notification. The default is 86,400 seconds (1 day).
40. Disable CD-ROM Autorun

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom
Changing this value to 0 disables the CD-ROM autorun feature. A value of 1 enables autorun.
41. Delete Content Advisor Password

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Ratings
If you are using the Content Advisor in Internet Explorer and have forgotten the password, you can delete this key and reset all of the ratings and delete the password.
42. Reset Internet Explorer Windows Size

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window placement
Deleting this value will reset the size of the IE Window.

43. Modify Right-Click Windows Explorer Context Menus

HKEY_CLASSES_ROOT\*\shellex\ContextMenuHandlers
HKEY_CLASSES_ROOT\Directory\shellex\ContextMenuHandlers
HKEY_CLASSES_ROOT\Folder\shellex\ContextMenuHandlers
HKEY_CLASSES_ROOT\Drive\shellex\ContextMenuHandlers
These 4 keys are where the Right-Click menu options are stored for folders, directories, and drives. To remove a right-click context menu item, you could delete any of the sub-keys that are below these keys.

44. Browse Remote Computers Faster

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Current Version\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}
(Win2000)
This key instructs Windows Explorer to search for Scheduled Tasks when you are trying to connect to a remote computer. To browse Windows 2000 and 98 computers faster, delete the key.

45. Add a Right-Click Context Menu Item to an Unknown File Type

HKEY_CLASSES_ROOT\Unknown\Shell
To add a right-click context menu item to an unknown file type, right-click on the Shell subkey and choose New - Key. This will add a new subkey below the Shell. Give the new subkey the name of the application, as you'd like it displayed on the context menu.
Next, you'll need to create another new subkey under your newly created application subkey called command. There will be a Default value automatically created. Double click this value and enter the full path of the application's executable file, but append a %1 to the end (i.e. c:\winnt\notepad.exe %1).
The next time you right-click on that unknown file extension, you should see your new menu item.

46. Change the name of My Computer

HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D\LocalizedString
(Win2000)
From this value you can change the name of the My Computer icon. The default value is:
@D:\WINNT\system32\shell32.dll,-9216@1033,My Computer
As you can see, the name is the last part after the , and you can change this to whatever you want. A neat trick is to change the My Computer part to %computername% and that will name My Computer the name that your computer has in the Network settings. If you do this it should look like this:
@C:\WINNT\system32\shell32.dll,-9216@1033,%computername%

47. Clear the Outlook 2000 Most Recently Entered Locations for Meetings

HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Preferences\LocationMRU
This key contains the most recent entered locations for meetings and appointments in Outlook 2000. You can't edit any of these, but you can delete then entire value.

48. Change Windows Explorer Pop-up Tips

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Tips
There are 50 tips stored in this key. You can double-click on any of them to edit the tips.

49. Activate the NumLock key when Windows Starts

HKEY_USERS\.DEFAULT\Control Panel\Keyboard\InitialKeyboardIndicators
(WinNT/2000)
This REG_SZ or String value when set to 2 will make the NUMLOCK turn on when Windows loads. A value of 0 will turn the numlock off.
This will make the change for all users. If you want to do it for an individual user, then change the same value in the HKEY_CURRENT_USER hive.

50. Power Down the Computer after Shutdown

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\PowerdownAfterShutdown
(WinNT/2000)
This REG_SZ or String value when set to 1 will automatically power off your computer if the BIOS supports this. A value of 0 will leave you at the "It is now safe..." screen.

51. Display the Windows version on the Desktop

HKEY_CURRENT_USER\ControlPanel\Desktop\PaintDesktopVersion
In Windows 2000, a DWORD value of 1 will display the Windows version on the desktop. A value of 0 does not display it.

52. Change Location of Windows Setup Files

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ Setup\SourcePath
This REG_SZ or String Value key stores the path to the location of the installation files.

53. Internet Explorer Context Menu Items

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt
These are menu items that appear in the Right-Click menu of Internet Explorer

54. Internet Explorer Tools Menu Items

HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions
Each subkey of these keys define an addition to IE's Tools menu

55. Restrict Users from Using GIFs and JPGs as Desktop Wallpaper

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoHTMLWallPaper
To restrict users from using GIFs and JPGs as wallpaper (restrict them to BMP images) create or set this value to 1. A value of 0 will allow users to use all 3 types of images.

56. Restrict Users from Changing Desktop Wallpaper

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoChangingWallpaper
This DWORD value 1 will stop people from being able to change their desktop wallpaper. A value of 0 will allow users to change the wallpaper.

57. Clear Internet Explorer Address Bar Auto-complete Entries

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs
(Win9x)
HKEY_USERS\S-1-5-21...\Software\Microsoft\Internet Explorer\TypedURLs
(WinNT/2000)
When you type a URL in Internet Explorer (IE), the system automatically completes known entries with data stored in this registry key. Each time you type in a URL and press the Enter key or the Go button, that URL is stored in this location.

58. Restrict Users from Logging Off

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogOff
This DWORD value set to 1 will remove the "Log Off User" option in the Start Menu. A value of 0 will show it.

59. Remove Background Tab from Appearing in the Display Applet

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispBackgroundPage
This DWord value set to 1 will stop the Background page of the Display applet from appearing. Setting it to 0 will cause it to appear.

60. Scroll Start Menu or View Multiple Columns

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\StartMenuScrollPrograms
This String entry in the registry can be created if it doesn't exist. If you set it to FALSE it will make the start menu run into multiple columns. This works with IE5. You have probably noticed that if your Start Menu is too long, you get a little arrow at the top or bottom of the Programs menu telling you that you need to scroll to see what else is there. You can change this to behave the way Windows 95 used to.

***Share your comments about the post***

VBscript to get Citrix published application details

Hello All, Below script will collect the information of published applications in citrix farm.

This script to be run on citrix server where excel is installed. output of this script will be an excel file.


<package>
    <job id="WhereIs">
     <reference object="MetaFrameCOM.MetaFrameFarm"/>

        <script language="VBScript">
Dim mfFarm
Dim mfApp
Dim mfGrp
Dim mfUsr
Dim mfSvr
Dim n
on error resume next
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.DisplayAlerts = FALSE
Set objWorkbook = objExcel.Workbooks.Add
Set objWorksheet = objWorkbook.Worksheets(1)
r=1
c=1
objWorksheet.Cells(1,1)="Application Name"
objWorksheet.Cells(1,2)="Status"
objWorksheet.Cells(1,3)="Users"
objWorksheet.Cells(1,4)="NT Groups"
objWorksheet.Cells(1,5)="Servers"
objWorksheet.Cells(1,6)="Application Folder"
objworksheet.range("A1:F1").font.size= 12
objworksheet.range("A1:F1").font.bold= True

   
    Set mfFarm = CreateObject("MetaFrameCOM.MetaFrameFarm")
    mfFarm.Initialize 1
   
    WScript.Echo "Started Application Query... Wait for completed message"
    r=2
    For Each mfApp In mfFarm.Applications
        mfApp.LoadData 1

 r2=r
 r3=r
 r4=r
 'WScript.Echo "Published Application - " & mfApp.Appname
 objWorksheet.Cells(r,1)=mfApp.Appname
 objWorksheet.Cells(r,6)=mfApp.ParentFolderDN
 if mfApp.EnableApp=1 Then
  objWorksheet.Cells(r,2)="Enabled"
 Else
  objWorksheet.Cells(r,2)="Disabled"
 End If

        For Each mfGrp In mfApp.Groups
  objWorksheet.Cells(r2,1)=mfApp.AppName
  objWorksheet.Cells(r2,6)=mfApp.ParentFolderDN
  objWorksheet.Cells(r2,4)=mfGrp.GroupName
  r2=r2+1
        Next
        For Each mfUsr In mfApp.Users
  objWorksheet.Cells(r4,1)=mfApp.AppName
  objWorksheet.Cells(r4,6)=mfApp.ParentFolderDN
  objWorksheet.Cells(r4,3)=mfUsr.UserName
  r4=r4+1
        Next
 'WScript.Echo
 For Each mfSvr In mfApp.Servers
  objWorksheet.Cells(r3,1)=mfApp.AppName
  objWorksheet.Cells(r3,6)=mfApp.ParentFolderDN
  objWorksheet.Cells(r3,5)=mfSvr.ServerName
  r3=r3+1
 Next
 'WScript.Echo

 if r2>r3 then
    if r2>r4 then
  r=r2+1
    else
  r=r4+1
    end if
 else
    if r3>r4 then
  r=r3+1
    else
  r=r4+1
    end if
 end if
    Next
Set objrange = objWorksheet.Usedrange
objrange.entirecolumn.autofit()
    WScript.Echo "Completed"
        </script>
    </job>
</package>


Save this script with .wsf file extn and run the same..

***Share your comments about the post***

VBscript to get details of Citrix connection configuration tool in citrix servers

Script which collects information of Citrix settings like Connection, Disconnection, Idle Timeout Settings & Checking for broken or timeout connection & Checking for Reconnect connection & Checking for Shadowing connection & Checking for Emcryption Level.

This vbscript will query the servers which is mentioned in servers.txt file which is stored in C: drive and stores the information in excel file. Excel file will be in Saved in C: drive by filename Citrix_Connection_Settings.xls

Script uses the current user login credentials while querying the servers.


On Error Resume next
Const reading =1
Const HKEY_LOCAL_MACHINE = &H80000002
Set StdOut = WScript.StdOut
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add
Set objWorksheet = objExcel.Worksheets(1)
objexcel.Visible = True
objexcel.DisplayAlerts = false
objworksheet.cells(1,1) = "ServerName"
objworksheet.cells(1,2) = "User Connection[Mins]"
objworksheet.cells(1,3) = "User Disconnection[Mins]"
objworksheet.cells(1,4) = "User Idle Timeout[Mins]"
objworksheet.cells(1,5) = "Broken or Timeout session"
objworksheet.cells(1,6) = "Reconnect Status"
objworksheet.cells(1,7) = "Shadowing"
objworksheet.cells(1,8) = "Encryption Level"
objworksheet.range("A1:H1").font.size=10
objworksheet.range("A1:H1").font.bold= True
objworksheet.range("A1:H1").interior.colorindex= 33
objexcel.Columns.Borders.ColorIndex=56

Set objFS= CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.OpenTextFile("C:\servers.txt", reading)
x=2
Do
strComputer= objFile.ReadLine
objworksheet.cells(x,1) = strcomputer
Set oReg= GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\ICA-tcp"

'---------------------------------------------------------------------------------
'Checking for Connection, Disconnection, Idle Timeout Settings
'---------------------------------------------------------------------------------
strfInheritMaxSessiontime = "fInheritMaxSessionTime"
strConnectionTime = "MaxConnectionTime"
strfInheritMaxDisconnectionTime = "fInheritMaxDisconnectionTime"
strDisconnectionTime = "MaxDisconnectionTime"
strfInheritMaxIdleTime = "fInheritMaxIdleTime"
strIdletimeout = "MaxIdleTime"

oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strfInheritMaxSessiontime,dwValueCon1
oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strConnectionTime,dwValueCon
oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strfInheritMaxDisconnectionTime,dwValueDiscon1
oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strDisconnectionTime,dwValueDiscon
oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strfInheritMaxIdleTime,dwValueIdle1
oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strIdletimeout,dwValueIdle
'
strValIdle=dwValueIdle/60000
strValDiscon=dwValueDiscon/60000
strValCon=dwValueCon/60000

If dwValueCon1 = 1 Then
   objworksheet.cells(x,2) = "Inherit connection set"
 ElseIf strValCon = 0 Then
   objworksheet.cells(x,2) = "No Connection Timeout"
   Else
   objworksheet.cells(x,2) = strValCon
End If
Set strValCon = Nothing
Set strValCon1 = Nothing

If dwValueDiscon1 = 1 Then
   objworksheet.cells(x,3) = "Inherit Disconnection set"
 elseIf strValDiscon = 0 Then
   objworksheet.cells(x,3) = "No Disconnection Timeout"
   Else
   objworksheet.cells(x,3) = strValDiscon
End If
Set strValueDiscon1 = Nothing
Set strValDiscon = Nothing
If dwValueIdle1 = 1 Then
   objworksheet.cells(x,4) = "Inherit Idle Timeout set"
 ElseIf strValIdle = 0 Then
   objworksheet.cells(x,4) = "No Idle Timeout"
   Else
   objworksheet.cells(x,4) = strValIdle
End If
Set strValueIdle1 = Nothing
Set strValIdle = Nothing
'-------------------------------------------------------------------------------------
'Checking for broken or timeout connection
'-------------------------------------------------------------------------------------
strInheritResetBroken = "fInheritResetBroken"
strResetBroken = "fResetBroken"
oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strInheritResetBroken,dwValueRbroken1
oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strResetBroken,dwValueRbroken
If dwValueRbroken1 = 1 Then
   objworksheet.cells(x,5) = "Inherit User Config"
 ElseIf dwValueRbroken = 0 Then
   objworksheet.cells(x,5) = "Disconnect"
 Else
   objworksheet.cells(x,5) = "Reset"
End If
Set dwValueRbroken1 = Nothing
Set dwValueRbroken = Nothing
'-------------------------------------------------------------------------------------
'Checking for Reconnect connection
'-------------------------------------------------------------------------------------
strInheritReconnectSame = "fInheritReconnectSame"
strReconnectSame = "fReconnectSame"
oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strInheritReconnectSame,dwValueRSame1
oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strReconnectSame,dwValueRSame
If dwValueRSame1 = 1 Then
   objworksheet.cells(x,6) = "Inherit User Config"
 ElseIf dwValueRSame = 0 Then
   objworksheet.cells(x,6) = "From any client"
 Else
   objworksheet.cells(x,6) = "From this client only"
End If
Set dwValueRSame1 = Nothing
Set dwValueRSame = Nothing
'-------------------------------------------------------------------------------------
'Checking for Shadowing connection
'-------------------------------------------------------------------------------------
strInheritShadow = "fInheritShadow"
strShadow = "Shadow"
oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strInheritShadow,dwValueShadow1
oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strShadow,dwValueShadow
If dwValueShadow1 = 1 Then
   objworksheet.cells(x,7) = "Inherit User Config"
 ElseIf dwValueShadow = 0 Then
   objworksheet.cells(x,7) = "Disabled"
 ElseIf dwValueShadow = 1 Then
   objworksheet.cells(x,7) = "Input ON, Notify ON"
 ElseIf dwValueShadow = 2 Then
   objworksheet.cells(x,7) = "Input ON, Notify OFF"
 ElseIf dwValueShadow = 3 Then
   objworksheet.cells(x,7) = "Input OFF, Notify ON"
 ElseIf dwValueShadow = 4 Then
   objworksheet.cells(x,7) = "Input OFF, Notify OFF"
End If
Set dwValueShadow1 = Nothing
Set dwValueShadow = Nothing
'-------------------------------------------------------------------------------------
'Checking for Emcryption Level
'-------------------------------------------------------------------------------------
strMinEncryptionLevel = "MinEncryptionLevel"
oReg.GetDWORDvalue HKEY_LOCAL_MACHINE,strKeyPath,strMinEncryptionLevel,dwValueEncrp

If dwValueEncrp = 0 Then
   objworksheet.cells(x,8) = "None"
 ElseIf dwValueEncrp = 1 Then
   objworksheet.cells(x,8) = "Basic"
 ElseIf dwValueEncrp = 10 Then
   objworksheet.cells(x,8) = "RC5[128-bit]Login only"
 ElseIf dwValueEncrp = 20 Then
   objworksheet.cells(x,8) = "RC5[40-bit]"
 ElseIf dwValueEncrp = 30 Then
   objworksheet.cells(x,8) = "RC5[56-bit]"
 ElseIf dwValueEncrp = 40 Then
   objworksheet.cells(x,8) = "RC5[128-bit]"
End If
Set dwValueEncrp = Nothing
'-------------------------------------------------------------------------------------
x= x+1
Loop Until objFile.AtEndOfStream =true
objworksheet.columns.autofit()
objworkbook.SaveAs "C:\Citrix_Connection_Settings.xls"
Set objworkbook = Nothing
Set objworksheet = Nothing
Set objfile = Nothing
WScript.Echo "File has been saved in C:\Citrix_Connection_Settings.xls"



***Share your comments about the post***