vbs 获取当前目录的实现代码
CMD当前路径
test = createobject("Scripting.FileSystemObject").GetFolder(".").Path
Wscript.echo test
当前VBS路径
test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
Wscript.echo test
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_Process Where Name = 'wscript.exe' OR Name = 'cscript.exe'")
For Each objItem in colItems
lmq=lmq & objItem.CommandLine & vbcrlf
Next
Wscript.Echo lmq
如何获得当前.vbs文件运行的目录
比方说c:\a\a.vbs,如何或得它的目录c:\a,如果把它放在d:\b\b\目录下,获得它的目录为d:\b\b呢?
function getfolder()
getfolder=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1)
end function
MsgBox getfolder()
相关推荐
-
获取外网IP并发送到指定邮箱的vbs代码[已测]
复制代码 代码如下: ''getIP set http=createobject("Microsoft.XMLHTTP") ipp="http://www.ip138.com/ip2city.asp" http.open "get",ipp,false http.send ss=bytes2BSTR(Http.responsebody) intStrA = InStr(1,ss,"[",1)+1 sss=mid(ss,intS
-
VBS获取当前目录下所有文件夹名字的代码
VBS获取当前目录下所有文件夹名字,不包括子文件夹.我要给每个文件夹进行操作,所以最好用循环输出. 测试的时候要保证当前目录下有文件夹才可以,否则输出为空. 复制代码 代码如下: Set ws=WScript.CreateObject("wscript.shell")w=ws.CurrentDirectorySet fso=WScript.CreateObject("scripting.filesystemobject")Set fs=fso.GetFolder(w
-
vbs获取当前时间日期的代码
获取当前日期方法一: 复制代码 代码如下: Currentdate1=date()msgbox Currentdate1 获取当前日期方法二: 复制代码 代码如下: Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)msgbox Currentdate2 获取当前时间: 复制代码 代码如下: CurrentTime=Hour(Now)&":"&Min
-
用VBS控制鼠标的实现代码(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击)
怎么用VBS模拟鼠标左键单击.左键双击.右键单击?-- 网上搜到的答案普遍是VBS无法实现,或者是要用第三方COM(ActiveX?)组件.我对第三方组件是很反感的,使用第三方组件毫无可移植性可言,因为别人的系统中不一定注册了这个组件.我的建议是,尽量不要在VBS代码中调用第三方组件,除非你的程序只是写来自己用.(顺便说一下,也尽量不要用不靠谱的Sendkeys方法,原因不解释) 好了,废话就说这么多,现在说说用VBS控制鼠标的方法.我以前写过一篇<VBS调用Windows API函数>,本以
-
使用vbs获取雅虎汇率
使用vbs获取雅虎汇率 Function bytes2bstr(vin) strreturn = "" for i = 1 to lenb(vin) thischarcode = ascb(midb(vin,i,1)) if thischarcode < &h80 then strreturn = strreturn & chr(thischarcode) else nextcharcode = ascb(midb(vin,i+1,1)) strreturn =
-
VBScript获取CPU使用率的方法
VBScript通过WMI获取CPU使用率的代码 度娘中,搜索关键词"WMI CPU使用率",得到的全是<python使用WMI监视系统-CPU使用率>,不用看,肯定又是采集的. Python固然强大,但是调用WMI还是用VBS比较"正宗". On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" &
-
通过vbs获取远程host文件并保存到指定目录
复制代码 代码如下: Sub download(url,target) Const adTypeBinary = 1 Const adTypeText = 2 Const adSaveCreateOverWrite = 2 Dim http,ado Set http = CreateObject("Msxml2.ServerXMLHTTP") http.SetOption 2,13056 http.open "GET",url,False http.send Set
-
vbs中获取脚本当前路径的2个方法
方法一: 复制代码 代码如下: currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path 方法二: 复制代码 代码如下: currentpath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
-
vbscript获取文件的创建时间、最后修改时间和最后访问时间的方法
复制代码 代码如下: set fso=createobject("Scripting.FileSystemObject") set fn=fso.GetFile("E:\AD.txt") msgbox "文件创建时间:"&fn.DateCreated msgbox "文件最后修改时间:"&fn.DateLastModified msgbox "文件最后访问时间:"&fn.DateLa
-
用vbs实现获取电脑硬件信息的脚本_最新版第1/4页
代码一: '******************************************************************************************* 'Version:3.1 ' 调整错误处理方法,错误信息输出到LogFile文件,可以查看扫描失败原因 ' 如果出现"RPC 服务器不可用"错误,是因为远程主机没开机 ' 如果出现"RPC 服务器不可用"之外的错误,可能是由于正在运行的程序造成,请你把此信息告诉我 ' 重启
随机推荐
- 基于jquery编写的横向自适应幻灯片切换特效的实例代码
- iOS中遍历的方法总结
- PHP之APC缓存详细介绍 apc模块安装
- C语言中基础小问题详细介绍
- Vista中给IIS7添加PHP支持的设置方法
- Bootstrap打造一个左侧折叠菜单的系统模板(一)
- 微信小程序 教程之条件渲染
- js Firefox 加入收藏夹功能代码 兼容Firefox 和 IE
- Java StringBuilder和StringBuffer源码分析
- 个人家园为您提供免费FTP空间服务
- Java编程实现用hash方法切割文件
- 使用layui 渲染table数据表格的实例代码
- springMvc 前端用json的方式向后台传递对象数组方法
- mysql 8.0.16 Win10 zip版本安装配置图文教程
- JS实现的排列组合算法示例
- python Matplotlib底图中鼠标滑过显示隐藏内容的实例代码
- 关于C语言文件操作方法
- PHP htmlentities()函数用法讲解
- PHP addcslashes()函数讲解
- python批量下载网站马拉松照片的完整步骤