I have the unfortunate need to occasionally fix things in the registry, mostly related to applications running in a Citrix environment.\u00a0 I believe there are nice tools out there that are supposed to do this for you, if given the right information, but I haven’t bothered to figure out what those tools are or how to use them.\u00a0 Instead, I torture myself with trying to muddle through VBScript and make it do what I want.\u00a0<\/p>\n
In that spirit, I am going to show you one of my pitiful scripts (and this one is horrible, because I didn’t bother to clean it up after I worked out how to make it accomplish the desired goal.\u00a0 So… here you go:<\/p>\n
‘==========================================================================
\n‘
\n‘ VBScript Source File — Created with SAPIEN Technologies PrimalScript 2007
\n‘
\n‘ NAME: BorlandDBPathFix.vbs
\n‘
\n‘ AUTHOR: Michael Phillips , Brasfield & Gorrie, LLC
\n‘ DATE : March 11, 2009
\n‘
\n‘ COMMENT: This script is to change the value of 2 registry keys on a per
\n‘ user basis. It should set the value to be the correct system
\n‘ drive (c: or u:).
\n‘ It should also be noted that this script isn’t very pretty.
\n‘==========================================================================
\n‘Registry stuff
\nConst HKCU = &H80000001 ‘This defines the Current User Hive
\nConst HKLM = &H80000002 ‘This defines the Local Machine Hive
\nConst REG_SZ = 1
\nConst REG_EXPAND_SZ = 2
\nConst REG_BINARY = 3
\nConst REG_DWORD = 4
\nConst REG_MULTI_SZ = 7
\nvDebug = 1
\nDim strComputer<\/p>\n
strComputer = “.” ‘This computer is the “.”. If you want another computer, replace the .<\/p>\n
Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\\\” & _
\nstrComputer & “\\root\\default:StdRegProv”)<\/p>\n
sGetPath
\nSub sGetPath
\nSet oShell = CreateObject( “WScript.Shell” )
\nstrSystemDrive = oShell.ExpandEnvironmentStrings(“%systemdrive%”)
\n‘* wscript.echo strSystemDrive
\nfGetRegistryValues strSystemDrive
\nEnd Sub<\/p>\n
‘*
\n‘* This is what we are looking for:
\n‘* [HKCU\\Software\\Borland\\BDS\\4.0\\DBExpress]
\n‘* @=””
\n‘* “Connection Registry File”=”C:\\\\Program Files\\\\Common Files\\\\Borland Shared\\\\DBExpress\\\\dbxconnections.ini”
\n‘* “Driver Registry File”=”C:\\\\Program Files\\\\Common Files\\\\Borland Shared\\\\DBExpress\\\\dbxdrivers.ini”
\nFunction fGetRegistryValues (vSystemDrive)
\n‘* wscript.echo vSystemDrive & ” is being passed as vSystemDrive”
\noReg.GetExpandedStringValue HKCU,”Software\\Borland\\BDS\\4.0\\DBExpress”,”Connection Registry File”,strValue1
\noReg.GetExpandedStringValue HKCU,”Software\\Borland\\BDS\\4.0\\DBExpress”,”Driver Registry File”,strValue2
\nstrDriveLetter1 = Left (strValue1,2)
\n‘* wscript.echo strDriveLetter1 & strValue1 & strSystemDrive
\nstrDriveLetter2 = Left (strValue2,2)
\nIf strDriveLetter1 = vSystemDrive Then
\nIf strDriveLetter2 = vSystemDrive Then
\nElse
\nfSetRegistryValues strValue1,strValue2,vSystemDrive<\/p>\n
End If
\nElse
\nfSetRegistryValues strValue1,strValue2,vSystemDrive
\nEnd If
\nEnd Function
\nFunction fSetRegistryValues (fValue1,fValue2,fDriveLetter)
\n‘* wscript.echo “Bad Letter is being passed ” & fValue1 & fValue2 & fDriveLetter
\nvLength1 = (Len (fValue1))-2
\nvLength2 = (Len (fValue2))-2
\n‘* wscript.echo “–strValue1 & vLength1– >” & fValue1 & ” ” & vLength1
\nstrPathNoLetter1 = Right (fValue1,vLength1)
\nstrNewKeyValue1 = fDriveLetter & strPathNoLetter1
\nfWriteStringRegistryValues “Software\\Borland\\BDS\\4.0\\DBExpress”,”Connection Registry File”,strNewKeyValue1
\n‘* wscript.echo strNewKeyValue1<\/p>\n
strPathNoLetter2 = Right (fValue2,vLength2)
\nstrNewKeyValue2 = fDriveLetter & strPathNoLetter2
\nfWriteStringRegistryValues “Software\\Borland\\BDS\\4.0\\DBExpress”,”Driver Registry File”,strNewKeyValue2
\n‘* wscript.echo (fDriveLetter & (Right (fValue2,vLength2)))
\nEnd Function<\/p>\n
Function fWriteStringRegistryValues (fvRegistryKeyPath,fvRegistryKeyName,fvRegistryKeyValue)
\nIf vDebug = 1 Then
\n‘* wscript.echo “Begining Function -fWriteStringRegistryValues-.”
\nEnd If
\n‘ This function takes input to write string values to the registry. Key must already exist.
\noReg.SetStringValue HKCU,fvRegistryKeyPath,fvRegistryKeyName,fvRegistryKeyValue
\nEnd Function<\/p>\n","protected":false},"excerpt":{"rendered":"
I have the unfortunate need to occasionally fix things in the registry, mostly related to applications running in a Citrix environment.\u00a0 I believe there are nice tools out there that are supposed to do this for you, if given the right information, but I haven’t bothered to figure out what those tools are or how… Continue reading Another Registry Script…<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"advanced_seo_description":"","jetpack_seo_html_title":"","jetpack_seo_noindex":false,"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[11,25],"tags":[147,186],"class_list":["post-111","post","type-post","status-publish","format-standard","hentry","category-humor","category-scripting","tag-registry","tag-vbscript","entry"],"jetpack_featured_media_url":"","jetpack-related-posts":[],"jetpack_likes_enabled":true,"jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/pcW544-1N","_links":{"self":[{"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/posts\/111","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/comments?post=111"}],"version-history":[{"count":0,"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/posts\/111\/revisions"}],"wp:attachment":[{"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/media?parent=111"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/categories?post=111"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/tags?post=111"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}