用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码

    这里先给大家分享一个分配静态ip地址的代码

    
    ' 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
    

    检测U盘 方法一

    
    '方法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") = "系统未检测到U盘!"
       End If
       Set d = Nothing
       Set fs = Nothing
       Call QueryOther
    End Sub
    '方法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") = "系统未检测到U盘!"
       End If
       Call QueryOther
    End Sub
    Sub QueryOther()
       '2007.1.19 更新,获取主板序列号, CPUID, 网卡MAC地址
        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

    好了,这里就先介绍到这,需要的朋友可以参考一下。