[chris0211]

bonjour

je suis en starge pratique et j ai un gros probleme
voila je doit attribuer une adresse ip a plus de 3000 machine
en utilisant un scripte et la commande netsh(netshell)
les machine doive garde les ip quel sont dejas mais mon
probleme c est que 1000 poste sont sous nt
et la commade netsh ne marche pas avec nt........

svp aide moi il fais froid dans l'espace

[childerik]

Tu dois manipuler la console netsh à partir de quelle version du contrôleur de domaine ? (NT4 server, 2000 server, 2003 server, Unix ??????????)

[Fred]

Et pourquoi pas un bon vieux DHCP commandé suivant les adresses MAC (et une petite relecture avant de cliquer sur "Poster") ?

[chalans]

Netsh ne fonctionne pas sous nt4 en effet

La solution dhcp en fonction des addresse mac sur 1000 postes .... ca fait chaud


Sinon essaye de le faire en wmi ( faut installer en script wmi pour nt4 ) pour changer les addresse ip à distance de tes machines nt4 .

Sinon en vbs classique en tapant dans le registre

[chris0211]

j ai touver un script qui n est pas mal
mais il ne marche pas.le voila :
'Changes Windows NT clients from using static IP address's to use DHCP. Could be called from the logon script. Combined with the use of the SU utility this could be added to a logon script to perform a hands off migration.
'All variables declared
Option Explicit
Dim oWSHShell
Dim sNIC, sMan
Dim iCount
Set oWSHShell = WScript.CreateObject("WScript.Shell")
' Set the DCHP service to autostart
oWSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\DHCP\Start", 2
' Get Network card
On Error Resume Next
iCount = 1
Do
sNIC = oWSHShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\" & iCount & "\ServiceName")
sMan = oWSHShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\" & iCount & "\Manufacturer")
' Skip the Async and NDIS services
If sMan <> "Microsoft" And Err.Number = 0 Then
Call SetNIC
End If
iCount = iCount + 1
Loop Until Err.Number <> 0
' Clear the error
Err.Clear
' End of Script

Sub SetNIC
Dim iTest
' Set the NIC service to use DHCP
sNIC = "HKLM\SYSTEM\CurrentControlSet\Services\" & sNIC &"\Parameters\TCPIP\"
iTest = oWSHShell.RegRead(sNIC & "EnableDHCP")
If iTest = 0 Then
oWSHShell.RegWrite sNIC & "EnableDHCP", 1, "REG_DWORD"
oWSHShell.RegWrite sNIC & "IPAddress", "0.0.0.0", "REG_MULTI_SZ"
oWSHShell.RegWrite sNIC & "SubnetMask", "0.0.0.0", "REG_MULTI_SZ"
End If
End Sub

en faite la clé dhcp start passe bien a 2 mais rien ne se passe
si vous avez une idee....

merci

[Fred]

Ca veut dire quoi "rien ne se passe" ? Normalement il a dû t'activer le DHCP sur toutes tes cartes réseau, c'est tout ce que ce script est censé faire ...
Ton véritable but, c'est d'assigner des IPs fixes à tous tes postes ?