Private Sub Command1_Click() On Error Resume Next Dim sComputerName, WMI_Obj, WMI_ObjProps, ObjClsItem sComputerName = "."