[win98] 100xVan statische IP naar DHCP*

[Tweak-a-holic]

Ik moet 100 win98 systemen overzetten naar DHCP, maar om deze nu allemaal 1 voor 1 te gaan overzetten is wel erg veel werk. Nu heb ik wel een mogelijkheid gevonden om dit te doen met een loginscript, maar nou wil windows 98 deze instelling wel maken. Maar nu wil ik de DNS en WINS ook laten bepalen door de DHCP server, maar ik krijg het niet voor elkaar om deze ook in te stellen door een loginscript of DHCP. Is er iemand die dit al een eerder heeft gedaan of weet hoe dit moet?

[InSPiRE]

Als je je clients op DHCP heb staan kun je toch op je DHCP server de diverse opties meegeven voor het instellen van default gatway/DNS/WINS/router etc? Volgens mij zie je iets over het hoofd hier

[Verwijderd]

rAcEr schreef op 15 januari 2003 @ 17:43:
Als je je clients op DHCP heb staan kun je toch op je DHCP server de diverse opties meegeven voor het instellen van default gatway/DNS/WINS/router etc? Volgens mij zie je iets over het hoofd hier

Deze opties kun je inderdaad meegeven met DHCP. Alleen de clients via het loginscript op DHCP zetten is volgens mij niet mogelijk. Of je zou al een registy key automatisch moeten importeren oid..

[Verwijderd]

dmv DHCP worden deze gegevens meegegeven, maar doordat op de 100 systemen deze instellingen ook nog eens staan ingesteld hebben deze ingestelde instellingen voorrang boven de instellingen van de DHCP server.

Prioriteit 0 heeft voorrang boven prioriteit1:

code:

Nu:             Machine       DHCP      
IP                 0                    /
DNS1            0                    /
DNS2            0                    /
WINS1          0                    /
WINS2          0                    /

Script:         Machine       DHCP      
IP                 1                    0
DNS1            0                    /
DNS2            0                    /
WINS1          0                    /
WINS2          0                    /

Bedoeling:   Machine       DHCP      
IP                 1                    0
DNS1            1                    0
DNS2            1                    0
WINS1          1                    0
WINS2          1                    0

Kortom, topicstarter wil dat de ingestelde settings de settings van de DHCP server niet overriden.

[Tweak-a-holic]

Ik verander de registry key met het loginscript, nu krijgt ie dus een ip toegewezen van de server, alleen heeft hij voor dns en wins etc vast waarden nog staan. Maar nu heb ik een btje gezocht en geprutst met het registry en volgens mij ben ik er ook al wel uit hoe ik de DNS op DHCP zet.. Maar mocht er iemand zijn die weet hoe dit moet of dit al x gedaan heeft, ik hoor het errug graag.

[Verwijderd]

als je wilt/kunt, zou je dan mits het script niet te groot is het willen posten (desnoods gecensureerd indien nodig)?
Kan handig zijn, en aangezien GoT toch min of meer een kennisbank is...

niet (moreel) verplicht uiteraard, maar t kan handig zijn voor anderen die tegen hetzelfde probleem oplopen.

[Tweak-a-holic]

Hieronder het uiteindelijke script...

[ Voor 98% gewijzigd door Tweak-a-holic op 16-01-2003 15:18 ]

[Tweak-a-holic]

Dit is wat we nu hebben gebruikt, het werkt hier (win98 Prima....) Alles word nu bepaalt door de DHCP (mits je dat ingesteld hebt).. Je kunt hem runnen door in je dos command "cscript.exe {pad en bestand}" te runnen.. Khoop dat ie voor andere mensen ook werkt

code:

Dim WSHShell, NList, N, IPAddress, IPMask, IPValue, RegLoc, Regloc2,
 DefaultGateway, EnableDNS, Nodetype
Set WSHShell = WScript.CreateObject("WScript.Shell")
   NList = array("0000","0001","0002","0003","0004","0005","0006", _
                 "0007","0008","0009","0010")

   On Error Resume next
   RegLoc = "HKLM\System\CurrentControlSet\Services\Class\NetTrans\"
   Regloc2= "HKLM\System\CurrentControlSet\Services\VxD\MSTCP"   

    For Each N In NList
       IPValue = ""      
       IPAddress = RegLoc & N & "\IPAddress"
       IPMask = RegLoc & N & "\IPMask"
       NodeType = RegLoc & N & "\NodeType"
       EnableDNS = RegLoc2 & "\EnableDNS"
       Nameserver1 = RegLoc & N & "\NameServer1"
       DefaultGateway = RegLoc & N & "\DefaultGateway"
       IPValue = WSHShell.RegRead(IPAddress)
     
   If (IPValue <> "") and (IPValue <> "0.0.0.0") then
       WshShell.Popup ("Bericht.") 
       WSHShell.RegWrite IPAddress,"0.0.0.0"
       WSHShell.RegWrite IPMASK,"0.0.0.0"
       WSHshell.RegWrite DefaultGateway,"0.0.0.0"
       WSHshell.RegWrite EnableDNS, "0"
       WSHshell.Regwrite Nameserver,""     
       WshShell.RegDelete NodeType
       WshShell.RegDelete NameServer1
   end If
   
Next
WScript.Quit

[ Voor 19% gewijzigd door Tweak-a-holic op 16-01-2003 15:17 ]

[SH007]

Ik pas de topictitel even wat aan...

[Tweak-a-holic]

sgoed..

[Verwijderd]

Heb het zelfde probleem:,

Ik Probeer deze te gebruiken,,

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
If errEnable = 0 Then
Wscript.Echo "DHCP has been enabled."
Else
Wscript.Echo "DHCP could not be enabled."
End If
Next


Maar deze werkt niet voor Windows 9x machines.

En TaH, dat script van jouw geeft de melding expected ident. of doe ik iets fout ?

[Tweak-a-holic]

Ik heb hem gedraait bij ons +/- 80 van de 100 systemen waren hiermee op DHCP gezet, alleen de systemen die ook een modem hadden kregen dit niet mee...., er zitten een aantal "breaks" in die ik erin heb gedrukt omdat ie anders niet echt op het forum paste.. Teveel ruimte maar de

code:

Dim WSHShell, NList, N, IPAddress, IPMask, IPValue, RegLoc, Regloc2,
 DefaultGateway, EnableDNS, Nodetype

is 1 regel... Misschien dat ie het daarop niet helemaal trekt.. Anders weet ik het ook niet.