VBS写的简单小工具
将下面两段代码保存为两个vbs文件,双击执行.
在弹出对话框中输入dmp文件名(不包含扩展名)即可.
imp.vbs
inFileInName=inputbox("输入文件名。","Info")
if inFileInName="" then
msgbox "文件名不能为空。"
else
Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "imp fromuser=prod touser=prod userid=prod/prod file=D:\work\dumpfile\"+inFileInName+".dmp log=D:\work\dumpfile\log\"+inFileInName+".log feedback=10000 buffer=10485760recordlength=10485760"
Set oShell = Nothing
end if
exp.vbs
outFileInName=inputbox("输入文件名。","Info")
if outFileInName="" then
msgbox "文件名不能为空。"
else
Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "exp owner=prod userid=prod/prod file=D:\work\dumpfile\"+outFileInName+".dmp direct=y log=D:\work\dumpfile\log\"+outFileInName+".log feedback=10000 buffer=10485760 recordlength=10485760"
Set oShell = Nothing
end if