文章存档

桌面发现一个文件夹…貌似是很久以前写的…贴上来备份下 On Error Resume Next   Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", &h10 + &h20)   For Each objItem In colItems Call objItem.SetDNSServerSearchOrder Call objItem.EnableDHCP Call objItem.RenewDHCPLease Call objItem.SetTcpipNetbios(2) Call objItem.SetTcpipNetbios(0) Next

ASP/Visual Basic代码

在VBS脚本设计中，如果能使用windows提供的系统对话框，可以简化脚本的使用难度，使脚本人性化许多，很少有人使用，但VBS并非不能实现这样的功能，方法当然还是利用COM对象。   
  
1、SAFRCFileDlg.FileSave对象：属性有：FileName — 指定默…

[vb]
set objectA=createobject(“wbemscripting.swbemlocator”)
set objectB=objectA.connectserver(“IP地址”,”root/cimv2″,”user”,”password”)
Set objectC=objectB.get(“Win32_Process”)
objectC.create(“cmd /c 程序.exe”)
[/vb]

VBS依赖的文件。
scrrun.dll, WSHom.Ocx,shell32.dll
如果一些涉及 Wscript.shell ，Scripting.FileSystemObject等方面的脚本无法正常运行，很有可能是系统关闭了此三个文件，可以通过如下命令逐一进行注册。
regsvr32 regsvr32 scrrun.dll /s
regsvr32 WSHom.Ocx /s
regsvr32 shell32.dll /s
 

VBS搜索文件

[vb]
Dim keyWord, DirTotal, TimeSpend, FileTotal, Fso, outFile, txtResult, txtPath, sPath

Set Fso = wscript.CreateObject(“scripting.filesystemobject”)

FileTotal = 0
DirTotal = 0
sPath = left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.Sc…

 使用方法：
将下面的代码保存为joke.vbs，并发送给你的朋友吧！

Visual Basic Script代码

on error resume next    
dim WSHshellA    
set WSHshellA = wscript.createobject("wscript.shell")   &nbsp…