Créer une fonction en VBS qui retourne l'imp

jéré -  
nirG95 Messages postés 292 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,



je souhaite créer une fonction en VBS qui retourne l'ip, j'arrive a obtenir l'ip, mais je n'arrive pas a créer la fonction qui retourne la valeur

voila ce que j'ai :

ipad = getip()
msgbox(ipad)

Function getip()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "!\\" & strComputer & "\root\cimv2" )
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True" )
For Each objAdapter in colAdapters

IPdebut = LBound(objAdapter.IPAddress)
IPfin = UBound(objAdapter.IPAddress)
If (objAdapter.IPAddress(IPdebut) <> "" ) then

For i = IPdebut To IPfin
ipad = objAdapter.IPAddress(i)
Next

End If
Next
End Function

on ne peut pas mettre un return .... ca ne fonctionne pas ...
Une idée ?
A voir également:

3 réponses

Réponse 1 / 3
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

Il n'y a pas d'instruction "Return" en VB.

Il faut mettre : 

Function getIP()
' .... le code

getIP = ipad

End Function


;o)
1
Réponse 2 / 3
HostOfSeraphim Messages postés 6750 Date d'inscription   Statut Contributeur Dernière intervention   1 608
 
Normalement : 

Function FrancEuro(prix)
 FrancEuro = prix / 6.55957
End Function
0
Réponse 3 / 3
nirG95 Messages postés 292 Date d'inscription   Statut Membre Dernière intervention   32
 
Bonjour ton code a juste une petite erreur ! 

ipad = getip()
n'est pas bon !

Dans un premier temps, tu declare ta variable ipad en public 
Public ipad


Ensuite tu fais appel a ta fonction 
getip()


Code modifié : 
Public ipad
getip() 
msgbox(ipad) 

Function getip() 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" & "!\\" & strComputer & "\root\cimv2" ) 
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True" ) 
For Each objAdapter in colAdapters 

IPdebut = LBound(objAdapter.IPAddress) 
IPfin = UBound(objAdapter.IPAddress) 
If (objAdapter.IPAddress(IPdebut) <> "" ) then 

For i = IPdebut To IPfin 
ipad = objAdapter.IPAddress(i) 
Next 

End If 
Next 
End Function

Et voilà miracle, ton msgbox t'affiche ton ip :)

Bonne continuation

Cdlt.
/!\ Merci, de ne pas oublier de mettre votre post en résolu, si vous avez trouvé une réponse qui vous convient /!\
0