Sub CheckError(strDetails)
Dim strErr
If Err.Number <> 0 then
strErr = strDetails & " : Exception " & Err.Description & " err.Number=0x" & Hex(Err.Number)
WScript.Echo strErr
WScript.Quit(Err.Number)
End If
End Sub
ON ERROR RESUME NEXT

'For Windows XP

Set FaxServer = WScript.CreateObject("FAXCOMEX.FaxServer")
CheckError("WScript.CreateObject(FAXCOMEX.FaxServer)")
WScript.Echo "FaxServer created"

'Connect to the fax server. Specify computer name if the server is remote. See How to connect to a remote Fax Service for details.

FaxServer.Connect ""
CheckError("FaxServer.Connect")
Set FaxDoc = WScript.CreateObject("FAXCOMEX.FaxDocument")
CheckError("WScript.CreateObject(FAXCOMEX.FaxDocument)")

'Set file name of any printable document.

FaxDoc.Body = "test.rtf"
CheckError("FaxDoc.Body")
FaxDoc.DocumentName = "My First Fax"
CheckError("FaxDoc.DocumentName")
FaxDoc.Recipients.Add ("12225550100")
CheckError("FaxDoc.Recipients.Add")

'Set the sender properties.

FaxDoc.Sender.Name = "Bob"
FaxDoc.Sender.FaxNumber = "7777777"
CheckError("FaxDoc.Sender.FaxNumber")

'Submit the document to the connected fax server and get back the job ID.

JobID = FaxDoc.ConnectedSubmit(FaxServer)
CheckError("FaxDoc.ConnectedSubmit")
WScript.Echo "FaxDoc.ConnectedSubmit success"

'For Windows 2000

Set FaxServer = WScript.CreateObject("FaxServer.FaxServer")
CheckError("WScript.CreateObject(FaxServer.FaxServer)")
WScript.Echo "FaxServer created"

'Connect to the fax server.

FaxServer.Connect "\\" & "Computer Name"
CheckError("FaxServer.Connect")
Set FaxDoc = FaxServer.CreateDocument("test.rtf")
CheckError("FaxServer.CreateDocument")
FaxDoc.FaxNumber = "12225550100"
FaxDoc.Send
CheckError("FaxDoc.Send")
WScript.Echo "FaxDoc.Send success"

For more information on sending faxes with Microsoft's Platform SDK please see:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/fax/faxusing_3ee7.asp