Cài Đặt IP Máy Tính Bằng Code

Kiều Mạnh · 24/7/17

Mình đang Tìm cách cài đặt IP Máy tính bằng code chạy từ Excel mà chưa Nghỉ ra được .... Tìm trên GPE hoài mà chưa thấy ..... vậy mình muốn hỏi có cách nào Cài đặt IP máy tính theo Hình sau Bằng Code
Bạn nào biết xin chỉ dùm

ndu96081631 · 24/7/17

kieu manh đã viết:
Mình đang Tìm cách cài đặt IP Máy tính bằng code chạy từ Excel mà chưa Nghỉ ra được .... Tìm trên GPE hoài mà chưa thấy ..... vậy mình muốn hỏi có cách nào Cài đặt IP máy tính theo Hình sau Bằng Code
Bạn nào biết xin chỉ dùmView attachment 180287

Chắc kiểu thế này:

Mã:

Private Sub SetIp(nwName As String, varIp As String, varSm As String, _
                 varGw As String, varDNS1 As String, varDNS2 As String)
  Dim sComm1 As String, sComm2 As String, sComm3 As String, sComm4 As String
  On Error Resume Next
  sComm1 = "netsh interface ip set address name=""" & nwName & """ source=static addr=" & varIp & " mask=" & varSm
  sComm2 = "netsh interface ip set address name=""" & nwName & """ gateway=" & varGw & " gwmetric=0"
  sComm3 = "netsh interface ip set dns name=""" & nwName & """  source=static addr=" & varDNS1
  sComm4 = "netsh interface ip add dns name=""" & nwName & """ addr=" & varDNS2
  With CreateObject("Wscript.Shell")
    .Run "cmd /c " & sComm1, 0, True
    .Run "cmd /c " & sComm2, 0, True
    .Run "cmd /c " & sComm3, 0, True
    .Run "cmd /c " & sComm4, 0, True
  End With
  MsgBox "Finish"
End Sub

Với các đối số đầu vào bạn tự truyền vào, chẳng hạn như hình:

Hoặc có thể tạo file .bat với nội dung:

Mã:

Set nwName="Wireless Network Connection"
Set varIp=211.54.133.251
Set varSm=255.255.252.0
Set varGw=211.54.135.253
Set varDNS1=211.54.128.1
Set varDNS2=211.54.135.251

netsh interface ip set address name=%nwName% source=static addr=%varIp%  mask=%varSm%
netsh interface ip set address name=%nwName% gateway=%varGw% gwmetric=0
netsh interface ip set dns name=%nwName% source=static addr=%varDNS1% 
netsh interface ip add dns name=%nwName% addr =%varDNS2%

6 dòng trên cùng bạn tự thiết lập

Kiều Mạnh · 24/7/17

ndu96081631 đã viết:

Chắc kiểu thế này:

Mã:

Private Sub SetIp(nwName As String, varIp As String, varSm As String, _
                 varGw As String, varDNS1 As String, varDNS2 As String)
  Dim sComm1 As String, sComm2 As String, sComm3 As String, sComm4 As String
  On Error Resume Next
  sComm1 = "netsh interface ip set address name=""" & nwName & """ source=static addr=" & varIp & " mask=" & varSm
  sComm2 = "netsh interface ip set address name=""" & nwName & """ gateway=" & varGw & " gwmetric=0"
  sComm3 = "netsh interface ip set dns name=""" & nwName & """  source=static addr=" & varDNS1
  sComm4 = "netsh interface ip add dns name=""" & nwName & """ addr=" & varDNS2
  With CreateObject("Wscript.Shell")
    .Run "cmd /c " & sComm1, 0, True
    .Run "cmd /c " & sComm2, 0, True
    .Run "cmd /c " & sComm3, 0, True
    .Run "cmd /c " & sComm4, 0, True
  End With
  MsgBox "Finish"
End Sub

Với các đối số đầu vào bạn tự truyền vào, chẳng hạn như hình:

View attachment 180289

Hoặc có thể tạo file .bat với nội dung:

Mã:

Set nwName="Wireless Network Connection"
Set varIp=211.54.133.251
Set varSm=255.255.252.0
Set varGw=211.54.135.253
Set varDNS1=211.54.128.1
Set varDNS2=211.54.135.251

netsh interface ip set address name=%nwName% source=static addr=%varIp%  mask=%varSm%
netsh interface ip set address name=%nwName% gateway=%varGw% gwmetric=0
netsh interface ip set dns name=%nwName% source=static addr=%varDNS1%
netsh interface ip add dns name=%nwName% addr =%varDNS2%

6 dòng trên cùng bạn tự thiết lập

Em mới lục trên máy Em có File này chắc Code Anh Viết Sao Em chạy không Thấy được ...hay em làm sai cái gì
Sau khi chạy code xong Em dùng File *.vbs kiểm tra vẫn vậy

Kiều Mạnh · 24/7/17

Em coi trong Registry nhánh Sau nó như hình .... hay phải thay đổi trong Registry Mới Ok được Anh
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\

befaint · 24/7/17

Anh @kieumanh thử dùng PowerShell xem sao...

Kiều Mạnh · 24/7/17

befaint đã viết:
Anh @kieumanh thử dùng PowerShell xem sao...

Có bao giờ UAC Mạnh đang kéo lên nó tịt ko ta ...??!!!
Windows7 trở lên có UAC mà .... mạnh thì ko bao giờ kéo xuống

befaint · 24/7/17

kieu manh đã viết:
Có bao giờ UAC Mạnh đang kéo lên nó tịt ko ta ...??!!!
Windows7 trở lên có UAC mà .... mạnh thì ko bao giờ kéo xuống

Anh thử chạy PowerShell ở quyền Administrator rồi config IP xem

ndu96081631 · 24/7/17

kieu manh đã viết:
Em mới lục trên máy Em có File này chắc Code Anh Viết Sao Em chạy không Thấy được ...hay em làm sai cái gì
Sau khi chạy code xong Em dùng File *.vbs kiểm tra vẫn vậy

Có 2 vấn đề cần phải để ý:
1> Connection Name (có thể không phải là "Wireless Network Connection")
2> RunAs Administrator
Để biết thông tin về Connection Name và nhũng thứ khác, bạn làm như sau:
- Bấm tổ hợp phím Windows + R và gõ cmd ---> Enter
- Gõ lệnh NETSH và Enter
- Gõ tiếp Interface IP Show Config và Enter
Còn liên quan đến vụ chạy RunAs thì chắc bạn biết rồi

Kiều Mạnh · 24/7/17

ndu96081631 đã viết:
Có 2 vấn đề cần phải để ý:
1> Connection Name (có thể không phải là "Wireless Network Connection")
2> RunAs Admintrator
Để biết thông tin về Connection Name và nhũng thứ khác, bạn làm như sau:
- Bấm tổ hợp phím Windows + R và gõ cmd ---> Enter
- Gõ lệnh NETSH và Enter
- Gõ tiếp Interface IP Show Config và Enter
Còn liên quan đến vụ chạy RunAs thì chắc bạn biết rồi

Em mới thử nó ra vầy.... Em sử Dụng Cáp Quang Viettel

ndu96081631 · 24/7/17

kieu manh đã viết:
Em mới thử nó ra vầy.... Em sử Dụng Cáp Quang Viettel View attachment 180299

Vậy thì Connection Name là "Local Area Connection"

Kiều Mạnh · 24/7/17

ndu96081631 đã viết:
Vậy thì Connection Name là "Local Area Connection"

Vậy code Em sửa lại khúc nào Anh

ndu96081631 · 24/7/17

kieu manh đã viết:
Vậy code Em sửa lại khúc nào Anh

Thì sửa tham số truyền nwName đấy, cho nó = "Local Area Connection"
---------------------
Trên máy tôi thì tên là "Wi-Fi". Tôi vừa thử chạy lệnh:

Mã:

Set nwName="Wi-Fi"
Set varIp=192.168.1.15
Set varSm=255.255.255.0
Set varGw=192.168.1.1

netsh interface ip set address name=%nwName% source=static addr=%varIp%  mask=%varSm% gateway=%varGw%

PAUSE

Và đã thành công
(đương nhiên RunAs Administrator)

babyheomoi · 24/7/17

Bài này hay quá,e lưu tham khảo!

Kiều Mạnh · 25/7/17

ndu96081631 đã viết:
Thì sửa tham số truyền nwName đấy, cho nó = "Local Area Connection"
---------------------
Trên máy tôi thì tên là "Wi-Fi". Tôi vừa thử chạy lệnh:

Mã:

Set nwName="Wi-Fi" Set varIp=192.168.1.15 Set varSm=255.255.255.0 Set varGw=192.168.1.1 netsh interface ip set address name=%nwName% source=static addr=%varIp% mask=%varSm% gateway=%varGw% PAUSE

Và đã thành công
(đương nhiên RunAs Administrator)

Máy Em cũng vậy chạy thành công Run As ....
Em muốn hỏi có cách nào ta viết code kiểm tra được nếu là "Wi-Fi" thì Set nwName="Wi-Fi" khác thì là Set nwName="Local Area Connection"
Không Anh .............ý Em muốn hỏi viết thành hàm Bao quát nhất xài cho 2 trường hợp đó

Cảm ơn Anh

befaint · 25/7/17

kieu manh đã viết:
Máy Em cũng vậy chạy thành công Run As ....
Em muốn hỏi có cách nào ta viết code kiểm tra được nếu là "Wi-Fi" thì Set nwName="Wi-Fi" khác thì là Set nwName="Local Area Connection"
Không Anh .............ý Em muốn hỏi viết thành hàm Bao quát nhất xài cho 2 trường hợp đó

Cảm ơn Anh

Thử cái này được không anh

PHP:

Sub vidu()
Dim sCmd As String, ConnName As String, strTMP
sCmd = "CMD /C powershell Get-NetIPConfiguration | clip"  
'CreateObject("WScript.Shell").Run sCmd, 0, True '
Shell sCmd, vbHide
strTMP = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
strTMP = Split(strTMP, Chr(13))
For i = LBound(strTMP) To UBound(strTMP)
    If InStr(strTMP(i), ":") Then
        ConnName = Trim(Split(strTMP(i), ":")(1))
        Exit For
    End If
Next i
MsgBox ConnName
End Sub

Kiều Mạnh · 25/7/17

befaint đã viết:

Thử cái này được không anh

PHP:

Sub vidu()
Dim sCmd As String, ConnName As String, strTMP
sCmd = "CMD /C powershell Get-NetIPConfiguration | clip" 
'CreateObject("WScript.Shell").Run sCmd, 0, True '
Shell sCmd, vbHide
strTMP = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
strTMP = Split(strTMP, Chr(13))
For i = LBound(strTMP) To UBound(strTMP)
    If InStr(strTMP(i), ":") Then
        ConnName = Trim(Split(strTMP(i), ":")(1))
        Exit For
    End If
Next i
MsgBox ConnName
End Sub

Không được và chạy rất chậm
Bài 12 Anh ndu viết Ok đó nhưng Nó thiếu theo Hình màu vàng Vì chưa viết thêm vào .... Mạnh chưa hiểu chỗ đó lắm không biết có liên quan gì không
nếu chạy File *.bat sau thì nó sẻ thêm vào đó ..... vấn đề là Mạnh muốn nghiên cứu Viết thành code chạy trong Excel cho 2 Trường hợp Sau trong 1 Hàm
1/ Wireless Network Connection
2/ Local Area Connection

befaint · 25/7/17

kieu manh đã viết:
Không được và chạy rất chậm

Hic! Em thử với WScript.Shell thì chậm với shell function thì không chậm

Cái sub của em là để lấy Connection Name đang được kết nối mạng.

Kiều Mạnh · 25/7/17

befaint đã viết:
Hic! Em thử với WScript.Shell thì chậm với shell function thì không chậm
Cái sub của em là để lấy Connection Name đang được kết nối mạng.

oh mới thử lại hiểu rồi ....Sao chay hồi nảy chạy chậm ko hiểu
Sub đó lấy được trường hợp 1 hay 2 xong viết thêm Hàm mới Gán nó vào là Ok .... Nhưng code viết sao đây ...???!!!

befaint · 25/7/17

kieu manh đã viết:
oh mới thử lại hiểu rồi ....Sao chay hồi nảy chạy chậm ko hiểu

Anh thử lại khúc này xem.

PHP:

Sub vidu()
Dim sCmd As String, ConnName As String, strTMP
Dim pText As String, delpath As String
pText = ThisWorkbook.Path & "\oText.txt"
delpath = "CMD /C DEL /f /q """ & pText & """"
sCmd = "CMD /C powershell Get-NetIPConfiguration > " & pText
Shell delpath, vbHide
Shell sCmd, vbHide
strTMP = CreateObject("Scripting.FileSystemObject").OpenTextFile(pText).ReadAll()
Shell delpath, vbHide
strTMP = Split(strTMP, Chr(13))
For i = LBound(strTMP) To UBound(strTMP)
    If InStr(strTMP(i), ":") Then
        ConnName = Trim(Split(strTMP(i), ":")(1))
        Exit For
    End If
Next i
MsgBox ConnName
End Sub

Em dùng SSD nên cứ chạy 2 lần liên tiếp gần nhau thì 1 lần bị lỗi

ở dòng strTMP = CreateObject("Scripting.FileSystemObject").OpenTextFile(pText).ReadAll()

Sub đó lấy được trường hợp 1 hay 2

Cứ cái nào đang kết nối thì lấy cái đó á anh.

Kiều Mạnh · 25/7/17

befaint đã viết:
Anh thử lại khúc này xem.

PHP:

Sub vidu() Dim sCmd As String, ConnName As String, strTMP Dim pText As String, delpath As String pText = ThisWorkbook.Path & "\oText.txt" delpath = "CMD /C DEL /f /q """ & pText & """" sCmd = "CMD /C powershell Get-NetIPConfiguration > " & pText Shell delpath, vbHide Shell sCmd, vbHide strTMP = CreateObject("Scripting.FileSystemObject").OpenTextFile(pText).ReadAll() Shell delpath, vbHide strTMP = Split(strTMP, Chr(13)) For i = LBound(strTMP) To UBound(strTMP) If InStr(strTMP(i), ":") Then ConnName = Trim(Split(strTMP(i), ":")(1)) Exit For End If Next i MsgBox ConnName End Sub

Em dùng SSD nên cứ chạy 2 lần liên tiếp gần nhau thì 1 lần bị lỗi ở dòng strTMP = CreateObject("Scripting.FileSystemObject").OpenTextFile(pText).ReadAll()

Cứ cái nào đang kết nối thì lấy cái đó á anh.

Chạy lỗi .......... Link sau có các Lệnh liên quan hay Tuy nhiên coi khúc biết khúc ko
https://ss64.com/nt/netsh.html

Cài Đặt IP Máy Tính Bằng Code

I don't program, I beat code into submission!!!

Huyền thoại GPE

I don't program, I beat code into submission!!!

File đính kèm

I don't program, I beat code into submission!!!

|||||||||||||

I don't program, I beat code into submission!!!

|||||||||||||

Huyền thoại GPE

I don't program, I beat code into submission!!!

Huyền thoại GPE

I don't program, I beat code into submission!!!

Huyền thoại GPE

Thành viên thường trực

I don't program, I beat code into submission!!!

|||||||||||||

I don't program, I beat code into submission!!!

File đính kèm

|||||||||||||

I don't program, I beat code into submission!!!

|||||||||||||

I don't program, I beat code into submission!!!

Facebook

Group