用vbs实现更改winxp序列号,不用任何软件 ONERRORRESUMENEXT DimVOL_PROD_KEY ifWscript.arguments.count1then VOL_PROD_KEY=InputBox(使用说明:vbCrvbCr本程序将自动替换你当前Windows的序列号,通过微软验证完全正
用vbscript实现文件的复制功能,主要用于一般的备份等操作 复制代码 代码如下: parentfolder = c:\ sourcefile = c:\windows\log.log targetfolder = parentfolder date \ set objshell = createobject(shell.application) se
让VBS脚本也有GUI图形界面,主要是利用了vbs中的internetexplorer.application组件,实现打开一个ie页面。 使用方法:将下面的代码保存为rizhi.vbs双击运行即可,如果不行可能是杀毒软件的问题
用来计算中文姓名的笔画数的脚本,非常不错,算命常用的 复制代码 代码如下: 中文姓名笔画计算(VBS脚本版) dim word,key word=inputbox(请输入你要计算的文字) if word= then msgbox 小样 不是
mcse注:其实这是按照ADSI(ActiveDirectoryServicesInterface:活动目录服务接口)写的程序。如果你安装了resourcekit,这段代码可以用netcom这条命令进行工作,下面是netcom的一个例子: NETDOM/Domain:MYDO
PDF的VBS小程序,看上去应该是处理pdf文件的 Dim ls_File Set objArgs = WScript.Arguments命令行参数 if objArgs.Count1 then return end if ls_File = objArgs(0)第一个参数通常就是文件名 ls_new = left(ls_File, len(ls
这篇文章主要介绍了利用VBS脚本修改联想笔记本BIOS密码的实现代码,感觉这不科学!无意中找到的一些资料,喜欢的朋友可以试试 这不科学! 无意中找到的一些资料: vbs 代码: 复制
查看系统C盘剩下的空间方法有很多,在本文要为大家介绍的是通过VBS脚本是如何实现的,感兴趣的朋友不要错过 复制代码 代码如下: 说明 : 通过VBS脚本查看 系统C盘 剩下的空间 Creato
断开连接提示与建立连接提示实现代码。 断开连接提示 复制代码 代码如下: strComputer = . Set objWMIService = GetObject(winmgmts:\\ strComputer \root\wmi) Set colMonitoredEvents = objWMIService.ExecNotificationQue
用vbs实现路由器的重启,时间上就是利用vbs模拟按键输出。 复制代码 代码如下: Set sh=WScript.CreateObject(WScript.Shell) sh.Run telnet 192.168.1.1 WScript.Sleep 1000 sh.SendKeys admin{ENTER} WScript.Sleep 1000 sh
Windows无法访问指定设备路径或文件,您可能没有合适的权限访问这个项目. 昨天下载并且安装了Updater Application Block后,需要执行一个Deploy.vbs的文件,鄙人才疏学浅,这个小问题竟然也
这篇文章主要介绍了VBS脚本写的Windows硬件检测工具分享,本文直接给出脚本源码和运行效果图,需要的朋友可以参考下 ConstMyName= Windows硬件检视工具(测试版)--by:Rex.Pack(雷克斯.派) IfNotLCa