기 타 VB.net 으로 DNS가 안바뀌는데요
2023.03.05 01:12
vb.net 소스를 보고 공부하면서 IP변경 프로그램을 만드는데요 리스트뷰에
컴퓨터이름 컴퓨터IP SubNet Gateway 주DNS 보조DNS
회사-1 123.123.123.123 255.255.255.0 123.123.123.1 1.1.1.1 4.4.4.4
회사-2
회사-3......
이런식으로 있는데 리스트뷰에서 선택하고 버튼1을 클릭하면 IP, subnet, gateway는 바뀌는데
주DNS와 보조DNS는 바뀌지 않고 비어있네요 어떻게 수정하면 될까요? 소스는 아래처럼 되있던데
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ListView1.SelectedItems.Count > 0 Then
Dim selected As ListViewItem = ListView1.SelectedItems(0)
Dim ip As String = selected.SubItems(1).Text
Dim subnet As String = selected.SubItems(2).Text
Dim gateway As String = selected.SubItems(3).Text
Dim primaryDNS As String = selected.SubItems(4).Text
Dim secondaryDNS As String = selected.SubItems(5).Text
Try
Dim process As Process = New Process()
Dim startInfo As ProcessStartInfo = New ProcessStartInfo()
startInfo.FileName = "netsh"
startInfo.Arguments = "interface ip set address name=""이더넷"" static " + ip + " " + subnet + " " + gateway
startInfo.Verb = "runas"
process.StartInfo = startInfo
process.Start()
process.WaitForExit()
' DNS 서버 설정
Dim dnsProcess As Process = New Process()
Dim dnsStartInfo As ProcessStartInfo = New ProcessStartInfo()
dnsStartInfo.FileName = "netsh"
dnsStartInfo.Arguments = "interface ip set dns name=""이더넷"" static " + primaryDNS
If Not String.IsNullOrEmpty(secondaryDNS) Then
dnsStartInfo.Arguments += " " + secondaryDNS
End If
dnsStartInfo.Verb = "runas"
dnsProcess.StartInfo = dnsStartInfo
dnsProcess.Start()
dnsProcess.WaitForExit()
MessageBox.Show("변경되었습니다.")
Catch ex As Exception
MessageBox.Show("에러가 발생했습니다.: " + ex.Message)
End Try
Else
MessageBox.Show("리스트에서 하나를 선택해 주세요.")
End If
End Sub
번호 | 제목 | 글쓴이 | 조회 | 등록일 |
---|---|---|---|---|
[공지] | 질문과 답변 게시판 이용간 유의사항 | gooddew | - | - |
96547 | 소프트웨어| Emeditor 정규식 치환 질문입니다. [2] | 파풍초 | 84 | 03-31 |
96546 | 윈 도 우| 윈11설치 문제입니다 [2] | 프리티맨 | 406 | 03-31 |
96545 | 모 바 일| S7 Edge G935k Magisk core 패치를 위한 자료 좀 부탁드려... [3] | 익명 | 128 | 03-31 |
96544 | 윈 도 우| AutoUnattend-User 로 설치시 사용자 이름 수동 입력 [3] | 타천사둘리 | 269 | 03-31 |
96543 | 윈 도 우| 폐쇄망 환경에서 윈도우10 1903에서 22H2로 업데이트 할 수... [57] | 엉으 | 512 | 03-31 |
96542 | 소프트웨어| WD 레드 플러스 하드 초기화가 안 돼요 [2] | 카이존 | 268 | 03-31 |
96541 | 소프트웨어| ventoy 하단 메뉴 옮기는 방법좀... [2] | 레드2 | 209 | 03-31 |
96540 | 기 타| 챗GPT 회원가입이 안됩니다. [4] | billy | 644 | 03-30 |
96539 | 소프트웨어| pure player 를 쓰는데 설정 관련 질문 [1] | nhk | 189 | 03-30 |
96538 | 하드웨어| 램 사양은 동일하고 용량만 다를 때 문제점? [7] | nare314 | 577 | 03-30 |
96537 | 소프트웨어| 엑셀에서 상단의 파일이름에 전체경로가 나오게 하는 방법? [7] | brucex | 475 | 03-30 |
96536 | 기 타| 아임푸 목력이 이리됐습니다 [4] | nissan | 271 | 03-30 |
96535 | 소프트웨어| 벤토이 부팅 [6] | 구름비 | 647 | 03-30 |
96534 | 소프트웨어| 유튜브 음량 초기화 문제 [2] | 오두막과시 | 253 | 03-30 |
96533 | 하드웨어| M.2 PCI-e NVMe SSD 관련 구입 문의 [14] | 강남역5번 | 413 | 03-30 |
96532 | 소프트웨어| iso 이미지 만들때 긴 이름 사용법은 있나요. [4] | 이슬 | 273 | 03-30 |
96531 | 기 타| 레이스 프리즘 쿨러 라이젠 3600 컴퓨터에 장착할수나요 [3] | 은하손책 | 153 | 03-30 |
96530 | 하드웨어| SSD 구매할때 D램 여부를 정확하게 알 수 있는 곳이 있을까요? [7] | 최동안 | 665 | 03-30 |
96529 | 윈 도 우| 윈도우 10 자체 백업기능 [3] | 스파파파파파 | 487 | 03-29 |
96528 | 소프트웨어| 디스크 전체 복구 이미지 만드는 프로그램 추천좀 부탁드려요 [1] | 까탈쟁이 | 392 | 03-29 |
도스모드에서 해 보세요. 확인부터 해 보시면 어떨지요..