Windows7でWebDAVにネットワークドライブを割り当てるWSHスクリプトを書いてみた

2016/09/08 Thu.

どうにかこうにかWebDAVに接続できるようになり、「ネットワークの割り当て」でログイン時に自動的に接続するようにしました。

が、それほど頻繁に利用するファイルじゃないので起動ごとに接続するのは・・・ちょっと・・・邪魔。

じゃあ都度手動で・・・おじいちゃん社員激おこ。

しかたがない・・・アイコンクリックで接続できるように考えてみよう。

ということでWSH(Windows Script Host)で作ってみた。



'既にネットワークドライブが接続されているか

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.DriveExists("N:\") = False Then

    'ネットワークドライブをドライブレター「N」で開く

    Set objNetwork = CreateObject("WScript.Network")

    objNetwork.MapNetworkDrive "N:", "https://tori.atama/", False, "userid", "password"

    

    'ネットワークドライブ名を変更

    Set oShell = CreateObject("Shell.Application")

    oShell.NameSpace("N:\").Self.Name = "NetDrive"

End If



'ネットワークドライブをエクスプローラで開く

'エクスプローラ・オプション説明

'/n デフォルトの設定で新しい単一枠のウィンドウを開きます。

'/e エクスプローラをデフォルトの表示設定で開きます。

'https://support.microsoft.com/ja-jp/kb/314853

Set Shell = CreateObject("WScript.Shell")

Shell.Run "explorer.exe /n,/e,N:\"