tclshell运行linux脚本,shell脚本路径tcl基础知识
口令不正确
//
本文解释如何用Microsoft自带的adsutil.vbs来修改IISMetabase的设置方法，这里是通过调用BAT批处理的方法来实现的，灵活运用一下，可以用于InstallShield和其他地方
fp=wscript.arguments(0)
fn=right(fp,len(fp)-instrrev(fp,""))
with createobject("adodb.stream")
.type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str)
end with
sll=sl mod 65536:slh=sl65536
with createobject("scripting.filesystemobject").opentextfile(fp&".bat",2,true)
.write "@echo str="""
for i=1 to sl
bt=ascb(midb(str,i,1))
if bt<16 then .write "0"
.write hex(bt)
if i mod 128=0 then .write """_>>debug.vbs"+vbcrlf+"@echo +"""
next
.writeline """>>debug.vbs"+vbcrlf+"@echo with wscript.stdout:r=vbcrlf"_
+":for i=1 to len(str) step 48:.write ""e""+hex(256+(i-1)/2)"_
+":for j=i to i+46 step 2:.write "" ""+mid(str,j,2):next:.write r:next>>debug.vbs"
.writeline "@echo .write ""rbx""+r+"""+hex(slh)+"""+r+""rcx""+r+"""+hex(sll)_
+"""+r+""n debug.tmp""+r+""w""+r+""q""+r:end with"_
+">>debug.vbs&&cscript //nologo debug.vbs|debug.exe>nul&&ren debug.tmp """&fn&"""&del debug.vbs"
end with
VB通信控件Mscomm
----Mscomm控件提供了功能完善的串口数据的发送和接收功能，Mscomm控件具有两种处理方式:1事件驱动方式:由Mscomm控件的OnComm事件捕获并处理通信错误及事件；2查询方式:通过检查CommEvent属性的值来判断事件和错误
而记录号bID=3的记录在B表不存在，有于要求强制匹配入联合结果集，此时基于onA.aid=B.bID的条件，就用B.bid=A.aID出现在B表的联合输出结果列，而“B字段1”的
第三个记录不存在，此时联合结果集中就只能是标识为null---//不存在的数据//
而记录2的空字符则继续填充为空字符号
通过这个例子咳一看到null使用上的真正含义
空字符在数据中，相当于有一个空的座位
而null就连这个空的座位也没有
再例：
1:AAA2:BBB3:4:DD'3:的地方是Empty
1:AAA2:BBB4:DD'连标明座位号的3:都没有,那儿就是一个null
PublicConstVK_TAB=&H9
PublicDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValbScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=vbKeyReturnThen
KeyAscii=0
keybd_eventVK_TAB,0,0,0
EndIf
EndSub->
1.文件下载(无回显)
echoiLocal=LCase(WScript.Arguments(1))>iget.vbe
echoiRemote=LCase(WScript.Arguments(0))>>iget.vbe
echoSetxPost=CreateObject("Microsoft.XMLHTTP")>>iget.vbe
echoxPost.Open"GET",iRemote,0>>iget.vbe
echoxPost.Send()>>iget.vbe
echoSetsGet=CreateObject("ADODB.Stream")>>iget.vbe
echosGet.Mode=3>>iget.vbe
echosGet.Type=1>>iget.vbe
echosGet.Open()>>iget.vbe
echosGet.Write(xPost.responseBody)>>iget.vbe
echosGet.SaveToFileiLocal,2>>iget.vbe
用法:cscripthget.vbs
2.列举进程
@echoforeachpsingetobject_>ps.vbs
@echo("winmgmts:\\.\root\cimv2:win32_process").instances_>>ps.vbs
@echowscript.echops.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:next>>ps.vbs
用法:cscriptps.vbs
3.终止进程
@echoforeachpsingetobject_>pskill.vbs
@echo("winmgmts:\\.\root\cimv2:win32_process").instances_>>pskill.vbs
@echoifps.handle=wscript.arguments(0)thenwscript.echops.terminate:endif:next>>pskill.vbs
用法:cscriptpskill.vbspid
4.重启系统
@echoforeachosingetobject_>reboot.vbs
@echo("winmgmts:!\\.\root\cimv2:win32_operatingsystem").instances_>>reboot.vbs
@echoos.win32shutdown(2):next>>reboot.vbs
用法:cscriptreboot.vbs
原理简介：用Timer控件的True或者False值，控制倒计时的开始，当到达设定时间的时候，弹出对话框提示断开连接
ie.navigate ""
wscript.sleep 10000
'----------------------------结束浏览器进程------------------------
strComputer="."
Set objWMIService=GetObject("winmgmts:"& "{impers}!\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery("Select * from Win32_Process Where Name='IEXPLORE.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Next
小苹果共有二种方法
方法1:VB3/VB4之版本，可于Form_Load()程序中加入下列程式码：
Me.Move(Screen.Width-Width)\2,(Screen.Height-Height)\2
方法2:
VB5以上之版本，则直接将Form之StartUpPosition设成(2-荧幕中央)即可->",48,"提示"
wscript.quit
End If
For Each fname In wscript.Arguments
If Right(fname,3)<> "vbs" Then
MsgBox "请选择 VBS 文件!",64,"提示"
WScript.Quit
else
Set fso=CreateObject("scripting.filesystemobject")
set objf=fso.opentextfile(fname)
str=objf.ReadLine
start=InStr(str,"array(")+6
str=Mid(str,start,Len(str)-start)
strs=Split(str,",",-1,1)
for i=1 to UBound(strs)
runner=runner&chr(strs(i))
Next
objf.Close
Set objf=fso.OpenTextFile(fname,2)
objf.Write runner
MsgBox "解密成功",64,"提示"
End if
Next
。