Fala galera hoje vou posta um simples script que posibilita ver seu endereço de ip ,pois muitos ainda tem duvida de como ver seu proprio ip.
Pois bem é muito facil basta copiar o codigo abaixo e colar no bloco de notas e salvar com (.vbs) exemplo IP.vbs depois de salvar basta clicar duas vezes sobre o arquivo e verá seu ip.
Código:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
WScript.Echo IPConfig.IPAddress(i)
Next
End If
Next
Pois bem é muito facil basta copiar o codigo abaixo e colar no bloco de notas e salvar com (.vbs) exemplo IP.vbs depois de salvar basta clicar duas vezes sobre o arquivo e verá seu ip.
Código:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
WScript.Echo IPConfig.IPAddress(i)
Next
End If
Next