Set WSHShell = WScript.CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")


'Open a text file of computer names
'with one computer name per line
Set oTS = oFS.OpenTextFile("computers.txt")

'go through the text file
Do Until oTS.AtEndOfStream
 'get the next computer name
 'store it in variable strCompname
strCompname = oTS.ReadLine


    strText = "Bitch You are  a faggit"
    Set objVoice = CreateObject("SAPI.SpVoice")
    objVoice.Speak strText


Loop
'close the text file
oTS.Close