Cảm ơn chú nhiều, hiện tại cháu cũng chưa test được nên cháu hỏi thêm một ý nữa. Vậy sửa thế này máy của chú đọc ngon chứ vì máy của chú đang khác của cháu và sửa như vậy liệu system ở mỗi máy khác nhau ngày trước tháng sau hay tháng trước ngày sau, 1 số hoặc 2 số v.v.. thì có vấn đề gì không chú?
Nếu máy của bạn thiết lập là MM/dd/yyyy h:m:s mà máy trong cùng mạng lại có thiết lập là vd. dd.MM.yyyy hh:mm:ss thì rõ ràng có vấn đề rồi.
Vâng cháu cảm ơn chú.
Ta thử lần cuối. Nếu không thành công thì bạn chờ người khác, hoặc lập chủ đề mới.
Function ngaygioWMI(ByVal computer As String) As Double
Dim wmi As Object, items As Object, item As Object
Set wmi = GetObject("winmgmts:\\" & computer & "\root\cimv2")
Set items = wmi.ExecQuery("Select * from Win32_LocalTime")
For Each item In items
ngaygioWMI = DateSerial(item.Year, item.Month, item.Day) + TimeSerial(item.Hour, item.Minute, item.Second)
Exit For
Next
End Function
Sub test()
Dim ngaythang As Double
ngaythang = ngaygioWMI("desktop-13iclt9")
Sheet1.Range("A1").Value = CDate(ngaythang)
End Sub
Tôi không biết nguyên nhân. Cả đời tôi cũng chưa bao giờ thao tác với mạng nội bộ.
hiện cháu cũng chưa biết tên máy tính đó là gì , để cháu test trên máy khác được hay không cháu sẽ thông tin lại sau chú nhé.
Chú ơi,cháu đã thử thay địa chỉ IP bằng tên máy tính, với câu lệnh Net Time thì OK, nhưng với câu lệnh WMI thì lỗi "Permission denied",chú xem có cần điều chỉnh gì thêm không?
Dùng IP 127.0.0.1 xem có được không( địa chỉ này là ko của chính máy chạy code. Ko được là code cần chỉnh lại). Hình như phải cấu hình bên máy kia mới được
Hôm qua cháu thử dùng powershell nhưng thất thủ.
Tôi cũng chả bao giờ dùng nên không nghiên cứu. Bạn tự tìm trong google vd. WMI Permission denied nhé.
