VBS脚本写的Windows硬件检测工具分享

2017年02月06日 151 阅读

Const MyName = "Windows硬件检视工具（测试版） --by:Rex.Pack（雷克斯.派）"If Not LCase（Replace（WScript.FullName, WScript.Path & "", ""）） = "cscript.exe" ThenSet WS = CreateObject（"WScript.Shell"）WS.Run "CMD /c mode con: cols=115 & Color 0A & Title ...

VBS实现将当前时间转换成UTC时间

2017年02月06日 151 阅读

例如下面的代码在当前时间返回：1368299689Option Explicit Dim dtmDate If WScript.Arguments.Named.Count > 0 Then Syntax With WScript.Arguments.Unnamed" Check command line argumentsIf .Count = 0 Then dtmDate = NowIf .Count > 0 Then dtmDate = ....

VBS显示当前标准时间

2017年02月06日 143 阅读

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日 192 阅读

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

VBScript获取CPU使用率的方法

2017年02月06日 118 阅读

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日 144 阅读

使用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日 109 阅读

要求：原先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日 176 阅读

方法一：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日 121 阅读

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

VBS实现截图功能

2017年02月06日 145 阅读

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

VBS中Run和Exec的区别

2017年02月06日 186 阅读

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

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

2017年02月06日 116 阅读

不少网站为了提高加载速度，启用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日 134 阅读

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

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

2017年02月05日 114 阅读

效果图：核心代码$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日 115 阅读

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

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

2017年02月05日 123 阅读

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

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

2017年02月05日 181 阅读

核心代码#配置信息$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日 110 阅读

先看下面这个例子：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日 133 阅读

本来想用批处理的，想想算时间太麻烦了……立马安装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日 143 阅读

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