批处理之家 - Powered by Discuz! Board

If WScript.Arguments(0) = "" Then WScript.Quit
Set oexcel = CreateObject("excel.application")
Set fso = CreateObject("scripting.filesystemobject")
name = fso.GetFile(WScript.Arguments(0)).name
ext = fso.GetExtensionName(WScript.Arguments(0))
path = fso.GetFile(WScript.Arguments(0)).parentfolder & "\" & Replace(name, "." & ext, "_")
oexcel.Visible = False
oexcel.Workbooks.Open(WScript.Arguments(0))
oexcel.ActiveWorkbook.sheets(1).activate
For Each str In oexcel.ActiveSheet.rows(1).value
If str <> "" Then
oco = oco + 1
head = head & oexcel.Cells(1, oco).value & vbTab
End If
Next
arr = Split(head, vbTab)
For i = o To UBound(arr) - 2
str = str & arr(i) & vbTab
Next
head = str
For Each str In oexcel.ActiveSheet.columns(1).value
If str <> "" Then oro = oro + 1
Next
For i = 2 To oro
file = oexcel.Cells(i, oco).value & ".xls"
If Not fso.FileExists(path & file) Then fso.CreateTextFile(path & file, True, False).Write head & vbCrLf
For j = 1 To oco - 1
vbstr = vbstr & oexcel.Cells(i, j) & vbTab
Next
fso.OpenTextFile(path & file, 8, True).Write vbstr & vbCrLf : vbstr = ""
Next
oexcel.Workbooks.Close
Set oexcel = Nothing
MsgBox "ok"

复制代码

@echo off
set num=-1
cd.>result.txt
>>result.txt echo 小区号人数
setlocal enabledelayedexpansion
for /f %%i in (vlr11.txt) do (
set /a num+=1
set second=!first!
set first=%%i
if not "!second!"=="" if !second! neq !first! (>>result.txt echo !second! !num!&set num=0)
)
set /a num+=1
>>result.txt echo %first% %num%
ren result.txt "%date%".xls
del /q vlr11.txt

复制代码

@echo off
set num=-1
cd.>result.txt
>>result.txt echo 小区号人数
setlocal enabledelayedexpansion
(for /f %%i in (vlr11.txt) do (
set /a num+=1
set second=!first!
set first=%%i
if not "!second!"=="" if !second! neq !first! ( echo !second! !num!&set num=0)
))>>result.txt
set /a num+=1
>>result.txt echo %first% %num%
ren result.txt "%date%".xls
del /q vlr11.txt

复制代码

'author:DM_,date:2012-1-27
'blog :http://x0day.sinaapp.com
Dim fso,folderPath,folders,SubFolders
folderPath = "c:\temp" '这里是需要批量修改文件名的文件夹的位置
Set fso = CreateObject("scripting.filesystemobject")
fileName_change folderPath
Sub fileName_change(folderPath)
Set folders = fso.GetFolder(folderPath)
Set subFolders = folders.SubFolders
Set files = folders.Files
For Each file In files
fileName = file.Name
change_name = InputBox (file.Path,,filename)
If Not change_name = filename Then
If fso.FileExists(change_name) Then
file.Name = change_name
MsgBox "已将"&filename&_
" 修改为："&change_name
Else MsgBox "file exists!"
End If
End If
Next
For Each folder In SubFolders'递归搜索
fileName_change(folder.Path)
Next
End Sub

复制代码

'网络的价值,在于你我的共享及经验的分享'
'让你我的努力促进网络的发展，从而让自己从中受益。尊重作者，尊重原创……'
' ---------------yuihi---------------2012-3-12
# $language = "VBScript"
# $interface = "1.0"
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Sub Main
dingshi=hour(now)
if dingshi<23 then
exit sub
end if
crt.Screen.Synchronous = True 'CRT可见
Dim fso, file,chengname,dingshi,zmvi,hlr2,hlr3,hlr4,all,app,wb,ws '定义变量
chengname=Year(now)&"年"&Month(now)&"月"&Day(now)&"日"'取当前日期赋给变量chengname
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("D:\漫游用户\" &chengname &".txt", ForAppending, True)
crt.Screen.Send "***SSG2" & chr(13)
crt.Screen.WaitForString "ENTER USERNAME < " & chr(8) & " "
crt.Screen.Send "****" & chr(13)
crt.Screen.WaitForString "ENTER PASSWORD < " & chr(8) & " "
crt.Screen.Send "************" & chr(13)
crt.Screen.WaitForString "< " & chr(8) & " "
crt.Screen.Send "ZMVI;" & chr(13) & Chr(10)
crt.Screen.WaitForStrings("COMMAND EXECUTED")
screenrow = crt.screen.CurrentRow - 2
readline = crt.Screen.Get(screenrow, 14, screenrow, 20 )
zmvi=readline
crt.Screen.Send "ZMVF::HLR=861376649000;" & chr(13) & Chr(10)
crt.Screen.WaitForStrings("COMMAND EXECUTED")
screenrow = crt.screen.CurrentRow - 2
readline = crt.Screen.Get(screenrow, 8, screenrow, 14 )
hlr2=readline
crt.Screen.Send "ZMVF::HLR=861387930000;" & chr(13)
crt.Screen.WaitForStrings("COMMAND EXECUTED")
screenrow = crt.screen.CurrentRow - 2
readline = crt.Screen.Get(screenrow, 8, screenrow, 14 )
hlr3=readline
crt.Screen.Send "ZMVF::HLR=861518034000;" & chr(13)
crt.Screen.WaitForStrings("COMMAND EXECUTED")
screenrow = crt.screen.CurrentRow - 2
readline = crt.Screen.Get(screenrow, 8, screenrow, 14 )
hlr4=readline
crt.Screen.Send "ZMVF::LAC=ALL,;" & chr(13)
crt.Screen.WaitForStrings("COMMAND EXECUTED")
screenrow = crt.screen.CurrentRow - 2
readline = crt.Screen.Get(screenrow, 8, screenrow, 14 )
all=readline
Set app = CreateObject("Excel.Application")
app.DisplayAlerts=FALSE
app.visible=FALSE
Set wb = app.Workbooks.Open("D:\漫游用户\GS2漫游数每日登记表.xls")
Set ws = wb.Worksheets(1)
app.WorkSheets(1).Activate
app.range("A2").Value ="GS2"
app.range("B2").Value =now
app.range("C2").Value =zmvi
app.range("D2").Value =hlr2
app.range("E2").Value =hlr3
app.range("F2").Value =hlr4
app.range("G2").Value =all
app.range("H2").Value ="=G2-F2-E2-D2"
app.rows(2).insert
app.save
wb.close
app.quit
set app=nothing
set wb=nothing
set ws=nothing
crt.Screen.Send "Z;"
crt.Screen.Send chr(13)
crt.Screen.WaitForString "< " & chr(8) & " "
crt.Screen.Send "Z;" & chr(13)
crt.Screen.WaitForString "srwork >"
crt.Screen.Send "***SSG1" & chr(13)
crt.Screen.WaitForString "ENTER USERNAME < " & chr(8) & " "
crt.Screen.Send "****" & chr(13)
crt.Screen.WaitForString "ENTER PASSWORD < " & chr(8) & " "
crt.Screen.Send "*******" & chr(13)
crt.Screen.WaitForString "< " & chr(8) & " "
crt.Screen.Send "ZMVI;" & chr(13) & Chr(10)
crt.Screen.Send "ZMVF::HLR=861376649000;" & chr(13)
crt.Screen.Send "ZMVF::HLR=861387930000;" & chr(13)
crt.Screen.Send "ZMVF::HLR=861518034000;" & chr(13)
crt.Screen.Send chr(13)
crt.Screen.Send "ZMVF::LAC=ALL,;" & chr(13)
crt.Screen.WaitForString Chr(10)
crt.Screen.Send "Z;"
Dim waitStrs
waitStrs = Array( Chr(10), "Z;" )
Dim row, screenrow, readline, items
row = 1
Do
While True
result = crt.Screen.WaitForStrings( waitStrs )
If result = 2 Then
Exit Do
End If
screenrow = crt.screen.CurrentRow - 1
readline = crt.Screen.Get(screenrow, 1, screenrow, 50 )
file.Write readline & vbCrLf
Wend
Loop
crt.Screen.Send chr(13)
crt.Screen.WaitForString "< " & chr(8) & " "
crt.Screen.Send "Z;" & chr(13)
'crt.Screen.WaitForString "< " & chr(8) & " "
crt.Screen.WaitForString "srwork >"
crt.Screen.Send "***SSG2" & chr(13)
crt.Screen.WaitForString "ENTER USERNAME < " & chr(8) & " "
crt.Screen.Send "****" & chr(13)
crt.Screen.WaitForString "ENTER PASSWORD < " & chr(8) & " "
crt.Screen.Send "************" & chr(13)
crt.Screen.WaitForString "< " & chr(8) & " "
crt.Screen.Send "ZMVI;" & chr(13) & Chr(10)
crt.Screen.Send "ZMVF::HLR=861376649000;" & chr(13)
crt.Screen.Send "ZMVF::HLR=861387930000;" & chr(13)
crt.Screen.Send "ZMVF::HLR=861518034000;" & chr(13)
crt.Screen.Send chr(13)
crt.Screen.Send "ZMVF::LAC=ALL,;" & chr(13)
crt.Screen.Send "ZZZ;"
crt.Screen.WaitForString Chr(10)
waitStrs = Array( Chr(10), "ZZZ;" )
row = 1
Do
While True
result = crt.Screen.WaitForStrings( waitStrs )
If result = 2 Then
Exit Do
End If
screenrow = crt.screen.CurrentRow - 1
readline = crt.Screen.Get(screenrow, 1, screenrow, 50 )
file.Write readline & vbCrLf
Wend
Loop
crt.Screen.Send chr(13)
crt.screen.synchronous = false
crt.Screen.WaitForStringS "srwork >"
crt.session.disconnect
CRT.QUIT
End Sub

复制代码

TabCount = crt.GetTabCount() ‘获取当前已打开的标签总数
Set tab = crt.GetTab(index)获取相应索引的标签
tab = crt.session.Connectintab("/s IP专网/AR")’打开会话中的标签
tab.Session.Connect标签连接
tab.activate激活标签
tab.Session.Connected = True判断标签会话是否已连接
Name = tab.Caption获取标签的名称
crt.session.Connect "/telnet 10.178.153.194 8023" TELNET方式连接IP加端口
crt.session.disconnect 中断会话连接
CRT.QUIT 退出CRT
crt.sleep 1000 等待1秒
crt.screen.send "show interface description" &vbCr 向屏幕发送指令加回车
crt.Screen.WaitForString "[JXSHR-MC-CMNET-BRAS01-ME60]" 在屏幕上等待字符串,然后再运行下一条
screenrow = crt.screen.CurrentRow – 1 定义屏幕当前行数
readline = crt.Screen.Get(screenrow, 8, screenrow, 14 ) 截取屏幕上相应的字符

复制代码

@echo off
echo set sh=CreateObject("WScript.Shell")>2.vbs
(for /l %%a in (4 1 50) do (
echo WScript.Sleep 300
echo sh.SendKeys "open 192.168.16.%%a"
echo WScript.Sleep 300
echo sh.SendKeys "{ENTER}"
echo WScript.Sleep 1000
echo sh.SendKeys "username{ENTER}"
echo WScript.Sleep 300
echo sh.SendKeys "password{ENTER}"
echo WScript.Sleep 300
echo sh.SendKeys "con t{ENTER}"
echo WScript.Sleep 300
echo sh.SendKeys "no aaa accounting network default{ENTER}"
echo WScript.Sleep 300
echo sh.SendKeys "end{ENTER}"
echo WScript.Sleep 300
echo sh.SendKeys "write{ENTER}"
echo WScript.Sleep 300
echo sh.SendKeys "exit{ENTER}"
echo WScript.Sleep 300
echo sh.SendKeys "{ENTER}"
echo WScript.Sleep 300
echo sh.SendKeys "{ENTER}"
echo WScript.Sleep 300
echo sh.SendKeys "{ENTER}"
))>>2.vbs
start telnet
cscript //nologo 2.vbs

复制代码

参赛者	楼层	总得分	名次
yuihi	17, 21	26	1
fstaizi	24	23	2
copp_x	20	22	3
manhua	23	16