Function ReadRegistryKey(shive, subkey, valuename, architecture)

	Dim hiveKey, objCtx, objLocator, objServices, objReg, Inparams, Outparams

	' First, get the Registry Provider for the requested architecture

	Set objCtx = CreateObject("WbemScripting.SWbemNamedValueSet")

	objCtx.Add "__ProviderArchitecture", architecture ' Must be 64 of 32

	Set objLocator = CreateObject("Wbemscripting.SWbemLocator")

	Set objServices = objLocator.ConnectServer("","root\default","","",,,,objCtx)

	Set objReg = objServices.Get("StdRegProv")

	' Check the hive and give it the right value

	Select Case shive

		Case "HKCR", "HKEY_CLASSES_ROOT"

			hiveKey = &h80000000

		Case "HKCU", "HKEY_CURRENT_USER"

			hiveKey = &H80000001

		Case "HKLM", "HKEY_LOCAL_MACHINE"

			hiveKey = &h80000002

		Case "HKU", "HKEY_USERS"

			hiveKey = &h80000003

		Case "HKCC", "HKEY_CURRENT_CONFIG"

			hiveKey = &h80000005

		Case "HKDD", "HKEY_DYN_DATA" ' Only valid for Windows 95/98

			hiveKey = &h80000006

		Case Else

			MsgBox "Hive not valid (ReadRegistryKey)"

	End Select

	Set Inparams = objReg.Methods_("GetStringValue").Inparameters

	Inparams.Hdefkey = hiveKey

	Inparams.Ssubkeyname = subkey

	Inparams.Svaluename = valuename

	Set Outparams = objReg.ExecMethod_("GetStringValue", Inparams,,objCtx)

	ReadRegistryKey = Outparams.SValue

End Function

	' First, try with 32-bit architecture

	sTortoise = ReadRegistryKey("HKLM", "SOFTWARE\TortoiseSVN", "Directory", 32)

	If sTortoise = Nothing Then

		' No 32-bit version of TortoiseSVN installed, try 64-bit version (doesn't hurt on 32-bit machines, it returns nothing or is ignored)

		sTortoise = ReadRegistryKey("HKLM", "SOFTWARE\TortoiseSVN", "Directory", 64)

	End If

	' If TortoiseSVN is installed, try to get the revision number

	If sTortoise <> Nothing Then

	End If