html文档php 取mac地址_cpu序列号_硬盘序列号,用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
好了,这里就先介绍到这,需要的朋友可以参考一下。
时间: 2019-04-28
html文档php 取mac地址_cpu序列号_硬盘序列号,用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码...相关推荐
- selenium python文档_selenium+python实现百度文库word文档抓取
更新这个代码最近又改了一点,另外和其他一些小程序一起放在了一个jupyter notebook里,现在挂在github上面.github现在对jupyter notebook的支持非常的好,甚至可以直 ...
- Python提取Word文档中所有超链接地址和文本
使用Python扩展库python-docx操作Word文档的相关文章,可以阅读: Python批量导入图片到Word文件 Python查找Word文件中红色和加粗的文字(附元宵节送书活动中奖名单) ...
- 微信支付 自动退款 php,银联在线、微信、支付宝自动退款接口文档总结和API地址...
关于微信和支付宝自动退款接口的接入总结 一:支付宝的自动退款接口接入 支付宝官方api:https://doc.open.alipay.com/doc2/apiDetail.htm?spm=a219a ...
- 解决金山词霸和有道词典不能对pdf文档屏幕取词的方法
解决金山词霸和有道词典不能对pdf文档屏幕取词的方法 http://www.docin.com/p-14101033.html
- 使用POI对word文档进行取读
使用POI对word文档进行取读 导入POI包 <!-- https://mvnrepository.com/artifact/org.apache.poi/poi --><depe ...
- Python 获取 网卡 MAC 地址
/************************************************************************ Python 获取 网卡 MAC 地址* 说明:* ...
- ioctl(sock, SIOCGIFHWADDR, ifr)获取网卡mac地址
ioctl(sock, SIOCGIFHWADDR, &ifr) 获取网卡mac地址 ioctl(sock, SIOCGIFINDEX, &ifr)获取网卡接口地址 为什么我bind时 ...
- 关于wmi获取网卡mac地址重复的分析
现象:如图在部分电脑上获取ip和MAC地址对应关系时,界面显示部分电脑发现重复ip和mac 分析:用WMI Explorer查看时,有一个设备Microsoft TV/video connection ...
- Delphi自定义获取网卡MAC地址过程
//获取网卡MAC地址=============================================================== procedure CvtInt; asm ...
最新文章
- tf.ConfigProto()详解
- 解决MAVEN项目不扫描src下的mapper.xml文件
- 哈佛大学推荐的20个快乐习惯
- CVE-2019-0708(BlueKeep)漏洞分析与复现
- 从 ThinkPHP 开发规范 看 PHP 的命名规范和开发建议
- SpringBoot集成flowable-modeler(6.4.1) 实现免登
- 关于select的描述计算机,计算机二级考试MySQL数据库每日一练 12月21日
- Ubuntu 16.04重启Nautilus
- pe服务器注册表,在WIN PE环境下修改或导入系统注册表项
- 关于BetterScroll 2.0版本出现BScroll is not defined 的解决方案
- java单例调用_java单例模式
- 【DaVinci Developer专题】-32-Mode(Switch) Declaration Group中Alphabetic和Explicit的区别
- Java DataSource对象
- 张驰咨询:某能源公司举办首期精益六西格玛黑带项目结硕果
- 计算机网络中的层次结构
- Redis (二) 数据库
- 深度 | 5分钟读懂阿里零售通智慧供应链平台
- DEM数据下载链接(ASTER GDEM、SRTM、ALOS PALSAR DEM)
- CSS3选择器--结构性伪类选择器
- centos 关于“Error: Failed to download metadata for repo ‘appstream‘” 问题
热门文章
- 小学生计算机课堂实践的重要性,浅谈小学信息技术教育重要性.doc
- 支付宝第三方授权登陆
- 慧联A8最新检测使用教程V2.0.3
- 基于token与基于服务器的身份认证
- git常用命令,项目删除原有github连接并重新连接,回滚,下拉分支代码,切换分支
- android TextView下划线,圆角边框,数逐字显示,虚线边框, 渐变色背景框, 阴影背景框
- Ant Desgin Pro 修改登录后默认导航到的位置
- 文本怎么换成html,编辑html格式文本可改成txt格式(可以替换或更换某文本)新手...
- java maximumpoolsize,如果maximumPoolSize小于corePoolSize怎么办? Java 6中可能存在的错误?...
- Element-UI 表单验证规则rules 配置参数说明