ip de moi même

Bonjour,
Ce lien vous donnera un exemple pour obtenir votre ip
http://www.vbfrance.com/code.aspx?IDH06

Cordialement
Georges

"GOWAP" <gowap@@@fr.fm> a écrit dans le message de news:
ezz%232EYzFHA.460@TK2MSFTNGP15.phx.gbl...

Bonjour,

savez -vous comment en VBScript (pour Cscript) obtenir mon/mes adresses IP
? ou bien l'adresse IP de %ComputerName% (voir aussi %logonservet%) ?

Si vous avez un exemple de script, je suis preneur.

L'idée est de détecté mon site géographique et de récupérer des fichiers
particulié sur le réseau.

Merci,
GOWAP.

Bonjour !


IPconfig, comme indiqué par G.M. te donnera déjà un minimum.

IPconfig /ALL te donnera plus d'indications, voire trop (sur mon poste, j'ai
ainsi de 3 à 5 adresses IP)

Un autre moyen simple, c'est :
ping /n 1 %computername% |find "Réponse"
Avantage, on obtient l'adresse IP utilisée.


Mais, attention à l'IP à déterminer. Dans le cas d'un ordinateur relié à
Internet, l'adresse IP "extérieure" n'a pas grand chose à voir avec les
adresses "internes".


@-salutations

Michel Claveau

Bonjour GOWAP

Bonjour,

savez -vous comment en VBScript (pour Cscript) obtenir mon/mes adresses IP ?
ou bien l'adresse IP de %ComputerName% (voir aussi %logonservet%) ?

Si vous avez un exemple de script, je suis preneur.

L'idée est de détecté mon site géographique et de récupérer des fichiers
particulié sur le réseau.

Un petit script qui permet d'avoir des infos sur les machines du réseau


Dim args

Set args = WScript.Arguments
If args.Count > 0 Then
Host = args(0)
else
Host = "localhost"
End If

GetIpConfig Host
WScript.Quit

Private Sub GetIpConfig(Station)
Dim Locator
Dim Service
Dim NicSet
Dim Nic

Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Service = Locator.ConnectServer(Station, "rootcimv2")
Set NicSet = Service.ExecQuery("Select * From
Win32_NetworkAdapterConfiguration Where IPEnabled = True")

Service.Security_.ImpersonationLevel = 3

For Each Nic In NicSet
WScript.Echo "Nom de l'hôte : " & Nic.DNSHostName
WScript.Echo "Decription : " & Nic.Description
WScript.Echo "Addresse : " & Nic.IPAddress(0)
WScript.Echo "Masque : " & Nic.IPSubnet(0)
WScript.Echo "Passerelle : " & Nic.DefaultIPGateway(0)
WScript.Echo "DHCP : " & Nic.DHCPEnabled
WScript.Echo "DNS Serv 1 : " & Nic.DNSServerSearchOrder(0)
WScript.Echo "DNS Serv 2 : " & Nic.DNSServerSearchOrder(1)
WScript.Echo "Mac Addr : " & Nic.MACAddress
Next
End Sub

--
Cordialement,

Jacques.

Merci de ce liens, mais il ne me permet pas d'avoir mon information.
En effet, un IPCONFIG liste les cartes réseau, quelles soient ou pas liées a
mon domaine.
Ainsi, avec l'ipconfig, je ne connais pas mon adresse réseau (si, mais
parmis la liste), mais simplement la liste des adresses réseau des cartes
physique ou virtuel.
J'ai besion de l'ip relative a un nom d'ordinateur, c'est a dire de l'IP qui
répond sur le nom %ComputerName%.

Bon, je vais prend la solution WMI pour l'instant, mais si vous avez une
information pour avoir l'IP de réponse sur le nom du poste, je suis preneur.
Merci.

---solution WMI : ---
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")

Set IPConfigSet = objWMIService.ExecQuery _
("Select * 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

----- Original Message -----
From: "Georges MAUREL" <georges.maurel_at_free.fr>
Newsgroups: microsoft.public.fr.scripting
Sent: Monday, October 10, 2005 12:22 PM
Subject: Re: ip de moi même

Bonjour,
Ce lien vous donnera un exemple pour obtenir votre ip
http://www.vbfrance.com/code.aspx?IDH06

Cordialement
Georges

"GOWAP" <gowap@@@fr.fm> a écrit dans le message de news:
ezz%232EYzFHA.460@TK2MSFTNGP15.phx.gbl...

Bonjour,

savez -vous comment en VBScript (pour Cscript) obtenir mon/mes adresses
IP ? ou bien l'adresse IP de %ComputerName% (voir aussi %logonservet%) ?

Si vous avez un exemple de script, je suis preneur.

L'idée est de détecté mon site géographique et de récupérer des fichiers
particulié sur le réseau.

Merci,
GOWAP.

Voir suite de la recherche dans la réponse de Jacque93

Oui, il ne faut pas croire qu'il y a qu'une carte !

En effet, sur un portable, je peux trouver une carte Eternet 10/100, une
WiFi, une BlueTooth et peut etre encore des truc bizare, des connexion VPN,
RTC.... et carte viruel.

Donc, il faux chercher parmis tous ca, quel est l'IP connecté au réseau du
domaine.
Sachant que je suis en DHCP (dans ma flotte), il y a peut etre un truc a
exploiter ?

Merci encore de vos idées,
GOWAP

Re

J'ai déjà donné une solution, dans l'autre message :

ping /n 1 %computername% |find "Réponse"



@-salutations

Michel Claveau

Re

Je t'ai concocté un petit batch, qui donne juste la donnée :

@echo off
ping /n 1 %computername% |find "ponse" >toto.txt
for /F "usebackq tokens=1-3 delims== " %%i in (toto.txt) do (call :SIP
%%k)
del toto.txt
echo IP = %IP%
goto :EOF

:SIP
set IP=%1
goto :EOF



@-salutations

Michel Claveau

Ca ne fonctionne pas si la carte 1 n'est pas la carte du réseau du domaine.
Et oui, si c'est le Wifi ? c'est peut être la carte 2 ? et dans ce cas, tu
as l'adresse IP de la carte 1.... Et si tu as deux cartes, voir trois cartes
? tu a l'ip de la carte 1 avec ton astuce.
Si je n'ai pas relevé ta proposition pour ce problème - et en plus je te
l'explique dans le message précédent.

cette astuce est peut être intéressante pour toi, mais pas pour un
fonctionnement d'administrateur réseau et système qui ce dois d'être sur de
l'ip pour un script de connexion. J'avoues, je suis perfectionniste !

Merci quand même pour cette proposition qui offrira une solution rapide pour
d'autre.

Olivier.

"Do Re Mi chel La Si Do" <enleverlesO.OmcO@OmclaveauO.com> a écrit dans le
message de news: eBfAdObzFHA.3312@TK2MSFTNGP09.phx.gbl...

Re

Je t'ai concocté un petit batch, qui donne juste la donnée :

@echo off
ping /n 1 %computername% |find "ponse" >toto.txt
for /F "usebackq tokens=1-3 delims== " %%i in (toto.txt) do (call :SIP
%%k)
del toto.txt
echo IP = %IP%
goto :EOF

:SIP
set IP=%1
goto :EOF



@-salutations

Michel Claveau

Un script WMI pour faire les filtres dont tu as besoin:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration")
For Each objItem in colItems
Wscript.Echo "ARP Always Source Route: " & objItem.ArpAlwaysSourceRoute
Wscript.Echo "ARP Use EtherSNAP: " & objItem.ArpUseEtherSNAP
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Database Path: " & objItem.DatabasePath
Wscript.Echo "Dead GW Detection Enabled: " & objItem.DeadGWDetectEnabled
Wscript.Echo "Default IP Gateway: " & objItem.DefaultIPGateway
Wscript.Echo "Default TOS: " & objItem.DefaultTOS
Wscript.Echo "Default TTL: " & objItem.DefaultTTL
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "DHCP Enabled: " & objItem.DHCPEnabled
Wscript.Echo "DHCP Lease Expires: " & objItem.DHCPLeaseExpires
Wscript.Echo "DHCP Lease Obtained: " & objItem.DHCPLeaseObtained
Wscript.Echo "DHCP Server: " & objItem.DHCPServer
Wscript.Echo "DNS Domain: " & objItem.DNSDomain
Wscript.Echo "DNS Domain Suffix Search Order: " & _
objItem.DNSDomainSuffixSearchOrder
Wscript.Echo "DNS Enabled For WINS Resolution: " & _
objItem.DNSEnabledForWINSResolution
Wscript.Echo "DNS Host Name: " & objItem.DNSHostName
Wscript.Echo "DNS Server Search Order: " & objItem.DNSServerSearchOrder
Wscript.Echo "Domain DNS Registration Enabled: " & _
objItem.DomainDNSRegistrationEnabled
Wscript.Echo "Forward Buffer Memory: " & objItem.ForwardBufferMemory
Wscript.Echo "Full DNS Registration Enabled: " & _
objItem.FullDNSRegistrationEnabled
Wscript.Echo "Gateway Cost Metric: " & objItem.GatewayCostMetric
Wscript.Echo "IGMP Level: " & objItem.IGMPLevel
Wscript.Echo "Index: " & objItem.Index
Wscript.Echo "IP Address: " & objItem.IPAddress
Wscript.Echo "IP Connection Metric: " & objItem.IPConnectionMetric
Wscript.Echo "IP Enabled: " & objItem.IPEnabled
Wscript.Echo "IP Filter Security Enabled: " & _
objItem.IPFilterSecurityEnabled
Wscript.Echo "IP Port Security Enabled: " & _
objItem.IPPortSecurityEnabled
Wscript.Echo "IPSec Permit IP Protocols: " & _
objItem.IPSecPermitIPProtocols
Wscript.Echo "IPSec Permit TCP Ports: " & objItem.IPSecPermitTCPPorts
Wscript.Echo "IPSec Permit UDP Ports: " & objItem.IPSecPermitUDPPorts
Wscript.Echo "IP Subnet: " & objItem.IPSubnet
Wscript.Echo "IP Use Zero Broadcast: " & objItem.IPUseZeroBroadcast
Wscript.Echo "IPX Address: " & objItem.IPXAddress
Wscript.Echo "IPX Enabled: " & objItem.IPXEnabled
Wscript.Echo "IPX Frame Type: " & objItem.IPXFrameType
Wscript.Echo "IPX Media Type: " & objItem.IPXMediaType
Wscript.Echo "IPX Network Number: " & objItem.IPXNetworkNumber
Wscript.Echo "IPX Virtual Net Number: " & objItem.IPXVirtualNetNumber
Wscript.Echo "Keep Alive Interval: " & objItem.KeepAliveInterval
Wscript.Echo "Keep Alive Time: " & objItem.KeepAliveTime
Wscript.Echo "MAC Address: " & objItem.MACAddress
Wscript.Echo "MTU: " & objItem.MTU
Wscript.Echo "Number of Forward Packets: " & objItem.NumForwardPackets
Wscript.Echo "PMTUBH Detect Enabled: " & objItem.PMTUBHDetectEnabled
Wscript.Echo "PMTU Discovery Enabled: " & objItem.PMTUDiscoveryEnabled
Wscript.Echo "Service Name: " & objItem.ServiceName
Wscript.Echo "Setting ID: " & objItem.SettingID
Wscript.Echo "TCPIP Netbios Options: " & objItem.TcpipNetbiosOptions
Wscript.Echo "TCP Maximum Connect Retransmissions: " & _
objItem.TcpMaxConnectRetransmissions
Wscript.Echo "TCP Maximum Data Retransmissions: " & _
objItem.TcpMaxDataRetransmissions
Wscript.Echo "TCP NumC onnections: " & objItem.TcpNumConnections
Wscript.Echo "TCP Use RFC1122 Urgent Pointer: " & _
objItem.TcpUseRFC1122UrgentPointer
Wscript.Echo "TCP Window Size: " & objItem.TcpWindowSize
Wscript.Echo "WINS Enable LMHosts Lookup: " & _
objItem.WINSEnableLMHostsLookup
Wscript.Echo "WINS Host Lookup File: " & objItem.WINSHostLookupFile
Wscript.Echo "WINS Primary Server: " & objItem.WINSPrimaryServer
Wscript.Echo "WINS Scope ID: " & objItem.WINSScopeID
Wscript.Echo "WINS Secondary Server: " & objItem.WINSSecondaryServer
Next
Comme par exemple:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration")
For Each objItem in colItems
if objItem.IPAddress<>null Then
Wscript.Echo "MAC Address: " & objItem.MACAddress
End if
Next


"GOWAP" wrote:

Ca ne fonctionne pas si la carte 1 n'est pas la carte du réseau du domaine.
Et oui, si c'est le Wifi ? c'est peut être la carte 2 ? et dans ce cas, tu
as l'adresse IP de la carte 1.... Et si tu as deux cartes, voir trois cartes
? tu a l'ip de la carte 1 avec ton astuce.
Si je n'ai pas relevé ta proposition pour ce problème - et en plus je te
l'explique dans le message précédent.

cette astuce est peut être intéressante pour toi, mais pas pour un
fonctionnement d'administrateur réseau et système qui ce dois d'être sur de
l'ip pour un script de connexion. J'avoues, je suis perfectionniste !

Merci quand même pour cette proposition qui offrira une solution rapide pour
d'autre.

Olivier.

"Do Re Mi chel La Si Do" <enleverlesO.OmcO@OmclaveauO.com> a écrit dans le
message de news: eBfAdObzFHA.3312@TK2MSFTNGP09.phx.gbl...

Re

Je t'ai concocté un petit batch, qui donne juste la donnée :

@echo off
ping /n 1 %computername% |find "ponse" >toto.txt
for /F "usebackq tokens=1-3 delims== " %%i in (toto.txt) do (call :SIP
%%k)
del toto.txt
echo IP = %IP%
goto :EOF

:SIP
set IP=%1
goto :EOF



@-salutations

Michel Claveau