VBでFAX送信する方法(FaxServerの使用法教えて)

---

開発ツール:VB6.0
OS:Windows2000
FAX送信ツールを作成してるのですが、ネットで調べていると以下のサンプルが
あったのですが,FaxServer.Connect()処理がうまく動作しません
どなたか、Connect()処理の方法について教えてください。
Private Sub cmdFaxSend_Click()
    Dim objFaxServer    As FaxServer
    Dim objFaxDoc       As FaxDoc
    
    ' FAX サーバ初期化
    Set objFaxServer = CreateObject("FaxServer.FaxServer")
    ' FAX サーバ接続
    Call objFaxServer.Connect("FaxServer")
    ' FAX ドキュメント生成
    Set objFaxDoc = objFaxServer.CreateDocument("FaxDocument")
    ' FAX ドキュメント情報設定
    With objFaxDoc
        .DisplayName = "ドキュメント名"
        '送信するテキストファイル設定
        .FileName = txtFilePath.Text
        'FAX番号設定
        .FaxNumber = txtFaxNumber.Text
    End With
    ' FAX 送信
    Call objFaxDoc.Send
    ' FAX サーバ切断
    Call objFaxServer.Disconnect
    ' FAX オブジェクト開放
    Set objFaxServer = Nothing
End Sub

編集 削除

---

Call objFaxServer.Connect("\\コンピューター名")で接続できます。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。