End If ' InStr(version, "$")

	If version <> "norev000" Then

		If InStr(url, "branches") Then

			branch = Mid(url, InStr(url, "branches/") + 9)

		End If

		If InStr(url, "tags") Then

			version = Mid(url, InStr(url, "tags/") + 5)

		End If

	Else ' version <> "norev000"

		' svn detection failed, reset error and try git

		Err.Clear

		Set oExec = WshShell.Exec("git rev-parse --verify HEAD")

		If Err.Number = 0 Then

			' Wait till the application is finished ...

			Do While oExec.Status = 0

			Loop

			If oExec.ExitCode = 0 Then

				hash = oExec.StdOut.ReadLine()

				version = "g" & Mid(hash, 1, 8)

				' Make sure index is in sync with disk

				Set oExec = WshShell.Exec("git update-index --refresh")

				If Err.Number = 0 Then

					' Wait till the application is finished ...

					Do While oExec.Status = 0

						WScript.Sleep 10

					Loop

				End If

				Set oExec = WshShell.Exec("git diff-index --exit-code --quiet HEAD ../")

				If Err.Number = 0 Then

					' Wait till the application is finished ...

					Do While oExec.Status = 0

					Loop

					If oExec.ExitCode = 1 Then

						modified = 2

					End If ' oExec.ExitCode = 1

					Set oExec = WshShell.Exec("git symbolic-ref HEAD")

					If Err.Number = 0 Then

						line = oExec.StdOut.ReadLine()

						line = Mid(line, InStrRev(line, "/") + 1)

						If line <> "master" Then

							branch = line

						End If ' line <> "master"

					End If ' Err.Number = 0