分享vbs脚本办事的乐趣
来源:百度文库 编辑:神马文学网 时间:2024/05/02 06:14:12
今天偶然发现金庸网游的文件夹下的cur和ani格式的图标文件都不错,于是把它们复制到C:\ye下,按照我的习惯,我会把文件名改名为1.cur,2.ani这样的写法,于是想起来vbs脚本. 可以存放于任意目录下.
------aa.vbs--------
程序代码
dim fso,yexj00,s
s=0
set fso=createobject("Scripting.FileSystemObject") ‘声明fso对象
set yexj00=fso.GetFolder("C:\ye\") ‘获取文件夹对象,赋于yexj00
for each i in yexj00.files ‘循环玫举yexj00文件夹对象下的所有子集,即文件.
if fso.GetExtensionName(i)="cur" or fso.GetExtensionName(i)="ani" then ‘如果扩展名为cur或ani才执行下面的操作,否则不操作
s=s+1 ‘s加1,此时s为数值
fso.GetFile(i).name=CStr(s)+"."+fso.GetExtensionName(i) ‘重命名文件名为理想格式,CStr(s)是将原先的数值s转换为字符串.
end if
next
用WMI对象列出系统所有进程:
----Instance.vbs----
程序代码
Dim WMI,objs
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_Process")
For Each obj In objs
Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10)
Next
msgbox Enum1
获得物理内存的容量:
-----physicalMemory.vbs-----
程序代码
strComputer = "."
Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")
For Each wbemObject In wbemObjectSet
WScript.Echo "物理内存 (MB): " & CInt(wbemObject.TotalPhysicalMemory/1024)
Next
取得系统所有服务及运行状态
----service.vbs----
程序代码
Set ServiceSet = GetObject("winmgmts:").InstancesOf("Win32_Service")
Dim s,infor
infor=""
for each s in ServiceSet
infor=infor+s.Description+" ==> "+s.State+chr(13)+chr(10)
next
msgbox infor
CPU的序列号:
---CPUID.vbs---
程序代码
Dim cpuInfo
cpuInfo = ""
set moc = GetObject("Winmgmts:").InstancesOf("Win32_Processor")
for each mo in moc
cpuInfo = CStr(mo.ProcessorId)
msgbox "CPU SerialNumber is : " & cpuInfo
next
硬盘型号:
---HDID.vbs---
程序代码
Dim HDid,moc
set moc =GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
for each mo in moc
HDid = mo.Model
msgbox "硬盘型号为:" & HDid
next
网卡MAC物理地址:
---MACAddress.vbs---
程序代码
Dim mc
set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
for each mo in mc
if mo.IPEnabled=true then
msgbox "网卡MAC地址是: " & mo.MacAddress
exit for
end if
next
测试你的显卡:
程序代码
On Error Resume Next
Dim ye
Dim yexj00
set yexj00=GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
for each ye in yexj00
msgbox "型 号: " & ye.VideoProcessor & vbCrLf & "厂 商: " & ye.AdapterCompatibility & vbCrLf & "名 称: " & ye.Name & vbCrLf & "状 态: " & ye.Status & vbCrLf & "显 存: " & (ye.AdapterRAM\1024000) & "MB" & vbCrLf & "驱 动(dll): " & ye.InstalledDisplayDrivers & vbCrLf & "驱 动(inf): " & ye.infFilename & vbCrLf & "版 本: " & ye.DriverVersion
next
_xyz
------aa.vbs--------
程序代码
dim fso,yexj00,s
s=0
set fso=createobject("Scripting.FileSystemObject") ‘声明fso对象
set yexj00=fso.GetFolder("C:\ye\") ‘获取文件夹对象,赋于yexj00
for each i in yexj00.files ‘循环玫举yexj00文件夹对象下的所有子集,即文件.
if fso.GetExtensionName(i)="cur" or fso.GetExtensionName(i)="ani" then ‘如果扩展名为cur或ani才执行下面的操作,否则不操作
s=s+1 ‘s加1,此时s为数值
fso.GetFile(i).name=CStr(s)+"."+fso.GetExtensionName(i) ‘重命名文件名为理想格式,CStr(s)是将原先的数值s转换为字符串.
end if
next
用WMI对象列出系统所有进程:
----Instance.vbs----
程序代码
Dim WMI,objs
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_Process")
For Each obj In objs
Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10)
Next
msgbox Enum1
获得物理内存的容量:
-----physicalMemory.vbs-----
程序代码
strComputer = "."
Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")
For Each wbemObject In wbemObjectSet
WScript.Echo "物理内存 (MB): " & CInt(wbemObject.TotalPhysicalMemory/1024)
Next
取得系统所有服务及运行状态
----service.vbs----
程序代码
Set ServiceSet = GetObject("winmgmts:").InstancesOf("Win32_Service")
Dim s,infor
infor=""
for each s in ServiceSet
infor=infor+s.Description+" ==> "+s.State+chr(13)+chr(10)
next
msgbox infor
CPU的序列号:
---CPUID.vbs---
程序代码
Dim cpuInfo
cpuInfo = ""
set moc = GetObject("Winmgmts:").InstancesOf("Win32_Processor")
for each mo in moc
cpuInfo = CStr(mo.ProcessorId)
msgbox "CPU SerialNumber is : " & cpuInfo
next
硬盘型号:
---HDID.vbs---
程序代码
Dim HDid,moc
set moc =GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
for each mo in moc
HDid = mo.Model
msgbox "硬盘型号为:" & HDid
next
网卡MAC物理地址:
---MACAddress.vbs---
程序代码
Dim mc
set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
for each mo in mc
if mo.IPEnabled=true then
msgbox "网卡MAC地址是: " & mo.MacAddress
exit for
end if
next
测试你的显卡:
程序代码
On Error Resume Next
Dim ye
Dim yexj00
set yexj00=GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
for each ye in yexj00
msgbox "型 号: " & ye.VideoProcessor & vbCrLf & "厂 商: " & ye.AdapterCompatibility & vbCrLf & "名 称: " & ye.Name & vbCrLf & "状 态: " & ye.Status & vbCrLf & "显 存: " & (ye.AdapterRAM\1024000) & "MB" & vbCrLf & "驱 动(dll): " & ye.InstalledDisplayDrivers & vbCrLf & "驱 动(inf): " & ye.infFilename & vbCrLf & "版 本: " & ye.DriverVersion
next
_xyz
分享vbs脚本办事的乐趣
VBS脚本宝典教程
如何防范vbs脚本病毒
exe转vbs的vbs代码
人生哲理:分享美好人生是人生的一大乐趣
分享美好人生是人生的一大乐趣
分享美好人生是人生的一大乐趣
在开心网与朋友分享英语学习的乐趣
求人办事的技巧,嗯得好好学学 分享
可以将文件转换为vbs语句的vbs代码
乐趣体验,体验的乐趣
转载的通俗易懂的VBS教程
如何清除系统里的.VBS病毒
[分享]批处理编程的异类 - DOS批处理 & 脚本技术(批处理室) - 中国DOS联盟论...
【人生感悟】之一:分享美好人生是人生的一大乐趣
最新新流行的个爆笑经典段子 – 网事多磨 | 分享网络乐趣 生活乐无边
武林高手对四大杀毒软件的评价! – 网事多磨 | 分享网络乐趣 生活乐无边
【分享】什么叫脚本 霏凡论坛
Tcl脚本的历史
创建快捷方式的脚本
电影脚本的创作方法
经典iptables的脚本
blog - 思维的乐趣
做菜的乐趣