使用WMI,MSDN上有个例子可以看一下,在本机运行vbs, 让远程计算机启动一个程序。
http://msdn.microsoft.com/en-us/library/aa389388(VS.85).aspx
程序名:RemoteRunProgram.vbs
Const SW_NORMAL = 1
strComputer = "."
strCommand = "Notepad.exe"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
' Configure the Notepad process to show a window
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = SW_NORMAL
' Create Notepad process
Set objProcess = objWMIService.Get("Win32_Process")
intReturn = objProcess.Create _
(strCommand, Null, objConfig, intProcessID)
If intReturn <> 0 Then
Wscript.Echo "Process could not be created." & _
vbNewLine & "Command line: " & strCommand & _
vbNewLine & "Return value: " & intReturn
Else
Wscript.Echo "Process created." & _
vbNewLine & "Command line: " & strCommand & _
vbNewLine & "Process ID: " & intProcessID
End If
分享到:
相关推荐
vbs-远程调用vbs-远程调用vbs-远程调用vbs-远程调用
定时运行程序.vbs 右键打开修改文件名称
便于实现管理自动化,如加入开机启动,即可实现无人职守。
一个用VBS实现CMD窗口的隐藏运行,做小程序的时候经常会用到,很实用的代码。
通过WMI远程开户对方电脑的远程桌面功能。
一个恶搞的程序代码 一个恶搞的程序代码 一个恶搞的程序代码 一个恶搞的程序代码 一个恶搞的程序代码
怎么让vbs在qtp中运行
修改文本中exe文件路径,将txt后缀改为vbs,运行即可
VBS脚本实例,用来判断指定的进程是否存在,关闭指定的进程,打开执行的程序
VBS代码自动更改计算机名,大家可以下载下来学习下原理。
本vbs可以用于表白女生也可以用于说平时嘴上说不出口的东西
两份vbs程序,仅供娱乐,新手入门激发兴趣,欢迎继续有人来研究和使用vbs。
我个人喜欢研究cmd,后面无意中接触到vbs,就思考cmd能运行vbs么?---答案是可以的。经过研究发现,cmd可以执行vbs,但是还是需要生成vbs文件,执行完成后删除vbs文件
程序运行完毕脚本vbs
VBS 调用程序VBS 调用程序VBS 调用程序VBS 调用程序VBS 调用程序
运行后禁止程序运行 可以在里面指定禁止运行的程序,如QQ.exe
使用远程终端打开运行程序当关闭程序后自动注销windows系统!
安静运行批处理代码.vbs
疯狂计算机.vbs
VBS修改远程桌面的默认端口,并添加至Windows防火墙