在將HierarchicalFlexGrid綁定到數(shù)據(jù)源之后，HierarchicalFlexGrid在設(shè)計(jì)時(shí)屏幕顯示是一個(gè)空白列和一個(gè)空白行setws=createobject("wscript.shell")

setfso=createobject("scripting.filesystemobject")

setfolder=fso.getfolder(ws.currentdirectory)

setfiles=folder.files

foreachfileinfiles

d=d&file.name&","

next

Randomize

DoUntilD=""

s=Split(D,",")

M=UBound(s)

h=Int(Rnd*M)

N=s(h)

sn=sn&N&vbcr

D=Replace(D,N&",","",1,1)

Loop

MsgBoxsn

這不，笨笨拿著電話單正偷著樂呢

Set objAD=CreateObject("ADSystemInfo")

Wscript.Echo "Your Computer Name is " & objAD.ComputerName

Wscript.Echo "Your Username is " & objAD.UserName

WScript.Echo("Hello")

WScript.Interactive=false

WScript.Echo("This wont display")

WScript.Interactive=true

WScript.Echo("This will display")

box.SelStart=start

box.SelLength=length

box.SelFontSize=box.Font.Size-abs(offset)

box.SelCharOffset=ScaleY(offset,vbPoints,vbTwips)

box.SelStart=0

box.SelLength=0

EndSub

該程序在VB4/32和VB5上調(diào)試通過

獲得對組的對象引用后，我們所要做的全部工作便是調(diào)用Remove方法，將該組從本地Administrators組中刪除：

objAdmins.Remove(objGroup.ADsPath)

我們?nèi)匀徽J(rèn)為撕掉該人襯衣上的口袋保護(hù)袋，然后用膝蓋折斷他的訂書機(jī)會更酷，但這已經(jīng)可以達(dá)到目的速度很快，但不是最快

禁用注冊表

－－－－－－

首先，2000/xp/2003用戶，運(yùn)行：services.msc；禁用服務(wù)RemoteRegistry，這樣別人就不能遠(yuǎn)程修改你的注冊表了漫畫投稿網(wǎng)站本例僅需要一個(gè)TextBox控件獲得SQL數(shù)據(jù)/日志空間使用，已使用的和未使用的空間的腳本

getSQLinfo.vbs

'scripttogetSQLDATA/LOGSpaceUsed,Spaceunused,

andSpaceFree

'Author:FelipeFerreira,DanielMagrini

'Date:05/07/07

'Version2,0

'@@TOCHANGE:::SERVERNAME\Instance,domain?passwordANDDATABSE!

'____________________________________________________________________________

ConstForReading=1,ForWriting=2,ForAppending=8

SetoFSO=CreateObject("Scripting.FilesyStemObject")

outputfile="CheckSqlDB_Size.txt"

Setofile=oFso.OpenTextFile(outputfile,8,True)

oFile.Writeline"######################################################"

oFile.Writeline"Thiscommandexecutedin"&Date&"at"&Time&VbCrLf

'____________________________________________________________________________

CheckSQLData

CheckSQLLOG

'##############GETSQLDATASPACEUSED,SPACETOTAL,SPACEFREE

'FunctioncheckSQL(strServer,strDB)inthefuturemakeitafunction....

SubCheckSQLDATA

ConstadOpenDynamic=1,adLockOptimistic=3

DimstrQuery

DimobjConnection,objRecordSet

DimstrQueryResult,strQueryResult2

DimUsedDataSpace,TotalDataSpace,FreeDataSpace

SetobjConnection=CreateObject("ADODB.Connection")

SetobjRecordSet=CreateObject("ADODB.Recordset")

objConnection.Open_

"Provider=SQLOLEDB.1;Server=192.168.8.10;UserID=sa;Password=lcx;Database=master;"

strQuery="DBCCshowfilestats"

objRecordSet.OpenstrQuery,objConnection,adOpenDynamic,adLockOptimistic

ifobjRecordSet.eofThen

'nothingreturned

wscript.echo"ERROR!!!"

Else

'NOTE:TogetthevalueinMB64/1024=0.0625

DoUntilobjRecordSet.eof

strQueryResult=objRecordSet.Fields("UsedExtents")

UsedDataSpace=strQueryResult*0.0625

strQueryResult2=objRecordSet.Fields("TotalExtents")

TotalDataSpace=strQueryResult2*0.0625

FreeDataSpace=TotalDataSpace-UsedDataSpace

'CleanData

UsedDataSpace=Left(UsedDataSpace,4)

FreeDataSpace=Left(FreeDataSpace,4)

TotalDataSpace=Left(TotalDataSpace,4)

'PrintResultonScreen

Wscript.echo"UsedSpace(MB)="&UsedDataSpace

Wscript.Echo"FreeSpace(MB)="&FreeDataSpace

Wscript.Echo"TotalSpace(MB)="&TotalDataSpace

'WriteonFile

ofile.WriteLine"UsedDATASpace(MB)="&UsedDataSpace

ofile.WriteLine"FreeDATASpace(MB)="&FreeDataSpace

ofile.WriteLine"TotalDATASpace(MB)="&TotalDataSpace

objRecordSet.MoveNext

loop

endif

objRecordSet.Close

objConnection.Close

setobjConnection=nothing

setobjRecordSet=nothing

endsub

SubCheckSQLLOG

ConstadOpenDynamic=1,adLockOptimistic=3

DimstrQuery

DimobjConnection,objRecordSet

DimstrQueryResult,strQueryResult2

DimUsedLogSpace,TotalLogSpace,FreeLogSpace

SetobjConnection=CreateObject("ADODB.Connection")

SetobjRecordSet=CreateObject("ADODB.Recordset")

objConnection.Open_

"Provider=SQLOLEDB.1;Server=192.168.8.10;UserID=sa;Password=lcx;Database=master;"

strQuery="DBCCSQLPERF(LOGSPACE)"

objRecordSet.OpenstrQuery,objConnection,adOpenDynamic,adLockOptimistic

ifobjRecordSet.eofThen

'nothingreturned

wscript.echo"ERROR!!!"

Else

DoUntilobjRecordSet.eof

IfobjRecordSet.Fields("DatabaseName")="master"Then

strQueryResult=objRecordSet.Fields("LogSize(MB)")

strQueryResult2=objRecordSet.Fields("LogSpaceUSed(%)")

UsedLogSpace=(strQueryResult*strQueryResult2)/100

TotalLogSpace=strQueryResult

FreeLogSpace=TotalLogSpace-UsedLogSpace

'CleanData

UsedLogSpace=Left(UsedLogSpace,4)

FreeLogSpace=Left(FreeLogSpace,4)

TotalLogSpace=Left(TotalLogSpace,4)

'PrintResultonScreen

Wscript.echo"UsedSpace(MB)="&UsedLogSpace

Wscript.Echo"FreeSpace(MB)="&FreeLogSpace

Wscript.Echo"TotalSpace(MB)="&TotalLogSpace

'WriteonFile

oFile.WriteLine"UsedLOGSpace(MB)="&UsedLogSpace

oFile.WriteLine"FreeLOGSpace(MB)="&FreeLogSpace

oFile.WriteLine"TotalLOGSpace(MB)="&TotalLogSpace

oFile.close

ExitDo

EndIf

objRecordSet.MoveNext

loop

endif

objRecordSet.Close

objConnection.Close

setobjConnection=nothing

setobjRecordSet=nothing

endsub

WSCript.Quit

。

總結(jié)

以上是生活随笔為你收集整理的360浏览器html5脚本,360浏览器运行脚本易培训的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。