Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 643 fois - Téléchargée 34 fois
Dim Adapter As Object Dim tmpStr As String Dim ipaddr As Variant Dim subnet As Variant Dim gateway As Variant Dim tmpVariant As Variant Dim RetVal As Integer Set Adapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=0") ' 0 = le numéro de la carte réseau 0 : si une seule .... ipaddr = Array(IpAdresse) subnet = Array(IpSousReseau) gateway = Array(IpPasserelle) 'Set your adapter to a static IP address RetVal = Adapter.EnableStatic(ipaddr, subnet) If RetVal = 0 Then 'Set your gateway RetVal = Adapter.setgateways(gateway) If RetVal = 0 Then 'Set your DNS RetVal = Adapter.SetDNSDomain("myDnsName") End If End If
Commentaires
merci d'avance
Dim tmpStr As String
Dim ipaddr As Variant
Dim subnet As Variant
Dim gateway As Variant
Dim tmpVariant As Variant
Dim RetVal As Integer
Private Sub Form_Load()
********* THE ERROR WAS HERE (AUTOMATITAtION of ERROR:
Set Adapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=0") ' 0 = le numéro de la carte réseau 0 : si une seule ....
ipaddr = Array(IpAdresse)
subnet = Array(IpSousReseau)
gateway = Array(IpPasserelle)
'Set your adapter to a static IP address
RetVal = Adapter.EnableStatic(ipaddr, subnet)
If RetVal = 0 Then
'Set your gateway
RetVal = Adapter.setgateways(gateway)
If RetVal = 0 Then
'Set your DNS
RetVal = Adapter.SetDNSDomain("myDnsName")
End If
End If
End Sub
how i can use it?
ne sachant pas comment on peut répondre en joignant un zip je vous renvoi sur cette source que je viens de déposer:
http://www.vbfrance.com/code.aspx?ID=25291
pour faire fonctionner netsh sans que l'utilisateur utilise la ligne de commande. (j'ai créer ce prog pour XP).
bonne continuation et A+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.