常用VBS代码 值得一看
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
利用vbs脚本编写Windows XP/2003序列号更改器 复制代码 代码如下: ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count<1 then VOL_PROD_KEY =InputBox("使用说明(OEM版无效)："&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows 的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows XP/2003 序列号更换工具","11111-11111-11111-11111-11111") if VOL_PROD_KEY="" then Wscript.quit end if else VOL_PROD_KEY = Wscript.arguments.Item(0) end if VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") ''remove hyphens if any for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") result = Obj.SetProductKey (VOL_PROD_KEY) if err = 0 then Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。" end if if err <> 0 then Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。" Err.Clear end if Next 将上面的代码复制到文本里面,然后另存为.vbs文件,然后直接运行这个文件就可以了。 可升级Key: MRX3F-47B9T-2487J-KWKMF-RPWBY QC986-27D34-6M3TY-JJXP9-TBGMD CM3HY-26VYW-6JRYC-X66GX-JVY2D DP7CM-PD6MC-6BKXT-M8JJ6-RPXGJ F4297-RCWJP-P482C-YY23Y-XH8W3 HH7VV-6P3G9-82TWK-QKJJ3-MXR96 HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT 一段对比删除文件的VBS脚本!（用游戏更新的时候可以用到哦，希望大家灵活应用）dim sdir,ddir ''远程目录 sdir="\\192.168.1.1\vbs\zz\" ''本地目录 ddir="c:\c" function comparefile(sdir,ddir) dim Fso,dFol,dfs,sf1,f1 set Fso=CreateObject("Scripting.FileSystemObject") if not(Fso.folderexists(sdir)) then msgbox chr(34) &sdir &chr(34) &"文件夹不存在，请确认！",64 exit function end if if not(Fso.folderexists(ddir)) then msgbox chr(34) &ddir &"""文件夹不存在，请确认！",64 exit function end if if right(sdir,1)<>"\" then sdir=sdir &"\" set dFol=fso.getfolder(ddir) set dfs=dfol.files for each f1 in dfs if fso.fileexists(sdir & f1.name) then set sf1=fso.GetFile(sdir & f1.name) if f1.DateLastModified <>sf1.DateLastModified or f1.size<>sf1.size then f1.delete end if else f1.Delete(true) end if next dim fols set fols=dfol.subfolders for each f1 in fols if not fso.folderexists(sdir &f1.name) then f1.delete true else comparefile sdir & f1.name,f1.path end if next end function comparefile sdir,ddir |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于常用VBS代码 值得一看的所有评论
