kiendumuc
07-03-2011, 11:27
Xin nói trước là mình không biết một tý gì về VBS, nên không tránh khỏi hỏi một vài vấn đề củ chuối, mong các bạn thông cảm.
Vấn đề của mình là thế này, mình có một đoạn scrip để kiểm tra xem dây mạng có bị rút hay không:
------------
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("Select * from MSNdis_StatusMediaDisconnect")
Do While True
cscript network.vbs >> c:\scripts\log.txt
Set strLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo "Không có kết nối Internet, vui lòng kiểm tra modem hoặc gọi phòng IT"
WScript.Echo strLatestEvent.InstanceName, Now
Loop
------------
Vấn đề đặt ra là, làm sao để sau khi hiện thông báo, nó sẽ được ghi vào một file log?
Xin cảm ơn các bạn đã quan tâm. Thân!
Vấn đề của mình là thế này, mình có một đoạn scrip để kiểm tra xem dây mạng có bị rút hay không:
------------
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("Select * from MSNdis_StatusMediaDisconnect")
Do While True
cscript network.vbs >> c:\scripts\log.txt
Set strLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo "Không có kết nối Internet, vui lòng kiểm tra modem hoặc gọi phòng IT"
WScript.Echo strLatestEvent.InstanceName, Now
Loop
------------
Vấn đề đặt ra là, làm sao để sau khi hiện thông báo, nó sẽ được ghi vào một file log?
Xin cảm ơn các bạn đã quan tâm. Thân!