Script til at ændre min netværksopsætning?

Tjooo :)

' WMI Sample Script - Enable DHCP on adapter (VBScript)
'
' This script demonstrates how to enable DHCP use on an instance of
' Win32_NetworkAdapterConfiguration. In this case we specify the adapter
with an Index
' of 0. The correct index should be selected from Win32_NetworkAdapter
instances for other
' interfaces.
'
' Supported on NT platforms only
'
'*************************************************
**************************
Set Adapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=0")

RetVal = Adapter.EnableDHCP()

if RetVal = 0 then
WScript.Echo "DHCP Enabled"
else
WScript.Echo "DHCP enable failed"
end if


//>Rune

Ja, men jeg skal også have det til at ændre min IP om til 10.10.10.2 med subnet mask når det slår det fra...

Det er for at undgå at jeg skal ind i min netværks opsætning og skal til at disable og så enable mit netkort hele tiden hvis jeg skifter fra lokal til TDC ADSL

-----Static------
strComputer = "hindu"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("10.10.10.2")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("10.10.10.1")
strGatewayMetric = Array(1)
strDNSServers=Array("10.10.10.1")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNSSErvers = objNetAdapter.SetDNSServerSearchOrder(strDNSServers)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next

----Dynamic----
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

Oijh, du skal lige rette:
strComputer = "hindu"
til
strComputer = "."

(Skulle lige prøve at skifte ip over netværk)

Det er sgu for sejt.
Det virker fanme.. Pardon my frence.

Kan du umiddelbart finde ud af at smelte det sammen til et script?

Hvis DHCP Then
  IP 10.10.10.1
Hvis IP 10.10.10 Then
  DHCP
End If

sådan at jeg kun skal have eet script jeg bare aktivere?

Jeg kan ikke selv skrive vbs (fandt det der på microsoft's side), men jeg kan lave en batch fil, som som kører den statiske fil, hvis din nuværende IP er tildelt fra DHCP, og omvendt

Jamen, det må du da gerne lave hvis du vil

Det her bør virke. Du gemmer det bare i en *.bat fil og ligger samme sted som de 2 andre filer...

@echo off
ipconfig /all | find "DHCP Server" >nul
if errorlevel 1 goto dhcp
if not errorlevel 1 goto static

:dhcp
call dhcp.txt
goto end

:static
call static.txt
goto end

:end

hindu_skp>> de to filer dhcp.txt og static.txt er jo VBscript-programmer.
De skal hedde dhcp.vbs og static.vbs

jajaja....

testede med txt filer ;)

hundu>

Ligger du lige et svar?

Svar