Comment configurer une carte reseau par script ?

Comment configurer une carte reseau par script ? - Windows & Software

Marsh Posté le 30-04-2004 à 15:28:45    

Bonjour,
 
J'ai 1 domaine Windows avec des clients windows, la carte reseau est configuré avec une @IP statique.
La plage d'adresse IP des machines est changée donc tout les postes doivent avoir une nouvelle @IP, comment peut'on configurer une carte reseau par script au logon ???
 
  :bounce:

Reply

Marsh Posté le 30-04-2004 à 15:28:45   

Reply

Marsh Posté le 01-05-2004 à 11:40:12    

Reply

Marsh Posté le 01-05-2004 à 14:29:21    

Voilà un script trouvé sur TechNet:
 

Code :
  1. strComputer = "."
  2. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
  3. Set colNetAdapters = objWMIService.ExecQuery _
  4.     ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE" )
  5. strIPAddress = Array("192.168.1.141" )
  6. strSubnetMask = Array("255.255.255.0" )
  7. strGateway = Array("192.168.1.100" )
  8. strGatewayMetric = Array(1)
  9. For Each objNetAdapter in colNetAdapters
  10.     errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
  11.     errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
  12.     If errEnable = 0 Then
  13.         WScript.Echo "The IP address has been changed."
  14.     Else
  15.         WScript.Echo "The IP address could not be changed."
  16.     End If
  17. Next


 
Webman

Reply

Marsh Posté le 04-05-2004 à 16:50:39    

C trop cool ca merci :o)

Reply

Marsh Posté le 05-05-2004 à 11:19:58    

j'ai essayer ce script, j'ai juste copier le script dans un txt puis j'ai renommé le script en *.exe et apres avoir lancé le script: erreur.
je pense qu'il ya forcement autre chose a mettre autour de ce script " Mais j'y connais rien"
 
Script:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True" )
For Each objNetCard in colNetCards
    strPrimaryServer = "192.168.1.100"
    strSecondaryServer = "192.168.1.200"
    objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer
Next

Reply

Marsh Posté le 05-05-2004 à 16:45:56    

une info que je viens d'avoir: le script doit etre en Kixtart.
 
j'ai trouver des script pour passer de l'IP static au DHCP mais pas juste un changement de place d'adresse.
 
Merci d'avance pour votre aide :o)

Reply

Marsh Posté le 05-05-2004 à 19:07:15    

t'a pas du tout besoin de kixtart pour executer des scripts vbs comme ceux la.
le script que t'a posté doit porter l'extention .vbs, pas .exe c pour ca que ca ne marche pas.

Reply

Marsh Posté le 06-05-2004 à 11:07:19    

oki doki merci , mais malheureusement c la hierarchie qui veut du Kix :((

Reply

Marsh Posté le 03-06-2004 à 09:17:36    

drapal !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed