vb.net 取CPU型号和本地连接启用禁用的代码

keeeeeen · 发表于 2022-4-23 16:32

求vb.net代码1.取CPU型号，不是CPUid,不是CPU序列号，是下图红色圈这种。
截图未命名.jpg

2.下图，本地连接，本地连接2网络重启，启用，禁用。或者网络服务禁用启动。用途是重启网络。
截图未命名.jpg

谢谢大佬

Todd · 发表于 2022-4-23 16:32

Todd 发表于 2022-4-24 10:39
网络属性
用这个 Win32_NetworkAdapterConfiguration

勘误

应该是这个
1650769751(1).png

Todd · 发表于 2022-4-23 18:58

PSComputerName                         : DESKTOP-MGDFEAP
Availability                         : 3
CpuStatus                            : 1
CurrentVoltage                         : 8
DeviceID                               : CPU0
ErrorCleared                         :
ErrorDescription                      :
LastErrorCode                         :
LoadPercentage                         : 4
Status                               : OK
StatusInfo                            : 3
AddressWidth                         : 64
DataWidth                            : 64
ExtClock                               : 100
L2CacheSize                            : 1536
L2CacheSpeed                         :
MaxClockSpeed                         : 2208
PowerManagementSupported             : False
ProcessorType                         : 3
Revision                               :
SocketDesignation                      : U3E1
Version                               :
VoltageCaps                            :
__GENUS                               : 2
__CLASS                               : Win32_Processor
__SUPERCLASS                         : CIM_Processor
__DYNASTY                            : CIM_ManagedSystemElement
__RELPATH                            : Win32_Processor.DeviceID="CPU0"
__PROPERTY_COUNT                      : 57
__DERIVATION                         : {CIM_Processor, CIM_LogicalDevice, CIM_LogicalElement, CIM_ManagedSystemEleme
                                       nt}
__SERVER                               : DESKTOP-MGDFEAP
__NAMESPACE                            : root\cimv2
__PATH                               : \\DESKTOP-MGDFEAP\root\cimv2:Win32_Processor.DeviceID="CPU0"
Architecture                         : 9
AssetTag                               : To Be Filled By O.E.M.
Caption                               : Intel64 Family 6 Model 158 Stepping 10
Characteristics                      : 252
ConfigManagerErrorCode                :
ConfigManagerUserConfig                :
CreationClassName                      : Win32_Processor
CurrentClockSpeed                      : 2208
Description                            : Intel64 Family 6 Model 158 Stepping 10
Family                               : 198
InstallDate                            :
L3CacheSize                            : 9216
L3CacheSpeed                         : 0
Level                                  : 6
Manufacturer                         : GenuineIntel
Name                                  : Intel(R) Core(TM) i7-8750H CPU @ 2.20GHz
NumberOfCores                         : 6
NumberOfEnabledCore                   : 6
NumberOfLogicalProcessors             : 12
OtherFamilyDescription                :
PartNumber                            : To Be Filled By O.E.M.
PNPDeviceID                            :
PowerManagementCapabilities          :
ProcessorId                            : BFEBFBFF000906EA
Role                                  : CPU
SecondLevelAddressTranslationExtensions : False
SerialNumber                         : To Be Filled By O.E.M.
Stepping                               :
SystemCreationClassName                : Win32_ComputerSystem
SystemName                            : DESKTOP-MGDFEAP
ThreadCount                            : 12
UniqueId                               :
UpgradeMethod                         : 52
VirtualizationFirmwareEnabled          : False
VMMonitorModeExtensions                : False
Scope                                  : System.Management.ManagementScope
Path                                  : \\DESKTOP-MGDFEAP\root\cimv2:Win32_Processor.DeviceID="CPU0"
Options                               : System.Management.ObjectGetOptions
ClassPath                            : \\DESKTOP-MGDFEAP\root\cimv2:Win32_Processor
Properties                            : {AddressWidth, Architecture, AssetTag, Availability...}
SystemProperties                      : {__GENUS, __CLASS, __SUPERCLASS, __DYNASTY...}
Qualifiers                            : {dynamic, Locale, provider, UUID}
Site                                  :
Container                            :

需要什么属性直接改

Sub CPU 属性()
For Each 序列 In GetObject("Winmgmts:").InstancesOf("Win32_Processor")
      MsgBox "CPU 属性: " & CStr(序列.需要的属性)
Next
End Sub

keeeeeen · 发表于 2022-4-23 21:51

本帖最后由 keeeeeen 于 2022-4-23 21:59 编辑

Todd 发表于 2022-4-23 18:58
PSComputerName : DESKTOP-MGDFEAP
Availability : ...

看到了，，，

zhhmok · 发表于 2022-4-24 09:17

Todd 发表于 2022-4-23 18:58
PSComputerName : DESKTOP-MGDFEAP
Availability : ...

太厉害了！

网络部分呢？哪个属性

keeeeeen · 发表于 2022-4-24 09:34

zhhmok 发表于 2022-4-24 09:17
太厉害了！

网络部分呢？哪个属性

这是CPU 部分

Todd · 发表于 2022-4-24 10:39

网络属性
用这个 Win32_NetworkAdapterConfiguration

keeeeeen · 发表于 2022-4-24 15:26

[Dynamic, Provider("CIMWin32"), UUID("{8502C4C0-5FBB-11D2-AAC1-006008C78BC7}"), AMENDMENT]
class Win32_NetworkAdapter : CIM_NetworkAdapter
{
  string AdapterType;
  uint16 AdapterTypeID;
  boolean  AutoSense;
  uint16 Availability;
  string Caption;
  uint32 ConfigManagerErrorCode;
  boolean  ConfigManagerUserConfig;
  string CreationClassName;
  string Description;
  string DeviceID;
  boolean  ErrorCleared;
  string ErrorDescription;
  string GUID;
  uint32 Index;
  datetime InstallDate;
  boolean  Installed;
  uint32 InterfaceIndex;
  uint32 LastErrorCode;
  string MACAddress;
  string Manufacturer;
  uint32 MaxNumberControlled;
  uint64 MaxSpeed;
  string Name;
  string NetConnectionID;
  uint16 NetConnectionStatus;
  boolean  NetEnabled;
  string NetworkAddresses[];
  string PermanentAddress;
  boolean  PhysicalAdapter;
  string PNPDeviceID;
  uint16 PowerManagementCapabilities[];
  boolean  PowerManagementSupported;
  string ProductName;
  string ServiceName;
  uint64 Speed;
  string Status;
  uint16 StatusInfo;
  string SystemCreationClassName;
  string SystemName;
  datetime TimeOfLastReset;
};

keeeeeen · 发表于 2022-4-24 15:30

Todd 发表于 2022-4-24 11:08
勘误

应该是这个

谢谢大佬

学你查了一下，也验证了一下。

NetEnabled应该是有没有插网线或有没有连接WIFI，或有没有连接蓝牙

PhysicalAdapter应该是物理设备有没有启用

keeeeeen · 发表于 2022-4-24 15:35

谢谢各路大佬，学习了

一开始语句Dim colAdapters As New System.Management.ManagementObjectSearcher("Select * from Win32_NetworkAdapter where NetEnabled =ture")
不应该在colAdapters ,where..。导致没数据

Dim colAdapters As New System.Management.ManagementObjectSearcher("Select * from Win32_NetworkAdapter")
  For Each Adapter As ManagementObject In colAdapters.Get
                  MsgBox(Adapter("DeviceId") & Adapter("NetEnabled") & Adapter("NAME") & Adapter("NetConnectionID") & Adapter("PhysicalAdapter"))
         Next
才有数据。

帐号		自动登录	找回密码
密码			注册[Register]

[求助] vb.net 取CPU型号和本地连接启用禁用的代码

最佳答案