- Bạn copy đoạn code trong khung bên dưới dán vào Notepad và lưu lại với phần mở rộng là *.vbs, ở đây tôi lưu với tên: ChangeIPAddress.vbs
strComputer = "."
arrIPAddress = Array("172.16.11.100")
arrSubnetMask = Array("255.255.255.0")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration")
For Each objNetAdapter in colNetAdapters
errEnableStatic = objNetAdapter.EnableStatic(arrIPAddress, arrSubnetMask)
Next
arrIPAddress = Array("172.16.11.100")
arrSubnetMask = Array("255.255.255.0")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration")
For Each objNetAdapter in colNetAdapters
errEnableStatic = objNetAdapter.EnableStatic(arrIPAddress, arrSubnetMask)
Next
- Sau đó nhấp kép chuột script ChangeIPAddress.vbs để chạy , hoặc bạn mở Command Promp với vai trò administrator chuyển tới thư mục lưu file script và chạy script đó. Rồi chạy lệnh "ipconfig" để kiểm tra kết quả.
