VBScript script to read registry key for location of target directory

src/tfscript/findSA.vbs

@@ -0,0 +1,19 @@
+Function ReadFromRegistry(strRegistryKey, strDefault)
+    Dim WSHShell, value
+
+    On Error Resume Next
+    Set WSHShell = CreateObject("WScript.Shell")
+    value = WSHShell.RegRead( strRegistryKey )
+
+    If err.number <> 0 Then
+        readFromRegistry = strDefault
+    Else
+        readFromRegistry = value
+    End If
+
+    Set WSHShell = Nothing
+End Function
+
+str = readFromRegistry("HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Valve\Steam\InstallPath", "InstallPath")
+
+wscript.echo "The value is " & str & "steamapps\common\Team Fortress 2\tf\cfg"