Bonjour,

J'ai une simple page dont le code est le suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
<%@ Page Language="VB" Debug="True"%>
<script runat="server">
 
    ' Insert page code here
    '
 
    Public Class NtUser
 
        Protected prszLogin AS String
 
        Private Sub New()
 
            prszLogin = "DOMAINE\USER"
 
        End Sub
 
        Public Function GetLogin()
 
            return(prszLogin)
 
        End Function
 
    End Class
 
 
    Dim szLogin AS String
 
    Dim oUserNt AS NtUser
 
    Sub Page_Load(Src As Object, E As EventArgs)
 
        szLogin = oUserNt.GetLogin()
 
    End Sub
 
 
</script>
<html>
<head>
</head>
<body>
 
    Bienvenue sur ma page de test...
    <form runat="server">
        <!-- Insert content here -->
        Mon login est : <%=szLogin%><br/>
    </form>
</body>
</html>
Or mon serveur web me retourne l'erreur suivante :

La référence d'objet n'est pas définie à une instance d'un objet.

Au niveau de :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Ligne 30 :     Sub Page_Load(Src As Object, E As EventArgs)
Ligne 31 : 
Ligne 32 :         szLogin = oUserNt.GetLogin()
Ligne 33 : 
Ligne 34 :     End Sub
Pourtant, j'ai bien l'impression d'avoir déclaré une instance de l'objet NtUser avec la ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Dim oUserNt AS NtUser
Merci d'avance pour l'aide...