기 타 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 | - | - |
96420 | 기 타| You Tube 홈페이지 [2] | 쟁고 | 627 | 03-17 |
96419 | 기 타| 푸바 등 음악앱에서 소리가 나질 않습니다. [2] | 클리엔테스 | 302 | 03-17 |
96418 | 서버 / IT| 노트북 선택 부탁드립니다. [11] | nabbiriri | 429 | 03-17 |
96417 | 모 바 일| 휴대폰의 wifi ip를 192.168.0.5로 강제로 지정하는 방법이... [4] | brucex | 512 | 03-17 |
96416 | 기 타| 하드디스크 실사용 시간 믿을만 한가요? [2] | 센쥬리 | 444 | 03-17 |
96415 | 하드웨어| USB3.0을 느리게 꼽으면 2.0? [5] | 타니카스민 | 666 | 03-17 |
96414 | 윈 도 우| 알지 못하는 페이지가 자꾸 열립니다. [3] | 자비 | 546 | 03-17 |
96413 | 소프트웨어| 7-zip 압축 프로그램 사용법 문의입니다. [2] | 이슬 | 319 | 03-17 |
96412 | 윈 도 우| 키보드캡쳐가 안되요. [3] | RichMAN | 313 | 03-17 |
96411 | 윈 도 우| 윈도우 자동 설치 스크립트 관련 질문 [2] | ehdsp@ | 260 | 03-17 |
96410 | 기 타| 노트북에서 인텔 칩셋 드라이버 업데이트 관련 질문입니다. [10] | 루시드림 | 594 | 03-16 |
96409 | 소프트웨어| Emeditor 정규식 질문입니다. [4] | 파풍초 | 163 | 03-16 |
96408 | 소프트웨어| 한글에서 이상한 회색박스가 안지워지네요 [5] | 『ⓖⓤⓝ』 | 618 | 03-16 |
96407 | 기 타| 웹 용 아웃룩 도구모음이 사라졌어요... | 모래시계빵 | 135 | 03-16 |
96406 | 소프트웨어| Q-Dir관련 문의 | nabbiriri | 294 | 03-16 |
96405 | 윈 도 우| 휴대폰과연결앱에 대해 문의드립니다. [9] | 금황 | 395 | 03-16 |
96404 | 윈 도 우| 윈도우 업데이트 이후 엣지 bing 로고 문의 [2] | 소금창고 | 456 | 03-16 |
96403 | 윈 도 우| 윈도우 보안센터 오류 관련 질문드립니다. | TTO | 154 | 03-16 |
96402 | 윈 도 우| 바탕화면 기본아이콘 고정 방법 문의 [2] | wxyzb | 259 | 03-16 |
96401 | 소프트웨어| 부팅 usb 삭제 문의 [7] | 강남역5번 | 321 | 03-16 |
도스모드에서 해 보세요. 확인부터 해 보시면 어떨지요..