vbs 技巧6则

1 vbs 判断shell 程序运行结束的代码

比如要通过vbs 调用format格式化d: 盘,可以使用如下代码

 Set oExec=WshShell.exec("c:\windows\system32\format.com d: /fs:ntfs /q /y")

Do While oExec.Status = 0

     WScript.Sleep 100

Loop

2 vbs得到程序运行路径

Set   WshShell=WScript.CreateObject( "WScript.Shell")    '得到程序所在的当前路径

Path_init_file=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))& "nicinfo.ini"   '设置配置文件为当前路径下的nicinfo.ini

3 判断文件是否存在

Set objFSO = Createobject("Scripting.FileSystemObject")

If  objFSO.Fileexists(path_init_file) Then 

'msgbox("fil now")

else

'msgbox("fil now ---")

    exit sub

end if

4 读取文件

Set fso=CreateObject("Scripting.FileSystemObject")

Set file=fso.OpenTextFile(Path_init_file,ForReading)

While (Not file.AtEndOfLine)

  msg=file.ReadLine

  msgbox(msg)

Wend

file.Close

Set file=Nothing

Set fso=Nothing

5 判断有没有d:盘,如果有,调用第一条,格式化d:

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set colDrives = objFSO.Drives

For Each objDrive in colDrives

    if (objDrive.DriveLetter="D") then 

    'msgbox("have d exit")

    '有d盘直接退出,什么也不做

    exit sub

    else

    diskdnotexist="1"

    end if

Next

6 写文件,先判断文件是否存在,不存在,创建然后写。

Set   WshShell=WScript.CreateObject( "WScript.Shell")    '得到程序所在的当前路径

Path_log_file=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))& "nicinfo.log"    '设置日子文件为当前路径下的nicinfo.log

'判断日志文件是否存在,如果不存在,创建

Set logfso=CreateObject("Scripting.FileSystemObject")

If  logfso.Fileexists(Path_log_file) Then 

'msgbox("file exist")

else

  set ts=logfso.CreateTextFile(Path_log_file, True)

  ts.close

end if

'写日志

Set logfile=logfso.OpenTextFile(Path_log_file,8)

rtime=cstr(now())

logfile.write(logmsg+rtime + vbCrLf)

logfile.write("写一行" + vbCrLf)

logfile.Close

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • esxi 5.0 的pxe安装

    2 建立/tftpboot/vmware/esx5目录,拷贝光盘全部文件到此目录下

    力哥聊运维与云计算
  • 我的译作《精通OpenStack》上架啦:书籍介绍和译者序

    作者:[德] 奥马尔-海德希尔(Omar Khedher)[印] 坚登-杜塔-乔杜里(Chanda Dutta Chowdhury)

    力哥聊运维与云计算
  • 我的第二本译作《精通OpenStack》上架啦:前言、目录和样章

        今天,随着新功能和子项目的增加,OpenStack已成为一个不断扩展的大型开源项目。随着数以百计大型企业采用并不断为OpenStack生态系统做出贡献,...

    力哥聊运维与云计算
  • 调试目录

    iOSDevLog
  • ES6之模版字符串

      但是我们可以看到:这样的传统做法需要使用大量的“”(双引号)和 + 来拼接才能得到我们需要的模版。但是这样是十分不方便的。

    吴裕超
  • 【奇闻】吓死了,大数据感知你身体姿势 看看你是站着、躺着还是走着的

    网络广告从PC端迁移到移动端,精准程度越来越高。智能手机基本实现了根据用户位置投放广告。而据美国科技新闻网站Venturebeat报道,最新的移动广告技术,将支...

    小莹莹
  • 数据分析师应该知道的2大模型和6种图表!

    数据分析是指用适当的统计分析对收集来的大量数据进行分析,提取有用信息和形成结论而对数据加以详细研究和概括总结的过程。在实用中,数据分析可帮助人们作出判断,以便采...

    1480
  • 收藏 | 新手零基础数据分析入门指南

    什么是数据分析? 数据分析是指用适当的统计分析对收集来的大量数据进行分析,提取有用信息和形成结论而对数据加以详细研究和概括总结的过程。在实用中,数据分析可帮助人...

    CDA数据分析师
  • 小米成为全球第一大可穿戴设备厂商,销量碾压苹果

    镁客网
  • Ubuntu18.04下给Jupyter-NoteBook设置默认工作路径

    生成配置文件:jupyter-notebook --generate-config

    逸鹏

扫码关注云+社区

领取腾讯云代金券