Using vbs script to get mac, CPUID and serial number of hard disk

Time:2019-11-6

Let’s share a code to assign a static IP address


' Assign a Static IP Address


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
  ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array("192.168.6.98")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.6.1")
strGatewayMetric = Array(1)
 
For Each objNetAdapter in colNetAdapters
  errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
  errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
  If errEnable = 0 Then
    WScript.Echo "The IP address has been changed."
  Else
    WScript.Echo "The IP address could not be changed."
  End If
Next

Test U disk method 1

Method 1
Sub Auto_Open()
On Error Resume Next
    Set fs = CreateObject("Scripting.FileSystemObject")
    StrDrive = "B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
    StrDriveArray = Split(StrDrive, ",")
    For StartPos = 1 To UBound(StrDriveArray)
        Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(StrDriveArray(StartPos) & ":\")))
        If d.DriveType = 1 Then
            s = d.SerialNumber
            Exit For
        End If
    Next
    If s <> "" Then
        Range("Sheet1!d8") = s
    Else
        Range ("Sheet1! D8")   =   "the system has not detected a USB stick! "
   End If
   Set d = Nothing
   Set fs = Nothing
   Call QueryOther
End Sub
Method 2
Sub DetectUdisk()
On Error Resume Next
    Set objWMIService = GetObject("winmgmts:\.\root\cimv2")
    Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 2")
    For Each objDisk In colDisks
       RemovableDrive = objDisk.DeviceID
        If CreateObject("Scripting.FileSystemObject").GetDrive(RemovableDrive).IsReady Then
            s = CreateObject("Scripting.FileSystemObject").GetDrive(RemovableDrive).SerialNumber
            Exit For
        End If
    Next
    If s <> "" Then
        Range("Sheet1!d8") = s
    Else
        Range ("Sheet1! D8")   =   "the system has not detected a USB stick! "
   End If
   Call QueryOther
End Sub
Sub QueryOther()
   '2007.1.19   update, get mainboard serial number,   CPUID,   network card MAC address
    Set objWMIService = GetObject("winmgmts:\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select   SerialNumber   From   Win32_BIOS")
    For Each objItem In colItems
        Range("Sheet1!E8") = objItem.SerialNumber
        Exit For
    Next
    Set colItems = Nothing
    
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
    For Each objItem In colItems
        Range("Sheet1!F8") = objItem.ProcessorId
        Exit For
    Next
    Set colItems = Nothing
    
    Set colItems = objWMIService.ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))")
    For Each objItem In colItems
        Range("Sheet1!G8") = objItem.MACAddress
        Exit For
    Next
    Set colItems = Nothing
   
End Sub

OK, I’ll introduce it here first. You can refer to it if you need.