Hỏi Thông tin ổ cứng (1 người xem)

[vova2209]

1.------------------------------------------------------------
Option Explicit
Function SerialODia()
Dim ObjetoWMI As Object
Dim Disco As Object
Dim Discos As Object
Dim abc
Set ObjetoWMI = GetObject("WINMGMTS:")
Set Discos = ObjetoWMI.InstancesOf("Win32_PhysicalMedia")
abc = ""
For Each Disco In Discos
abc = Disco.SerialNumber
If Len(Trim(abc)) > 0 Then
Exit For
End If
Next
SerialODia = Trim(abc)
End Function
2.--------------------------------------------------------------
Public Sub DKList()

Dim madk As String
madk = SerialODia()
If madk = "JP0240HL3TJK0H" Then
Application.StatusBar = "GPE"
Else
Application.Calculation = xlCalculationManual
MsgBox "sai"
Exit Sub
End If

End Sub
------------------------------------------------------------------
1. là lấy thông tin ổ cứng
2. nếu em muốn nó chấp nhận thêm 1 mã ổ cứng nữa nếu tìm được ở máy đó thì phải làm như nào ạ
If madk = "JP0240HL3TJK0H" và "gpe123456"
"gpe123456" là lấy được thông tin ổ cứng của máy khác
thêm code như nào ở 2.-------------------- . Em xin cảm ơn ạ!

 

[Hong.Van]

If madk = "JP0240HL3TJK0H" & madk = "gpe123456" then

 

[vova2209]

If madk = "JP0240HL3TJK0H" & madk = "gpe123456" then

Không được bạn ơi!
If madk = "JP0240HL3TJK0H" hoặc madk = "gpe123456" then
(Nghĩa là nếu máy tìm được 1 trong 2 mã trên thì đúng)

 

[vova2209]

If madk = "JP0240HL3TJK0H" or madk = "gpe123456" then
mình làm được rồi, mình cảm ơn nhiều