http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200602/06020088.txt
↑↑↑↑↑↑↑↑↑↑↑↑
と全く同じ問題で悩んでます。
しかも、administrator権限でやってもうまくいきません。
環境は、
サーバOS:Win2003Server
クライアントOS:WinXP SP2
開発言語:VB6
Dcomcnfgで、該当するアプリケーションのプロパティで、、
独自のアクセス許可、独自の起動アクセス許可、独自の構成アクセス許可を選択して、それぞれにEveryone(すべてアクセス許可)を追加してます。
サーバー側のクラスは以下の感じ(DComSrvTest.Class1)
Function Sum(ByVal x As Long, ByVal y As Long) As String
Sum = "てすと!!" + Str(x + y)
End Function
クライアントの呼びだしはこんな感じにしております。
Private Sub Command1_Click()
Dim a As Object
Set a = CreateObject("DComSrvTest.Class1", "srv99")
MsgBox a.Sum(10, 10)
End Sub
呼び出してみると、
「実行時エラー 70: 書き込みできません」
追伸
http://support.microsoft.com/kb/180384/ja
はひととおり試してみました。
解決いたしました。
OS側の観点で別フォーラムにQA出してみました。
有効回答ありましたので、参考までにURL記載いたします。
http://forums.microsoft.com/TechNet-JA/ShowPost.aspx?PostID=3439507&SiteID=36&mode=1
パスワード違い
編集 削除