<html>
<head>
<script language="vbscript" type="text/vbscript">
Sub DisplayUserName
Dim objNet
On Error Resume Next
Set objNet = CreateObject("WScript.NetWork")
If Err.Number <> 0 Then
MsgBox "Cannot do it"
End if
Dim strInfo
strInfo = "username = " & objNet.UserName
MsgBox strInfo
Set objNet = Nothing
End Sub
</script>
</head>
<body onload="vbscript: DisplayUserName">
</body>
</html>
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.