VBS
蓦然回首时已逝
这个作者很懒,什么都没留下…
展开
-
VBS下载文件
'把以下代码存成.VBS,然后在命令行里调用。参数为:网址 本地文件 dim url dim file Set objArgs = WScript.Arguments if objArgs.Count < 2 then msgbox("Invalid param count! should be: url pathfilename") Else url = objArgs(0) file = objArgs(1) GetHttpResult url...原创 2020-05-15 10:28:01 · 1901 阅读 · 0 评论 -
获取系统版本号
Dim str Set object = GetObject("winmgmts:") Set os = object.ExecQuery("SELECT * FROM Win32_OperatingSystem") For Each obj In os str = "System Version:" & obj.Version & Chr(13) next MsgBox str原创 2013-08-19 14:36:00 · 933 阅读 · 0 评论 -
获取系统位数
Dim str Set object = GetObject("winmgmts:") Set cs = object.ExecQuery("select * from Win32_ComputerSystem") for each obj in cs if InStr(obj.SystemType,"x64") str = "System : X64" ElseIf InStr(o原创 2013-08-19 14:38:22 · 730 阅读 · 0 评论 -
VBS获取服务的信息
Set WMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set ListOfServices = WMIService.ExecQuery("Select * from Win32_Service Where name ='" & name & "'") For Each原创 2013-08-19 14:50:36 · 1452 阅读 · 0 评论 -
VC++ 调作VBS脚本
在全使用之前需要调用::CoInitialize(NULL); #import "C:\WINDOWS\System32\msscript.ocx" raw_interfaces_only, raw_native_types, no_namespace, named_guids //scriptType 脚本名称 //scriptCode 脚本代码 //scriptEntry 脚本入口函数名...原创 2019-03-05 14:08:29 · 835 阅读 · 0 评论