problem setting up the security on my test web service

[Greg]

Please note: I have cross posted this from Newsgroup:
microsoft.publi c.dotnet.framew ork.aspnet.webs ervices
with a few minor changes...

I am having a simple problem setting up the security on my test web
service...

My Web service code is:

Imports System.Web.Serv ices
<System.Web.Ser vices.WebServic e(Namespace :=
"http://tempuri.org/AddNumbersWebSe rvice/AddNumbersWebSe rvice")> _
Public Class AddNumbersWebSe rvice
Inherits System.Web.Serv ices.WebService

<WebMethod()> _
Public Function AddNumbers( ByVal a1 As Integer, _
ByVal a2 As Integer) As String
Dim lResult As String = (A1+A2).ToStrin g
Return lResult
End Function
End Class

This works fine when I test it using F5...
It fires up a web page where I can test the web service.
But when I try to write a win forms client program...

Private Sub DoIt
Try
TextBox3.Text = "Processing "
Application.DoE vents
Dim lV1 As String = TextBox1.Text
Dim lV2 As String = TextBox2.Text
Dim lV1a As Integer = 0
Dim lV2a As Integer = 0
If IsNumeric( lV1 ) Then lV1a = Int( lV1 )
If IsNumeric( lV2 ) Then lV2a = Int( lV2 )
Dim lWebService As New
WebServiceClien t.localhost.Add NumbersWebServi ce
Dim lResult As String = lWebService.Add Numbers(lV1a,lV 2a)
TextBox3.Text = lResult
Catch ex As Exception
TextBox3.Text = ex.Message
End Try
End Sub

I get the error "The request failed with HTTP status 401: Access
Denied." from the line:
Dim lResult As String = lWebService.Add Numbers(lV1a,lV 2a)

I think this is a simple setup problem with the IIS security settings
but I cannot figure it out. Any help would be appreciated.

The environment is:
Running on local host.
VB2003.
MS Windows-XP (SP1)
For the web service:
- anonymous access is allowed.
- Execute permissions = Scripts and executables
- Application protection = Low

Thanks in advance for your help
Greg

p.s. the reference.vb file contains...
Imports System
Imports System.Componen tModel
Imports System.Diagnost ics
Imports System.Web.Serv ices
Imports System.Web.Serv ices.Protocols
Imports System.Xml.Seri alization

'
'This source code was auto-generated by Microsoft.VSDes igner, Version
1.1.4322.573.
'
Namespace localhost1

'<remarks/>
<System.Diagnos tics.DebuggerSt epThroughAttrib ute(), _
System.Componen tModel.Designer CategoryAttribu te("code"), _
System.Web.Serv ices.WebService BindingAttribut e(Name:="AddNum bersWebServiceS oap",
[Namespace]:="http://tempuri.org/AddNumbersWebSe rvice/AddNumbersWebSe rvice")>
_
Public Class AddNumbersWebSe rvice
Inherits System.Web.Serv ices.Protocols. SoapHttpClientP rotocol

'<remarks/>
Public Sub New()
MyBase.New
Me.Url =
"http://localhost/AddNumbersWebSe rvice/AddNumbersWebSe rvice.asmx"
End Sub

'<remarks/>
<System.Web.Ser vices.Protocols .SoapDocumentMe thodAttribute(" http://tempuri.org/AddNumbersWebSe rvice/AddNumbersWebSe rvice/AddNumbers",
RequestNamespac e:="http://tempuri.org/AddNumbersWebSe rvice/AddNumbersWebSe rvice",
ResponseNamespa ce:="http://tempuri.org/AddNumbersWebSe rvice/AddNumbersWebSe rvice",
Use:=System.Web .Services.Descr iption.SoapBind ingUse.Literal,
ParameterStyle: =System.Web.Ser vices.Protocols .SoapParameterS tyle.Wrapped)>
_
Public Function AddNumbers(ByVa l a1 As Integer, ByVal a2 As
Integer) As String
Dim results() As Object = Me.Invoke("AddN umbers", New
Object() {a1, a2})
Return CType(results(0 ),String)
End Function

'<remarks/>
Public Function BeginAddNumbers (ByVal a1 As Integer, ByVal a2
As Integer, ByVal callback As System.AsyncCal lback, ByVal asyncState
As Object) As System.IAsyncRe sult
Return Me.BeginInvoke( "AddNumbers ", New Object() {a1, a2},
callback, asyncState)
End Function

'<remarks/>
Public Function EndAddNumbers(B yVal asyncResult As
System.IAsyncRe sult) As String
Dim results() As Object = Me.EndInvoke(as yncResult)
Return CType(results(0 ),String)
End Function
End Class
End Namespace

[Martin Kulov]

Hi Greg,

You must allow anonymous access to your virtual directory in IIS management console.

Regards,

Martin Kulov
http://www.codeattest.com

MCAD Charter Member
MCSD.NET Early Achiever
MCSD

[Mujtaba Syed]

Grey wrote:

The environment is:
Running on local host.
VB2003.
MS Windows-XP (SP1)
For the web service:
- anonymous access is allowed.
- Execute permissions = Scripts and executables
- Application protection = Low
Greg, even though you have said that 'anonymous access is allowed', Martin's
answer holds good. If you check closely, I suspect both the anonymous access
and the integrated windows authentication checkboxes will be checked.
Uncheck the integrated windows authentication checkbox and your web service
will become usable by Windows Forms applications.

Mujtaba.

"Martin Kulov" <ku***@bezboklu k.abv.bg> wrote in message
news:%2******** **********@TK2M SFTNGP09.phx.gb l... Hi Greg,

You must allow anonymous access to your virtual directory in IIS management console.
Regards,

Martin Kulov
http://www.codeattest.com

MCAD Charter Member
MCSD.NET Early Achiever
MCSD