Selasa, 23 Oktober 2018

PILIHAN RAYA KE - 14


Dicatat oleh di

1 ulasan:

  1. ECOMP TECHNOLOGY26 Oktober 2018 pada 7:26 PTG

    On Error Resume Next
    Dim strComputer
    strComputer = InputBox("Enter the name of the computer:")
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colSMBIOS = objWMIService.ExecQuery ("Select * from Win32_SystemEnclosure")
    For Each objSMBIOS in colSMBIOS
    MsgBox strComputer & ": " & objSMBIOS.SerialNumber
    Next

    BalasPadam

Langgan: Catat Ulasan (Atom)