Möjligtvis ska den här ligga i porgrammering övrigt, en med tanke på att det rör windows så provar jag här.
Jaja, jag skulle vilja skapa en batch-fil där jag skulle kunna ändra ip-t til min gateway från 192.168.1.1 till 192.168.1.254 och tillbaks utan att behöva öppna egenskaperna för nätverket. Någon idé?
Tveksamt om det går att fixa med en vanlig BAT-fil. Om du kör en plattform där WMI ingår (ME, 2000, XP) så kan du istället göra så här:
1. Öppna anteckningar.
2. Klistra in innehållet:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strGateway = Array("192.168.1.254")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errGateways = 0 Then
WScript.Echo "Gatewayn har ändrats till 192.168.1.254."
Else
WScript.Echo "Gatewayn kunde inte ändras."
End If
Next
3. Spara filen med ändelsen ".vbs".
Du kan nu byta gateway genom att dubbelklicka på filen. Sen kan du ju skapa ytterligare en fil som du använder när du vill byta tillbaka.
Det var inteför mig den var, utan en kompis.
Han har bara ett nätverkskort. Går det inte att lösa så att man bara har en vbs -fil och den byter mellan dem?
OM det funkar hos dig så bör det ju funka hos honom också, han kör svenskt winxp home.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
if objNetAdapter.DefaultIPGateway(0)="192.168.1.1" then
strGateway = Array("192.168.1.254")
else
strGateway = Array("192.168.1.1")
end if
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errGateways = 0 Then
WScript.Echo "Gatewayn har ändrats till " & strGateway(0) & "."
Else
WScript.Echo "Gatewayn kunde inte ändras."
End If
Next
colione skrev:
OM det funkar hos dig så bör det ju funka hos honom också, han kör svenskt winxp home.
Antagligen, men man vet aldrig. Jag kör engelskt 2000.
Om du vill så kan du även skapa två REG-filer. Sådana som ändrar registret direkt, som du vet. :)
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{[b]Ersätt med ditt GUID-nummer[/b]}]
"DefaultGateway"="192.168.1.254"
samt en fil med (naturligtvis):
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{[b]Ersätt med ditt GUID-nummer[/b]}]
"DefaultGateway"="192.168.1.1"
