VBS
蓦然回首时已逝
这个作者很懒,什么都没留下…
展开
-
VBS下载文件
'把以下代码存成.VBS,然后在命令行里调用。参数为:网址 本地文件dim urldim fileSet objArgs = WScript.Argumentsif 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 · 1944 阅读 · 0 评论 -
获取系统版本号
Dim strSet 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 · 952 阅读 · 0 评论 -
获取系统位数
Dim strSet object = GetObject("winmgmts:")Set cs = object.ExecQuery("select * from Win32_ComputerSystem")for each obj in csif InStr(obj.SystemType,"x64")str = "System : X64"ElseIf InStr(o原创 2013-08-19 14:38:22 · 746 阅读 · 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 · 1476 阅读 · 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 · 856 阅读 · 0 评论