FileSystemObject_Driver

本文介绍了一种使用VBScript通过Scripting.FileSystemObject对象获取指定磁盘详细信息的方法,包括总大小、可用空间、自由空间等属性。

 

How to get the related drive's info? Please see following:

 

 

 

select_rikuaibaoMonitor_cunhuojianchen.vbs 文件代码如下:执行后会弹框cswript.exe 。如何隐藏弹框 Dim DB Dim isSQL Dim i dim tag dim Describe dim Addr1 dim Addr2 dim Addr3 dim Addr4 dim str dim str1 str="" Set DB = CreateObject("ADODB.Connection") Set objRecordSet = CreateObject("ADODB.RECORDSET") i = 0 'DB.Open "Driver=SQL Server;server=manwah;Database=120.78.13.114,5823;uid=mwadmin_pro;pwd=ZnMTN6@Y;" 'DB.Open "Provider=SQLOLEDB.1;Password=Yx159753;Persist Security Info=True;User ID=sa;Initial Catalog=MES;Data Source=192.168.4.205,1433" 123qwe Yx159753 DB.Open "Provider=SQLOLEDB.1;Password=123qwe;Persist Security Info=True;User ID=sa;Initial Catalog=UFDATA_004_2017;Data Source=192.168.4.12,1433" set fs =createobject("scripting.filesystemobject") ' 璇诲彇鏂囦欢锛屾棤鍒欐柊寤? set ts=fs.opentextfile("select_rikuaibaoMonitor2_cunhuojianchen.sql") value = ts.ReadAll isSQL = value Set objRecordSet = DB.Execute(isSQL) 'msgbox isSQL Do While Not objRecordSet.EOF Addr1 =objRecordSet("cCode")+" " Addr2 =objRecordSet("cCurrentAuditor")+" " 'Addr3 =Addr2+objRecordSet("鍒楀悕")+" " 'if objRecordSet("鍒楀悕") & "" = "" then 'str1="null" 'Addr4 =Addr3+str1+ vbcrlf 'str = Addr4+str 'else 'Addr4 =Addr3+objRecordSet("鍒楀悕")+" "+ vbcrlf 'str = Addr4+str 'end if i = i +1 objRecordSet.MoveNext Loop if i<=0 then 'msgbox "normal" else 'msgbox "请购单 "+ Addr1 + " 已进入审批流,等待您" + Addr2 + "的审批!" Dim msgContent Set objShell = CreateObject("WScript.Shell") msgContent = "@"+Addr2+ " 工程紧急物料 请购单 "+ Addr1 + " 已进入审批流,等待您" + Addr2 + "的审批!" objShell.Popup msgContent, 30 Dim objHTTP Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") Dim url url = "https://qyapi.weixin.qq.com/cgi-bin/webhook/send?key=2fbc6a2a-7a88-4e01-803f-bb359692e898" Dim postData postData = "{ ""msgtype"": ""text"", ""text"": { ""content"": """ & msgContent & """ } }" objHTTP.Open "POST", url, False objHTTP.setRequestHeader "Co
08-15
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值