VBScript語法:連線網路磁碟機備份檔案

http://jojochen.blog.ithome.com.tw/post/2529/63359轉貼

VBScript語法:連線網路磁碟機備份檔案

由 JojoChen 發表於 [ VBScript ]
(3541) 閱讀,  (0) 引用,  (0) 回應 ,   推文( 0 )

試寫一小段簡單的VBScript程式,將NAS主機的資料透過網路磁碟機的方式備份檔案至FreeNAS分享資料夾,其語法如下:
'定義變數net1,net2,fso
Dim net1,net2,fso
'設定net1連線網路磁碟機I
Set net1 = CreateObject("WScript.Network")   
net1.MapNetworkDrive "I:", "\\Nas\ShareFolder1" ,"True","username","passowrd"
'設定net2連線網路磁碟機J
Set net2=CreateObject("WScript.Network")
net2.MapNetWorkDrive "J:","\\FreeNas\ShareFolder2"
'設定fso從I槽備份檔案至J槽
Set fso=CreateObject("Scripting.FileSystemObject")
fso.CopyFile "I:\test.txt","J:\test.txt"
Wscript.echo "Success!"
'設定完成備份後中斷網路磁碟機I和J
net1.RemoveNetworkDrive "I:","True","True"
net2.RemoveNetworkDrive "J:"