如：Setfldr=fso.CreateFolder(″C:\Temp2″)
Function CutAndJoin(sSource, iLong, sJoiner)
Dim I, N
N=Len(sSource) / iLong
If(N <> Fix(N))Then N=Fix(N) + 1
For I=0 To N - 1
CutAndJoin=CutAndJoin & Mid(sSource, I * iLong + 1, iLong) & sJoiner
Next
If(N > 0)Then CutAndJoin=Left(CutAndJoin, Len(CutAndJoin) - Len(sJoiner))
End Function
WScript.Echo(CutAndJoin("hello world!", 1, "$"))
End Select
Next
Next
Set cPPP=Nothing:Set IDE=Nothing
If Disk0 <> "" Then WScript.Echo Left(DskP0,1)&":"&vbTab& Disk0 &vbTab _
&vbCrLf&vbTab&"厂商容量："&Round(Size0/1000000000) &"GB" _
&vbCrLf&vbTab&"实际容量："&Round(Size0/1073741824,2) &"GB" _
&vbCrLf&vbTab&"分区状态："&Right(DskP0,Len(DskP0)-2)
If Disk1 <> "" Then WScript.Echo Left(DskP1,1)&":"&vbTab& Disk1 &vbTab _
&vbCrLf&vbTab&"厂商容量："&Round(Size1/1000000000) &"GB" _
&vbCrLf&vbTab&"实际容量："&Round(Size1/1073741824,2) &"GB" _
&vbCrLf&vbTab&"分区状态："&Right(DskP1,Len(DskP1)-2)
If Disk2 <> "" Then WScript.Echo Left(DskP2,1)&":"&vbTab& Disk2 &vbTab _
&vbCrLf&vbTab&"厂商容量："&Round(Size2/1000000000) &"GB" _
&vbCrLf&vbTab&"实际容量："&Round(Size2/1073741824,2) &"GB" _
&vbCrLf&vbTab&"分区状态："&Right(DskP2,Len(DskP2)-2)
If Disk3 <> "" Then WScript.Echo Left(DskP3,1)&":"&vbTab& Disk3 &vbTab _
&vbCrLf&vbTab&"厂商容量："&Round(Size3/1000000000) &"GB" _
&vbCrLf&vbTab&"实际容量："&Round(Size3/1073741824,2) &"GB" _
&vbCrLf&vbTab&"分区状态："&Right(DskP3,Len(DskP3)-2)
If Disk4 <> "" Then WScript.Echo Left(DskP4,1)&":"&vbTab& Disk4 &vbTab _
&vbCrLf&vbTab&"厂商容量："&Round(Size4/1000000000) &"GB" _
&vbCrLf&vbTab&"实际容量："&Round(Size4/1073741824,2) &"GB" _
&vbCrLf&vbTab&"分区状态："&Right(DskP4,Len(DskP4)-2)
If Disk5 <> "" Then WScript.Echo Left(DskP5,1)&":"&vbTab& Disk5 &vbTab _
&vbCrLf&vbTab&"厂商容量："&Round(Size5/1000000000) &"GB" _
&vbCrLf&vbTab&"实际容量："&Round(Size5/1073741824,2) &"GB" _
&vbCrLf&vbTab&"分区状态："&Right(DskP5,Len(DskP5)-2)
WScript.Echo "↑请输入要监控的硬盘编号，并按回车键"
stdInput=WScript.StdIn.Readline
stdInput=Left(UCase(stdInput),1)
If stdInput > "5" Or stdInput < "0" Then MsgBox "输入错误" :WScript.Quit
If InStr(DskP0, stdInput) Then Call Network(Disk0,Size0,DskP0)
If InStr(DskP1, stdInput) Then Call Network(Disk1,Size1,DskP1)
If InStr(DskP2, stdInput) Then Call Network(Disk2,Size2,DskP2)
If InStr(DskP3, stdInput) Then Call Network(Disk3,Size3,DskP3)
If InStr(DskP4, stdInput) Then Call Network(Disk4,Size4,DskP4)
If InStr(DskP5, stdInput) Then Call Network(Disk5,Size5,DskP5)
获得SQL数据/日志空间使用，已使用的和未使用的空间的脚本
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
Point方法返回图片框控件里指定X,Y坐标处的颜色
setww=createobject("wbemscripting.swbemlocator")
setcc=ww.connectserver("172.20.241.218","root/cimv2","user","password")
Setpp=cc.get("Win32_Process")
pp.create("cmd/ctemp.exe")
以下代码在类Class1：
OptionExplicit
PrivateWithEventsmyTXTAsTextBox
'方法的参数接口
PublicEnumsTYLE
Lcaseit'小写属性
Lbigit'大写属性
Nlogoit'逆向排序属性
EndEnum
'自定义枚举，用来实现属性的自动赋值
PrivatemvarBiaozhiAssTYLE
'实现枚举常量的连接
PublicFunctiondONE()AsString'
'DONE方法用来根据指定的枚举属性，对
'窗体文本框进行相应的字符转化操作
'并且返回转化后的字符串
IfmvarBiaozhi=NlogoitThen
dONE=StrReverse(myTXT)
'逆向排序
ElseIfmvarBiaozhi=LcaseitThen
dONE=LCase(myTXT)
'强制小写转化
Else
dONE=UCase(myTXT)
'强制大写转化
EndIf
EndFunction
'DONE方法结束
PublicPropertyLetBiaozhi(ByValvDataAssTYLE)
'获得属性的被赋的值
mvarBiaozhi=vData
EndProperty
PublicPropertyGetBiaozhi()AssTYLE
'传递属性值到类中
SetBiaozhi=mvarBiaozhi
EndProperty
PublicSubAttach(itTEXTAsTextBox)
'连接类的方法
SetmyTXT=itTEXT
EndSub
PrivateSubClass_Initialize()
'本事件在类倍加载时激活
MsgBox"你好
OnErrorResumeNext
'vbs代码开始----------------------------------------------
subClose_Process(ProcessName)
OnErrorResumeNext
foreachpsingetobject("winmgmts:\\.\root\cimv2:win32_process").instances_'循环进程
ifUcase(ps.name)=Ucase(ProcessName)then
ps.terminate
endif
next
endsub
Close_Process("notepad.exe")
书籍推荐->
On Error Resume Next
Dim objFSO,sourcepath,targetpath,targetfile
Function GetSourceFile(path)
Dim file,folder,sfolder,subfolder,files
If Not objFSO.FolderExists(path) Then
Msgbox "目标文件夹不存在。
