備忘録てきななにか

遊んでいるゲームや面白かった漫画を語ります

【備忘録】ネットワークドライブ接続させるスクリプト

こんにちは、ソウセイ < ex_sousei > です。

 

PC起動時に毎回ネットワークドライブが切断された状態になるためスクリプト作成しました。

備忘録としてブログにもupします。

 

VBS

========================================================

Option Explicit

 

Dim objFSO

Dim objNetwork

Dim strDrive

Dim strFolderPath

Dim strUserName

Dim strPW

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objNetwork = WScript.CreateObject("WScript.Network")

 

strDrive = "X:"

strFolderPath = "¥¥xxx.xxx.xxx.xxx¥xxxx¥"

strUserName = "user"

strPW = "password"

 

call NetworkDriveSet(strDrive, strFolderPath, strUserName, strPW)

 

Set objNetwork = Nothing

Set objFSO = Nothing

WScript.Quit

 

' サブルーチン

Sub NetworkDriveSet(strDrive, strFolderPath, strUserName, strPW)

        If Not objFSO.DriveExists(strDrive) Then

                On Error Resume Next

                objNetwork.MapNetworkDrive strDrive,strFolderPath,True,strUserName,strPW

                If Err.Number <> 0 Then

                        ' エラー処理をいれる場所

                End If

                On Error Goto 0

        End If

End Sub

========================================================

 

ではでは。