VBScript基于WSH编程
大学时期也用过VBScript,不过都是基于ASP的,近期因工作需要,尝试在WSH(windows script host)下编程,实现列示oracle client下tnsnames.ora文件的主要信息(TNSname、HOST、SID),大体思路是:判断当前系统下oracle路径,从系统变量中读取具体path,通过Wscript下的文件对象读取文件,分隔path,截取ora文件中的需要信息,下面是具体实现的脚本:
为含山等地区用户提供了全套网页设计制作服务,及含山网站建设行业解决方案。主营业务为成都网站建设、成都网站设计、含山网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
option explicit 'on error resume next call Main Sub Main dim homes homes = ReadOracleHome call ReadTNS(homes) End Sub 'Date:2014-10-15 'Author:Alan Function ReadTNS(homes) dim i,j,k,fs,ts,f,strAll,strTSNname(100),strHost(100),strServiceName(100),contents,content(10),strTotal,txt set fs =WScript.CreateObject("Scripting.FileSystemObject") For i=0 to UBound(homes) If homes(i) <> "" Then '判断tns文件是否存在 If fs.FileExists(Mid(homes(i),1,Len(homes(i))-3)&"network\admin\tnsnames.ora") = true Then '读取tnsnames.ora文件 set f=fs.getfile(Mid(homes(i),1,Len(homes(i))-3)&"network\admin\tnsnames.ora") set ts = f.OpenAsTextStream(1,0) do while ts.AtEndOfStream <> true For j=0 to 100 if ts.AtEndOfStream =true then exit for End if txt= ts.ReadLine If InStr(StrReverse(Trim(txt)),"=")=1 and InStr(Trim(txt),"(")=0 Then strTSNname(j)=StrReverse(Mid(Trim(StrReverse(txt)),InStr(Trim(StrReverse(txt)),"=")+1)) 'msgbox strTSNname(j) ElseIf InStr(txt,"(HOST =")>0 Then If InStr(txt,")(PORT =")>0 Then strHost(j)=Trim(SplitStr(txt,"(HOST =",")(PORT =")) Else strHost(j)=Trim(SplitStr(txt,"(HOST =",")")) End If 'msgbox strHost(j) ElseIf InStr(txt,"(SERVICE_NAME=")>0 or InStr(txt,"(SID =")>0 Then IF InStr(txt,"(SERVICE_NAME=")>0 Then strServiceName(j)=Trim(SplitStr(txt,"(SERVICE_NAME=",")")) ElseIf InStr(txt,"(SID =")>0 Then strServiceName(j)=Trim(SplitStr(txt,"(SID =",")")) End IF 'msgbox strServiceName(j) End If 'msgbox "TNSName="+strTSNname(j)+" HOST="+strHost(j)+" SERVUCE_NAME/SID="+strServiceName(j)+vbNewLine Next Loop '去除数组中的空值 dim a,b,c,nstrTSNname,nstrHost,nstrServiceName a=sumArrayNotNullValue(strTSNname) b=sumArrayNotNullValue(strHost) c=sumArrayNotNullValue(strServiceName) nstrTSNname= dropArrayNullValue(strTSNname,maxThree(a,b,c)) nstrHost= dropArrayNullValue(strHost,maxThree(a,b,c)) nstrServiceName= dropArrayNullValue(strServiceName,maxThree(a,b,c)) '组织文本显示效果 For k=0 to maxThree(a,b,c) IF nstrTSNname(k) <>"" and nstrHost(k)<>"" and nstrServiceName(k)<>"" Then If contents="" Then contents="TNSName="+addSpaceToString(getMaxLength(nstrTSNname),nstrTSNname(k))+"HOST="+addSpaceToString(getMaxLength(nstrHost),nstrHost(k))+" SERVUCE_NAME/SID="+nstrServiceName(k)+vbNewLine 'contents="TNSName="+nstrTSNname(k)+" "+"HOST="+nstrHost(k)+" "+"SERVUCE_NAME/SID="+nstrServiceName(k)+" "+vbNewLine Else contents=contents+"TNSName="+addSpaceToString(getMaxLength(nstrTSNname),nstrTSNname(k))+"HOST="+addSpaceToString(getMaxLength(nstrHost),nstrHost(k))+" SERVUCE_NAME/SID="+nstrServiceName(k)+vbNewLine 'contents=contents+"TNSName="+nstrTSNname(k)+" "+"HOST="+nstrHost(k)+" "+"SERVUCE_NAME/SID="+nstrServiceName(k) +" "+vbNewLine End If End If Next 'msgbox contents content(i)=Mid(homes(i),1,Len(homes(i))-3)&"network\admin\tnsnames.ora 中TNS信息如下:" & vbNewLine+contents '置空本次循环的字符串变量,便于下次循环重新赋值 contents = "" '关闭对象 set ts=nothing set f= nothing Else MsgBox "在"& Mid(homes(i),1,Len(homes(i))-3)& "network\admin\ 路径下未找到tnsnames.ora文件。" ,,"Information" End If End If Next set fs = nothing For i=0 to UBound(content) IF content(i) <>"" Then strTotal=strTotal+content(i)+vbNewLine End IF Next call PopupShowStr(strTotal) End Function '读取ORACLE_HOME,返回一个homes数组(因为可能有多个oracle_home) Function ReadOracleHome dim WshShell,WshSysEnv,path,paths,i,oracle_homes,counter Set WshShell = WScript.CreateObject("WScript.Shell") Set WshSysEnv=WshShell.Environment("SYSTEM") path= WshSysEnv("PATH") '从系统环境变量PATH中分离出ORACLE_HOME paths = Split(path,";",-1,1) counter=0 For i=0 to UBound(paths) If InStr(UCase(paths(i)),"\APP\")>0 Then If InStr(UCase(paths(i)),"\PRODUCT\")>0 Then 'MsgBox "Found valid path: " & paths(i) oracle_homes = paths(i) paths(i)="" paths(counter)=oracle_homes counter=counter+1 End If Else paths(i)="" End If Next '函数FilterOracleHome的返回值为paths数组 ReadOracleHome = paths End Function '定义截取指定字符串之间字符串的函数 Function SplitStr(mainStr,findStartStr,findEndStr) dim strSplit,intStart,intLength If InStr(mainStr,findStartStr) >0 Then intStart=InStr(mainStr,findStartStr)+Len(findStartStr) intLength= InStr(mainStr,findEndStr) - intStart strSplit = Mid(mainStr,intStart,intLength) End If SplitStr = strSplit End Function '定义一个弹出框显示文本内容的函数 Function PopupShowStr(string) Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") '将文本内容显示在弹出框中 call WshShell.Popup(string,0,"TNS Lists:") End Function '定义一个去除数组中空值的函数 Function dropArrayNullValue(array,counter) dim i,j Redim arrNew(CInt(counter)) '如果array(i)为空,则后面的值往前移 For i=0 to UBound(array) IF array(i)<>"" Then arrNew(j)=array(i) j=j+1 End IF Next dropArrayNullValue=arrNew End Function '定义计算数组中非空值的个数函数 Function sumArrayNotNullValue(array) dim i,j j=0 For i=0 to UBound(array) IF array(i)<>"" Then j=j+1 End IF Next sumArrayNotNullValue=j End Function '求三个数中的最大值 Function maxThree(a,b,c) dim max max =a if a>b then if b>c then max=a else if a>c then max=a else max=c end if end if else if b>c then max=b else max=c end if end if maxThree=max End Function '获取字符串数组中值的最大长度 Function getMaxLength(array) dim i,max max=Len(Trim(array(0))) For i=0 to UBound(array) if Len(Trim(array(i))) > max then max=Len(Trim(array(i))) end if Next getMaxLength=max End Function '统一字符串数组中各值的长度,长度不够补空格 Function addSpaceToString(max,str) if max-Len(str)>0 then addSpaceToString=str +String(max-Len(str)," ") ' Space(max-Len(str)) else addSpaceToString=str end if End Function
效果展示:
分享标题:VBScript基于WSH编程
地址分享:http://scyingshan.cn/article/pojics.html