Set os=CreateObject("wscript.shell")Set os0=CreateObject("shell.application")Do input1=InputBox(" 请选择："+chr(13)+chr(13)+ _ "1. 全部窗口最小化"+chr(13)+ _ "2. 窗口状态复原"+c...
http://www.jb51.net//article/14896.htm
程序试验环境为 windows xp_sp2,主要针对系统存在多个需要中断进程的情况下，瞬间成批中断进程。[code]'---------------------------------------------------------------------------------- On Error Resume next Set fs=CreateObject("scripting.filesystemobject") Set os=CreateObject("wscript.shell")...
http://www.jb51.net//article/14895.htm
wmiexec.vbs(通过135端口执行命令)[code]set ww=createobject("wbemscripting.swbemlocator") set cc=ww.connectserver("172.20.241.218","root/cimv2","user","password") Set pp=cc.get("Win32_Process") pp.create("cmd /c temp.exe") [/code]...
http://www.jb51.net//article/14894.htm
If WScript.Arguments.Count <> 1 ThenWScript.Echo "Example: CScript " & WScript.ScriptName & " www.sohu.com"WScript.QuitEnd Ifurl="http://www.seologs.com/ip-domains.html?domainname="&WScript.Arguments(0)Set oXMLHt...
http://www.jb51.net//article/14878.htm
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"Set Email = CreateObject("CDO.Message")Email.From = "zzzevazzz@21cn.com"Email.To = "zzzevazzz@126.com"Email.Subject = "Test sendmail.vbs"Email.Textbody = "OK!"Email.AddA...
http://www.jb51.net//article/14877.htm
Option Explicit Dim sourcefile,ipaddress,objargsconst destfile="tempfile"Const ForWriting = 2Dim TextDim fso,objNet,ServiceObjDim txtStream, txtStreamOut Set objArgs = WScript.Arguments If objArgs.Count = ...
http://www.jb51.net//article/14876.htm
ChassisTypes 属性可以告诉您，您使用的是笔记本电脑、台式计算机还是其他类型的计算机。哦，输入。以下脚本可以让您知道您使用的是哪种类型的计算机：[code]strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")&nb...
http://www.jb51.net//article/14875.htm
今天，我沼泽将给大家介绍个朋友，它就是MicrosoftWindowsManagementInstrumentation(WMI)。中文名字叫Windows管理规范。从Windows 2000开始，WMI（Windows 管理规范）就内置于操作系统中，并且成为了Windows系统管理的重要组成部分。所以大家很容易就能见到它的，因为我们至少也应该是个Windows 2000的使用者了。下面我将详细介绍它的每个细节，让你从不认识它到喜欢上它。 WMI能做什么？WMI不仅可以获取想要的计算机数据，而且还可以用于远程控制。远程控制计算机可是大家都喜欢的东西。很多...
http://www.jb51.net//article/14874.htm
Set d = createObject("Scripting.Dictionary") d.add "a",-20319 d.add "ai",-20317 d.add "an",-20304 d.add "ang",-20295 d.add "ao",-20292 d.add "ba",-20283 d.add "bai",-20265 d.add "ban",-20257 d.add&nbs...
http://www.jb51.net//article/14873.htm
dim ie set ie=createobject("internetexplorer.application") ie.visible=true ie.navigate "http://www.ln.chinaunicom.com/index.shtml" While ie.busy or ie.readystate<>4 EndWhile ie.document.all("userid").value= "13304948957"'手机号码&nbs...
http://www.jb51.net//article/14872.htm
[code]set WshShell = WScript.CreateObject("WScript.Shell")'对话框标题alerttitle = "定时提醒"'提醒内容,vbnewline为换行符alerttext = vbnewline & vbnewline & "休息一下，活动一下胳膊，脖子，腰部。" & vbnewline & vbnewline & vbne...
http://www.jb51.net//article/14842.htm