Improved the scripts

Scripts/speak-time.ps1

@@ -9,11 +9,20 @@
 function Speak([string]$Text) {
 	write-progress "$Text"
 	$Voice = new-object -ComObject SAPI.SPVoice
+	$Voices = $Voice.GetVoices()
+	foreach ($OtherVoice in $Voices) {
+		$Description = $OtherVoice.GetDescription()
+		if ($Description -like "*- English (United States)") {
+			$Voice.Voice = $OtherVoice
+			break
+		}
+	}
 	[void]$Voice.Speak($Text)
 	write-progress -complete "$Text"
 }
 
 try {
+	[system.threading.thread]::currentthread.currentculture=[system.globalization.cultureinfo]"en-US"
 	Speak("It's now $((Get-Date).ToShortTimeString())")
 	exit 0
 } catch {