[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
keyroad

Rank: 2

帖子
4 
积分
172 
技术
0  
捐助
0  
注册时间
2008-3-18 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2008-3-18 09:50 | 只看该作者

VBS验证MAC地址

StrComputer = "."
MyMac = 00-19-E0-23-08-FF
set ObjMAC =GetObject("Winmgmts:\\" & StrComputer & "\Root\Cimv2")
Set ObjMacs = ObjMac.get("Win32_NetworkAdapterConfiguration.index=1")
    If MyMac = Objmacs.MACAddress Then
set s = WScript.CreateObject("WScript.Shell") '创建WScript.Shell对象
      app=s.Run ("e:\Progra~1\ie.vbs") '
end if
为什么我的代码另存为vbs后不会运行啊    mac填写没错的  ie.vbs 也存在的
收藏 分享

keyroad

Rank: 2

帖子
4 
积分
172 
技术
0  
捐助
0  
注册时间
2008-3-18 
2楼
发表于 2008-3-18 09:51 | 只看该作者
StrComputer = "."
MyMac = "00-19-E0-23-08-FF"
set ObjMAC =GetObject("Winmgmts:\\" & StrComputer & "\Root\Cimv2")
Set ObjMacs = ObjMac.get("Win32_NetworkAdapterConfiguration.index=1")
    If MyMac = Objmacs.MACAddress Then
set s = WScript.CreateObject("WScript.Shell") '创建WScript.Shell对象
      app=s.Run ("e:\Progra~1\ie.vbs") '
end if
这样也不行啊

TOP

myweb9169

Rank: 2

帖子
23 
积分
198 
技术
0  
捐助
0  
注册时间
2007-12-20 
3楼
发表于 2008-3-18 14:56 | 只看该作者
这是在我本机上测试通过的代码，参考下
StrComputer = "."
MyMac = "E0:0C:20:52:41:53"
set ObjMAC =GetObject("Winmgmts:\\" & StrComputer & "\Root\Cimv2")
Set ObjMacs = ObjMac.instancesof("Win32_NetworkAdapterConfiguration")
for each objmac in  ObjMacs
    If MyMac = Objmac.MACAddress Then
set s = WScript.CreateObject("WScript.Shell") '创建WScript.Shell对象
      s.Run "c:\1.txt"
      
end if
next

TOP

keyroad

Rank: 2

帖子
4 
积分
172 
技术
0  
捐助
0  
注册时间
2008-3-18 
4楼
发表于 2008-3-18 18:50 | 只看该作者
set s = WScript.CreateObject("WScript.Shell") '创建WScript.Shell对象
Dim myDate
myDate = #4/13/2008#
if myDate > now then
app=s.Run ("e:\Progra~1\ie.vbs") '

软件是可以运行的，但是问题是，如果他们改了系统时间就可以继续用这软件了 怎么办

TOP

返回列表