[vbscript] visualizzare ip

[oronze]

ho preso questo esempio dal sito della microsoft e l'ho adattato alle mie esigenze (usare vbscript con desktopx)

Dim objWMIService

Sub Object_OnScriptEnter
  object.settimer 123, 1000
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Object_OnTimer123
End Sub
 
Sub Object_OnScriptExit
 Set objWMIService = nothing
End Sub

Sub Object_OnTimer123
 Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration")

For Each IPConfig In IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then 
        For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
        Object.text = "Ip:" & IPConfig.IPAddress(i)
        Next
    End If
Exit Sub
 Next
End Sub

è da poco che conosco vbscript ma non mi sembra ci siano errori....ora, perchè non mi stampa nulla? neanche Ip:?