Welcome

首页 / 编程脚本

VBS显示当前标准时间

2017-02-06 19
VBS显示当前标准时间，例如：执行下面的代码则显示：2013-05-11 19:10:11Option Explicit Dim blnDate, blnTimeDim dtmDateDim intDay, intFormat, intHour, intMin, intMonth, intSec, intUTC, intValid, intYearDim strISO With WScript.Arguments" Check command line a...

VBScript中On Error语句用法小结

2017-02-06 21
如果不使用 On Error 语句，则任何运行时错误都是致命的；也就是说，结果会导致显示错误信息并中止运行。一个“允许的”错误处理程序是由 On Error 语句打开的一个处理程序；一个“活动的”错误处理程序是处理错误的过程中允许的错误处理程序。On Error GoTo 0 表示禁止当前过程中任何已启动的错误处理程序。On Error Resume Next 说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要...

VBScript获取CPU使用率的方法

2017-02-06 16
VBScript通过WMI获取CPU使用率的代码度娘中，搜索关键词“WMI CPU使用率”，得到的全是《python使用WMI监视系统－CPU使用率》，不用看，肯定又是采集的。Python固然强大，但是调用WMI还是用VBS比较“正宗”。On Error Resume NextstrComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootcimv2"）Se...

使用vbs获取雅虎汇率

2017-02-06 21
使用vbs获取雅虎汇率Function bytes2bstr（vin）strreturn = ""for i = 1 to lenb（vin）thischarcode = ascb（midb（vin,i,1））if thischarcode < &h80 thenstrreturn = strreturn & chr（thischarcode）elsenextcharcode = ascb（midb（vin,i+1,1））strreturn = st...

使用vbs删除host文件域址内容

2017-02-06 18
要求：原先host里面已增加以下3行202.102.101.105 intranet.corp202.102.101.107 mail.intranet.corp202.102.101.108 sip.intranet.corp之后不需要此3行内容,所以运行以上vbs代码,来删除host文件此3行"该脚本要求执行用户有本地管理员权限Const ForReading = 1, ForWriting = 2, ForAppending = 8, ReadOnl...

VBS中解决带空格路径的三种方法

2017-02-06 24
方法一：Set wshell=CreateObject（"WScript.Shell"）wshell.Run """C:Program Files360360se360se.exe""",5,TrueSet wshell = Nothing方法二：temp="C:Program Files360360se3360se.exe"path = Chr（34） & temp & Chr（34）Set wshell=CreateObject（"WScript.Sh...

VBS实现查询服务的制造商

2017-02-06 16
一个网友提问：select * from win32_service 这个能查服务名称、状态……但我想查这个服务的制造商，如微软、农业银行，还是未知的？？这个属性是什么，谢谢……我发现msconfig中可以看见的，但无法提取下面给出解答，一种间接方法：根据服务名获取到关联的主程序，再从主程序获取制造商Set objWMIService = GetObject（"winmgmts:{impersonationLevel=impersonate}！\. oot...

VBS实现截图功能

2017-02-06 18
百度说，VBS很难截图，倒是有个利用第三方软件的方法，调用该软件，然后该软件会自动截图。但这样，违背了用VBS的初衷。用VBS就是因为它方便快捷。要是用第三方软件的话，干脆我们直接用VB写一个好了。那么...只好调用Excel用VBA去做了。有什么更好的方法吗？在度娘上翻了很久，没有什么好方法，因为实现截屏原本就不是微软设计vbs的初衷，更多的扩展功能是使用者的意愿，所以才会有第三方的出现，实际vbs调用vba也是这种方式，利用的是vba能调用API的特性...

VBS中Run和Exec的区别

2017-02-06 32
Set ws = CreateObject（"WScript.Shell"）"这里创建一个对象引用，以便在以下示例代码中使用。"Demon注：这个变量名怎么这么猥琐（WS）语法：（常识（Demon注：常识这个词我喜欢）：作为过程使用时，不要加括号，否则出现编译器错误（参数唯一或没有时加括号不会出错，但建议不要加））复制代码 代码如下:ws.Run（strCommand, [intWindowStyle], [bWaitOnReturn]）[Set objE...

VBS获取GZIP压缩的HTTP内容的实现代码

2017-02-06 17
不少网站为了提高加载速度，启用HTTP服务器的GZIP压缩功能，当客户端发送的HTTP请求中声明可以接受GZIP编码时，服务器自动对HTTP响应内容进行GZIP压缩。但是，在VBS中想自动对GZIP编码进行解压就没有那么容易了。不同组件对GZIP压缩的处理不尽相同，首先看Msxml2.XMLHTTP："By Demon"http://demon.twDim httpSet http = CreateObject（"Msxml2.XMLHTTP"）http....

VC中实现文字竖排的简单方法（推荐）

2017-02-06 26
好多人都觉得在VC中实现文字竖排是一件很难的事情，其实可以使用“躺”着的字体很方便的实现文字竖排。Windows中有一些字体是“躺”着的，例如：@Fixedsys、@System、@宋体、@黑体等等，有很多，这些字体和不加@的字体的唯一区别就是用这些字体显示的文字是“躺”着的。如下图：对这些“躺”着的字体进行270°的旋转就可以实现文字竖排了，效果如下：以下代码可以产出竖排的宋体。CFont font;CFont *pOldFont; font.Creat...

Powershell 之批量获取文件大小的实现代码

2017-02-05 22
效果图：核心代码$startFolder = "D:"$colItems = （Get-ChildItem $startFolder | Where-Object {$_.PSIsContainer -eq $True} | Sort-Object）foreach （$i in $colItems）{ $subFolderItems = （Get-ChildItem $i.FullName -recurse | Measure-Object -proper...

powershell远程管理服务器磁盘空间的实现代码

2017-02-05 17
一、启用远程管理1、将管理服务器的trusthost列表改为*运行Set-item wsman:localhostclient rustedhosts –value *2、在远程服务器上运行Enable-PSremoting注：在本地服务器上以Administrator运行“Enable-Psremoting 、 Winrm Quickconfig 、 Set-WSManQuickConfig”，均提示“访问被拒绝”，可能的原因如下：1.在工作组计算机上，...

PowerShell 读取性能计数器二进制文件（.blg）记录并汇总计算

2017-02-05 18
由于监控及报告需要，要统计性能计数器每天数值情况，确认数据库服务器的运行状况。若打开计数器填写，比较麻烦，现在统计用 powershell 来读取计数器的值。第一阶段：Powershell 读取计数器文件并统计其中一个计数器的值$startDate = （Get-Date）.AddDays（-1）.Date $endDate = （Get-Date）.Date $perfPath = "D:DataFilesPERFMONMSSQL_PERFMON_082...

PowerShell连接SQL SERVER数据库进行操作的实现代码

2017-02-05 31
核心代码#配置信息$Database= "DemoDB"$Server= ""WIN-AHAU9NO5R6UDOG""$UserName= "kk"$Password= "123456"#创建连接对象$SqlConn = New-Object System.Data.SqlClient.SqlConnection#使用账号连接MSSQL$SqlConn.ConnectionString = "Data Source=$Server;Initial Cata...

PowerShell使用match操作符来筛选数组

2017-02-05 15
先看下面这个例子：PS C:UsersHong> （ipconfig） -match "IPv4"IPv4 地址 . . . . . . . . . . . . : 192.168.1.102IPv4 地址 . . . . . . . . . . . . : 192.168.193.1IPv4 地址 . . . . . . . . . . . . : 192.168.93.1我们知道ipconfig是显示当前计算机的TCP/IP配置信息的，其中有一项...

用PowerShell删除N天前或指定日期（前后）创建（或修改）的文件

2017-02-05 20
本来想用批处理的，想想算时间太麻烦了……立马安装PowerShell看帮助文档，里面有个例子：以下命令查找 Program Files 文件夹中上次修改日期晚于 2005 年 10 月 1 日并且既不小于 1 MB 也不大于 10 MB 的所有可执行文件（测试发现没法运行-_-！）：Get-ChildItem -Path $env:ProgramFiles -Recurse -Include *.exe | Where-Object `-FilterScr...

PowerShell因为在此系统中禁止执行脚本的解决方法

2017-02-05 43
在Powershell直接脚本时会出现：无法加载文件 ******.ps1，因为在此系统中禁止执行脚本。有关详细信息，请参阅 "get-help about_signing"。 所在位置 行:1 字符: 17 + E:Test est.ps1 <<<< + CategoryInfo : NotSpecified: （:） [], PSSecurityException + FullyQualifiedErrorId : Runtim...

Windows PowerShell 微软官方解释

2017-02-05 35
通过提供一百多种系统管理实用工具、一致的语法、及对普通管理数据更好地导航（如登记或 Windows Management Instrumentation （WMI）），Windows PowerShell 使 Windows 管理员提高了生产力。Windows PowerShell 还包括全面启动 Windows 系统自动化管理任务的脚本编写语言。Windows PowerShell 语言是直观的，并支持贵企业现有的脚本和命令行工具投入。Exchange ...

探索PowerShell（一） 初识 PowerShell

2017-02-05 15
Windows PowerShell 是一个新的……好吧，我相信你在看本文之前已经把这句话看过N遍了……PowerShell是一个由微软的提供的全新shell程序，使用了全新的命令提示和脚本环境。使用PowerShell会给系统管理员带来什么？学习PowerShell的好处又是什么？如果你已经有了管理并使用VBScript的经验，相信你已经知道答案了。Active Directory域现在已经变得更加庞大和复杂，对于那些被束缚在GUI和Microsoft...
<< 51 52 53 54 55 56 57 58 59 60 >>
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图