次の vbscript を使用してドキュメントをバックアップしています。
If strMessage = vbYes Then
Dim FSO
Dim objShell
Dim strDesktop
Dim strDocuments
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("Wscript.Shell")
strDesktop = objShell.SpecialFolders("Desktop")
strDocuments = objShell.SpecialFolders("MyDocuments")
If FSO.DriveExists("H") Then
FSO.CopyFolder strDesktop, "H:\Desktop", True
FSO.CopyFolder strDocuments, "H:\Documents", True
Else
MsgBox("Your personal folder is not mapped. Please contact IT to have it mapped or created.")
End if
Else
MsgBox("You will be reminded again in 30 days")
End if
マイドキュメントをコピーするときに「権限が拒否されました」というエラーが発生することを除けば、問題なく動作します。自分のドキュメントをコピーするためのアクセス権を持たない理由が思い浮かびません..Windows Script Host と関係があるのでしょうか?