脱力系備忘録BloG

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

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:\"