기 타 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 | - | - |
96442 | 윈 도 우| pe부팅후 c:\드라이브 윈도우10/11 구분할수 있나요?? [7] | 미니75 | 417 | 03-21 |
96441 | 윈 도 우| 윈11 키로 윈10설치후 인증되나요? [2] | 컴아저씨훈 | 643 | 03-21 |
96440 | 윈 도 우| 윈도우 10 동기화 해제 [3] | RichMAN | 348 | 03-21 |
96439 | 윈 도 우| 와이파이 연결 명령어는 없을까여? [4] | 한우차돌박 | 445 | 03-21 |
96438 | 소프트웨어| mouse테마 빨간거 찾습니다 [9] | brucex | 302 | 03-21 |
96437 | 윈 도 우| Microsoft 파트너 ID 만들려고 합니다 | 지룡자 | 150 | 03-21 |
96436 | 윈 도 우| win11에서 파일 이동시 | 선실 | 263 | 03-20 |
96435 | 윈 도 우| 즐겨찾기 배경 문의 [2] | 강남역5번 | 250 | 03-20 |
96434 | 윈 도 우| win10 -> win11로 업데이트후 c드라이브 파티션이 지저... [6] | 꿈이아닌기 | 611 | 03-20 |
96433 | 하드웨어| 무선랜카드 추천좀 부탁드립니다! | 易모地뗀思 | 189 | 03-20 |
96432 | 하드웨어| msata ssd M5 TYPE 외장 하드 케이스 추천 부탁 드립니다 [10] | 한아름 | 425 | 03-20 |
96431 | 모 바 일| 삼성테블릿 S/SM-T805S/넓은10.4인치 [2] | 농부 | 442 | 03-19 |
96430 | 윈 도 우| pe 에서 로컬 디스크 안보이는 문제 [5] | 알마타 | 585 | 03-19 |
96429 | 소프트웨어| 네이버 웨일 최신설치버전과포터블있는곳좀 알려주세요 [2] | 드래곤 | 328 | 03-19 |
96428 | 하드웨어| 메인보드 CR2032 배터리 수명? 질문 드립니다. [11] | 과불급 | 1126 | 03-19 |
96427 | 서버 / IT| 유선 인터넷 속도가 너무 느려요.. 왜 그럴까요? [4] | 하늘참맑다 | 942 | 03-19 |
96426 | 소프트웨어| Topaz Video AI 한글 버전은 없나요? [1] | Pureunsan | 416 | 03-18 |
96425 | 소프트웨어| Emeditor 정규표현식 역참조로 이메일 주소 질문입니다. [2] | 파풍초 | 190 | 03-18 |
96424 | 윈 도 우| 로컬 보안기관 보호가 꺼져있다고 나옵니다. [4] | 곰됴이 | 834 | 03-18 |
96423 | 소프트웨어| VHD 사용중에 질문이 있습니다. [2] | 추추추 | 335 | 03-18 |
도스모드에서 해 보세요. 확인부터 해 보시면 어떨지요..