Quản lý các mạng Windows dùng script - Phần 7: Xử lý sự cố lỗi Trong bài viết trước chúng ta đã dùng đến kịch bản được phát triển trước đó và đã sử dụng nó để thay đổi địa chỉ IP trên máy tính từ xa. Đây là những gì mà chúng ta đã thay đổi kịch bản: Option Explicit Dim objWMIService Dim objNetAdapter Dim strComputer Dim strAddress Dim arrIPAddress Dim arrSubnetMask Dim colNetAdapters Dim errEnableStatic If = 0 Then "Usage: new_IP_address" End If strComputer = "xp2" strAddress = (0) arrIPAddress = Array(strAddress) arrSubnetMask =. | Quản lý các mạng Windows dùng script - Phần 7 Xử lý sự cố lỗi Trong bài viết trước chúng ta đã dùng đến kịch bản được phát triển trước đó và đã sử dụng nó để thay đổi địa chỉ IP trên máy tính từ xa. Đây là những gì mà chúng ta đã thay đổi kịch bản Option Explicit Dim objWMIService Dim objNetAdapter Dim strComputer Dim strAddress Dim arrIPAddress Dim arrSubnetMask Dim colNetAdapters Dim errEnableStatic If 0 Then Usage new_IP_address End If strComputer xp2 strAddress 0 arrIPAddress Array strAddress arrSubnetMask Array Set objWMIService GetObject winmgmts strComputer root cimv2 Set colNetAdapters Select from Win32_NetworkAdapterConfiguration where IPEnabled TRUE For Each objNetAdapter in colNetAdapters errEnableStatic obj arrIPAddress arrSubnetMask Next Dòng strComputer xp2 cho chúng ta biết rằng máy tính được tích hợp bởi kịch bản có tên XP2. Máy tính điều khiển xa XP2 ban đầu có địa chỉ IP là . Bây giờ khi chúng ta chạy kịch bản này bằng cách đánh từ một máy trạm quản lý có tên là XP những thứ xảy ra được đưa ra dưới đây 1. Kịch bản đã hoạt động. Ví dụ địa chỉ của XP2 đã thay đổi từ thành . 2. Kịch bản cần đến nhiều thời gian để thực thi 3. Kịch bản trả lại lỗi dưới đây C tools 23 6 SWbemObjectEx The remote procedure call failed. Làm thế nào chúng ta có thể giải quyết được các kết quả đó
