前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >vbs 技巧6则

vbs 技巧6则

作者头像
力哥聊运维与云计算
发布2019-06-28 11:39:06
9100
发布2019-06-28 11:39:06
举报
文章被收录于专栏:力哥聊运维与云计算

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

本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
原始发表:2011/08/01 ,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
相关产品与服务
文件存储
文件存储(Cloud File Storage,CFS)为您提供安全可靠、可扩展的共享文件存储服务。文件存储可与腾讯云服务器、容器服务、批量计算等服务搭配使用,为多个计算节点提供容量和性能可弹性扩展的高性能共享存储。腾讯云文件存储的管理界面简单、易使用,可实现对现有应用的无缝集成;按实际用量付费,为您节约成本,简化 IT 运维工作。
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档