幸运蛋蛋pc开奖
这篇文章主要介绍了用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

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

最新资讯
拼多多黄峥:花钱是一种投资 “百亿补贴”不是口号

拼多多黄峥:花钱是一种

黄峥表示,花钱是一种投资,是一种长期的机遇,拼多多的“百
网易高管解读第三季度财报:音乐内容成本希望减一减

网易高管解读第三季度

网易第三季度净营收146.4亿元,市场预期174.12亿元,去年
外卖平台“掐架”?西安有商户被饿了么要求退出美团

外卖平台“掐架”?西安

有网友反?#24120;?#22240;没有听从“饿了?#30784;?#24037;作人员让其从“美团
币圈风云:区块?#30784;?#34394;拟币与人性

币圈风云:区块?#30784;?#34394;拟

不认识到人性中的这些缺陷,就无法应?#38405;?#20123;利用人性缺陷
?#26412;?#24066;解除输入型鼠疫病例密切接触者医学观察

?#26412;?#24066;解除输入型鼠疫

11月21日8时,锡林郭勒盟来京就医的两名肺鼠疫患者的所
QQ是如何?#33041;?0后的?

QQ是如何?#33041;?0后的?

昔我往矣,杨柳依依;今我来思,雨雪霏霏。
最新文章
vbs 自制数字益智游戏实现代码

vbs 自制数字益智游戏

这篇文章主要介绍了vbs 自制数字益智游戏实现代码,需
用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码

用vbs脚本获取网卡MAC

这篇文章主要介绍了用vbs脚本获取网卡MAC,CPUID,硬盘
vbs实现的tasklist效果代码

vbs实现的tasklist效

这个简短的脚本使用wmi显示与工具“tasklist”中相同
VBS基础篇 - VBScript过程(使用sub 与 Function定义函数)

VBS基础篇 - VBScript

在 VBScript 中,过程被分为两类:Sub 过程和 Function 过
VBS基础篇 - 循环(for、Do、While)

VBS基础篇 - 循环(for

经常地,当编写代码时,我们希望将一段代码执行若干次,我们
VBS基础篇 - vbscript class类的定义与使用

VBS基础篇 - vbscript

vbs Class就是声明一个类的名称,以及组成该类的变量、
幸运蛋蛋pc开奖 山东群英会中奖奖金 时时彩河南十一选五走势图 美东二分彩技巧 澳门棋牌69频道下载 888棋牌游戏下载 网络彩票平台出租 股票分析师群 炒股第100天 彩票合买奖金计算方法 加拿大快乐8预测开奖结果