VBSを使用し、特定のファイルを抽出する

下記コードを使用し、ネットワークドライブから自身のCドライブにファイルを持ってきたのでメモ

copy&paste.vbs

Dim strFilePath
Dim strDir
Dim objSysInfo, objUser
Dim objShell, strDesktopPath

' フォルダのパス
folder = "C:\***"←保存したい自身のパス

' ファイルシステムオブジェクトの作成
Set fso = CreateObject("Scripting.FileSystemObject")

' フォルダが存在しない場合のみ処理を実行する
If Not (fso.FolderExists(folder)) Then
    ' フォルダの作成
    fso.CreateFolder(folder)
End If

' ユーザー情報取得
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)

' コピーするファイルのパス
strFilePath = "\\***\***\***\" & objUser.sAMAccountName & ".pst"←今回はユーザー名.pst
ファイルを抽出
' コピー先のパス
strDir = "C:\***"

' ファイルシステムオブジェクト作成
Set objFS = CreateObject("Scripting.FileSystemObject")

' ファイルコピー
If fso.FileExists(strFilePath) Then
    objFS.CopyFile strFilePath, strDir & "\", True
    WScript.Echo "ファイルが正常にコピーされました。"
Else
    WScript.Echo "コピー元のファイルが見つかりませんでした。"
End If

' ユーザーのデスクトップフォルダパスを取得
Set objShell = CreateObject("WScript.Shell")
strDesktopPath = objShell.SpecialFolders("Desktop")

' コピーするファイルのパス
strFilePath = "\\***\***\\****.url"←urlファイルを抽出
' コピー先のパス
strDir = strDesktopPath & "\"

' ファイルコピー
If fso.FileExists(strFilePath) Then
    objFS.CopyFile strFilePath, strDir, True
    WScript.Echo "ファイルが正常にコピーされました。"
Else
    WScript.Echo "コピー元のファイルが見つかりませんでした。"
End If