VBscript to output to a file accounts enabled in AD

I have a script that goes and retrieves usernames from AD that are enabled and displays them in an output box but i want it to output to a text file... can someone help me its urgent?

here is the script:
'This script should search for all user account in the domain
'that aren't disabled. The sAMAccountType=8053006368 is for
'all the different accounts. 1.2.840.113556.1.4.803 is the BIT_AND search
'so with this LDAP Query we are looking for all accounts that don't have
'the 2 bit turned on (Notice the ! (NOT) in front if the userAccountControl)
'You will need to rename the file so its a .vbs and enter your domain name
'in the Query string.

Option Explicit
Dim aCon, aCmd, aRst, sResultText
sResultText = "Enabled Accounts" & vbCrLf
Set aCon = CreateObject("ADODB.Connection")
Set aCmd = CreateObject("ADODB.Command")
aCon.Provider = "ADsDSOObject"  
aCon.Open       
aCmd.ActiveConnection = aCon       
aCmd.CommandText = "<LDAP://DC=company,DC=com>;" _
  & 

"(&(objectClass=person)(objectClass=user)(sAMAccountType=805306368)(!userAccountControl:

1.2.840.113556.1.4.803:=2));" _
      & "name,SamAccountName,givenName,sN;subTree"
Set aRst = aCmd.Execute()
Do While Not aRst.EOF
     sResultText = sResultText _
            & aRst.Fields("samaccountname") _
            & ", " & aRst.Fields("givenname") _
            & ", "       & aRst.Fields("sN") _
            & vbCRLF      
      aRst.MoveNext
Loop
Dim oFilesys, oFiletxt, sFilename, sPath

Set oFilesys = CreateObject("Scripting.FileSystemObject")

Set oFiletxt = oFilesys.CreateTextFile("c:\test.txt", True)

sPath = oFilesys.GetAbsolutePathName("c:\test.txt")

sFilename = oFilesys.GetFileName(sPath)

oFiletxt.WriteLine("Accounts Enabled.")

oFiletxt.Close'

If oFilesys.FileExists(sPath) Then Wscript.Echo sResultText