Per consentire la chiamata di questo servizio Web dallo script utilizzando ASP.NET AJAX, rimuovere il commento dalla riga seguente.
' questa riga permette di utilizzare ASP.NET AJAX
<System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="http://188.64.91.100:8002/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class Service1
    Inherits System.Web.Services.WebService
    Private g_sCurrentDirectory As String ' directory corrente 
    Private g_slogCurrentDirectory As String ' directory del file di log
    Private g_traceLog As Boolean = False ' variabile booleana per tenere traccia della creazione del file .ini
    Private objLockONfile As Object = New Object 'oggetto lock utilizzato per l'accesso alle variabili condivise
    Dim iPortServer As Integer = 8003 'porta su cui è in ascolto il server
    <WebMethod()> _
   <Script.Services.ScriptMethod(ResponseFormat:=ResponseFormat.Json)> _
    Public Function Service1(ByVal sIPserver As String, ByVal iIndexRequest As Integer)
        ' Public Function Service1(ByVal sIPserver As String)
        Dim sReturnString As String = Nothing 'il web service restituisce come risultato una stringa in formato json, 
        ' dei valori letti dal vdr
        'initialize() 'inizializzazione dell'applicazione (creazione file .ini)
        'write_Log("IP:"+sIPserver +"parametro:"+iIndexRequest .ToString +vbNewLine)

        'sReturnString = receiveDataFromServer(sIPserver) 'chiamata al server per la connessione ed estrazione dati dal vdr

        sReturnString = receiveDataFromServer(sIPserver, iIndexRequest)

        Return sReturnString
    End Function