Lära automatiskt att ställa in en IP-adress för att rotera med hjälp av Visual Basic for Applications är inte så svårt som du kanske tror . Netsh.exe är ett verktyg som kan användas för att konfigurera datorer med Windows kommandotolk . Netsh.exe kan användas för att ändra en IP-adress när rotationen behövs. Den " Shell " -funktionen används i VBA för att köra ett körbart program , t.ex. kommandotolken för att exekvera Netsh.exe . Saker du behöver
Microsoft Office Excel
Visa fler instruktioner
1
Launch Microsoft Office Excel , klickar på " Utvecklare " fliken och klicka på " Visual Basic " för att öppna VBA Editor .
2
Klicka på " infoga " -menyn och klicka på " modul " för att infoga en ny kod modul .
3
Lägg till följande kod skapa en ny sub förfarande :
Private sub rotateIPAddress ( )
4
Definiera två strängvariabler :
Dim dosCommand Som StringDim ipadress As String
5
Ställ in IP -adress du vill använda genom att lägga till följande kodrad :
ip = " 192.168.0.200 "
6
Definiera kommandot ändra IP -adress :
dosCommand = " netsh interface ip set dns " & Chr ( 34 ) & " NIC Name " & Chr ( 34 ) & " static " & ipadress
7
Kör kommandot med " Shell " -kommandot :
Shell ( " cmd.exe /c " & dosCommand )
8
Skriv " End Sub " för att avsluta din sub förfarande och tryck på " F5 " för att köra den . Addera
