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

Question

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 & "oot\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 ?

HostOfSeraphim · Answer

Normalement :

Function FrancEuro(prix)
 FrancEuro = prix / 6.55957
End Function

Polux31 · Answer

Bonjour,

Il n'y a pas d'instruction "Return" en VB.

Il faut mettre :

Function getIP()
' .... le code

getIP = ipad

End Function

;o)

nirG95 · Answer

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 & "oot\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 /!\

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

3 réponses

Discussions similaires