vbs实现计算机重启

Dim return
Set R = CreateObject("WScript.Shell")
return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意!")
If return=vbok Then
R.run("Shutdown.exe -r -t 0")
End if

(0)

相关推荐

  • vbs实现计算机重启

    Dim return Set R = CreateObject("WScript.Shell") return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意!") If return=vbok Then R.run("Shutdown.exe -r -t 0") End if

  • Restart.vbs源代码可以重启远程电脑的vbs

    复制代码 代码如下: '******************************************************************** '* '* File:           Restart.vbs '* Created:        March 1999 '* Version:        1.0 '* '*  Main Function:  Shutsdown, PowerOff, LogOff, Restarts a machine. '* '*  Res

  • 用vbs得到计算机的 IP 地址

    描述返回安装在计算机中的每个支持 IP 的网络适配器的 IP 地址. 脚本代码 复制代码 代码如下: strComputer = "."  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  Set IPConfigSet = objWMIService.ExecQuery _      ("Select IPAddres

  • 用vbs确定计算机是否有 USB 2.0 端口的代码

    问: 您好,脚本专家!有没有办法使用脚本来确定计算机是否有 USB 2.0 端口? -- RD 答: 您好,RD.您熟悉电影疯狂星期五 (Freaky Friday) 吗,电影中母亲和女儿交换了身体(及角色)?嗯,我们的这个问题中有点类似疯狂星期五的东西.毕竟,在本专栏中本来应该由"脚本专家"来帮助您.但是,此问题实际上却帮助了一位"脚本专家".他原来一直在尝试测试 USB 设备(未成功),而且几乎已经把这项工作视为毫无意义.但是当阅读到您的问题时,他心中暗想,&q

  • 如何用VBS脚本收集远程计算机或本地计算机安装的软件

    目标 用VBS脚本收集域中远程计算机或本地计算机安装的软件,Windows版本.并将收集的结果保存到计算机名为文件名的文本文件中.文本文件可以保存到网络路径中或当前VBS文件所在目录.同时支持32位和64位系统. 并过滤到一些补丁包.Office组件.NVIDIA.Intel®的驱动等. 制作VBS脚本 保存下面的VBS程序代码到vbs文件中 On Error Resume Next Const HKCU = &h80000001 Const HKLM = &H80000002 Const

  • 毕业论文-如何预防计算机的网络病毒

    摘要 介绍网络中的计算机病毒,如邮件病毒.蠕虫和木马的特点与其它类病毒的区别和联系以及常见的邮件病毒的实例.同时根据当前计算机病毒发展的趋势,提出了一些防治建议. 关键词 网络 病毒 程序 随着国际互联网的快速发展,电子邮件成为人们相互交流最常见的工具,于是它也成电子邮件型病毒的重要载体.最近几年,出现了许多危害极大的邮件型病毒,如"LOVE YOU"病毒."库尔尼科娃"病毒."Homepage"病毒以及"求职信"病毒等,这些

  • 按键精灵 脚本-学习VBS的一个不错的教程

    今天我就从总体上对VBS进行介绍,希望能给大家一个直观的印象.另外,讲解与按键官网的按键精灵教程(李悦制作)相结合,帮大家看懂这个东东. 一.概述 要让计算机做事情就必须由人给它指令.原来的指令很复杂,都是些0011001之类的东西,后来逐渐简化,指令也更接近于人类的语言.VBS(Microsoft(R) Visual Basic(R) Scripting)也是高级语言的一种,和其他高级语言相比,它有简单易学的特点,是电脑初学者涉足编程领域的良好入口. 如果说从低级语言进化到高级语言是人类控制计

  • 一些经典的主要用户黑客的vbs脚本结合echo的dos下实现

    1.文件下载(无回显)  echo iLocal = LCase(WScript.Arguments(1)) >iget.vbe  echo iRemote = LCase(WScript.Arguments(0)) >>iget.vbe  echo Set xPost = CreateObject("Microsoft.XMLHTTP") >>iget.vbe  echo xPost.Open "GET",iRemote,0 >

  • 计算机名称修改后Oracle不能正常启动问题分析及解决

    前一阵子,在下给老妹装好oracle后,发现老妹的计算机名称好长,不容易记,于是一时手痒,将其计算机名称更改了一下,没想到就这一步操作,可苦坏了俺老人家了,一场悲剧即将开始! 当更改计算机名称,重启电脑后,发现oracle不能启动了.当时俺就想呀,差哪呀,安装完成后,oracle还是可以启动的呢,怎么现在就不行了呢.经过俺老人家仔细的回忆,才发现罪魁祸首就是俺随手更改的计算机名称.因为oracle启动的监听,代理等都是与计算机名称绑定在一起的. 俺马上使出俺唯一的杀手戬--google,经过网上

  • 收集的一些经典的vbs脚本大全

    记录一些经典的vbs脚本 1.文件下载(无回显)  echo iLocal = LCase(WScript.Arguments(1)) >iget.vbe  echo iRemote = LCase(WScript.Arguments(0)) >>iget.vbe  echo Set xPost = createObject("Microsoft.XMLHTTP") >>iget.vbe  echo xPost.Open "GET",i

随机推荐