常駐して一時間ごとにネットワークドライブの再接続を行う、といったものではありません。繋がれば役目を終えて終了します。

「ネットワークストレージの電源を入れて、バックアップ処理を行いたいけど立ち上がるのを待ってるのも面倒だし…」といった状況でのみ使います（笑）

オプションは、

• /F:　ネットワークの場所(\\SERVER\FOLDER　等）
• /D:　割り当てるデバイス名(Z:　等)
• /U:　ユーザー名
• /P:　パスワード
• /I:　インターバル時間(秒)
• /C:　再試行回数
• /M:　途中経過メッセージを表示する

実際の起動例は、

cscript nduse.vbs /D:Z: /F:\\SERVER\FOLDER /I:10 /C:30 /M

\\SERVER\FOLDER を Z:ドライブに割り当てる。

接続できないときは10秒ごとに、30回リトライする。

途中経過のメッセージを表示する。

最終的に接続ができなかった場合には、ERRORLEVELに9を返しますので、ネットワーク接続がうまくいかなかったらそれ以降の処理はキャンセル、といったバッチが組めます。

バッチ例

cscript nduse.vbs /D:Z: /F:\\SERVER\FOLDER /I:10 /C:30 /M
if errorlevel 9 goto END
コピー処理
:END

注意事項

• 全ての環境でのテストは行っていませんのでうまく動かない場合があります。
  (XPProSP3でのみテスト済み)
• 特にユーザー、パスワードを指定した場合のテストが不十分です。
  (1回しかやっていません)
• 変更、修正はご自由にどうぞ。
• 「バグ」「もっとうまくやれる」情報がありましたら教えていただけると勉強になります。

ダウンロード　nduse.lzh

‘nduse.vbs
‘
‘2008/11/17　作成　ADDDRV
‘
‘使用の手引き
‘
‘cscript nduse.vbs /D:ドライブ名 /F:フォルダ名 /U:ユーザー名 /P:パスワード
‘                  /I:待ち時間間隔（秒） /C:試行回数
‘                  /M:（メッセージ表示有り）
‘
‘ネットワークドライブの接続命令を待ち時間間隔を開けて試行回数分発行します
‘接続完了したときはERRORLEVELに0が、失敗した場合は9が返ります
‘
Option Explicit

‘パラメータ
Dim Args

Dim objNetwork      ‘ Networkオブジェクト
Dim NetDrive        ‘ /D:   ドライブ名
Dim NetFolder       ‘ /F:   フォルダ名
Dim NetName         ‘ /U:   ユーザー
Dim NetPass         ‘ /P:   パスワード
Dim intInterval     ‘ /I:   待ち時間
Dim intLoopcount    ‘ /C:   試行回数
Dim intMess         ‘ /M:   メッセージ表示

Dim I

‘パラメータ取得
Set Args = WScript.Arguments

‘ドライブ名の取得
NetDrive = Args.Named(”D”)

‘フォルダ名の取得
NetFolder = Args.Named(”F”)

‘ユーザー名の取得
If Args.Named.Exists(”U”) Then
NetName = Args.Named(”U”)
Else
NetName = “”
End If

‘パスワードの取得
If Args.Named.Exists(”P”) Then
NetPass = Args.Named(”P”)
Else
NetPass = “”
End If

‘待ち時間の取得
If Args.Named.Exists(”I”) Then
If IsNumeric(Args.Named(”I”)) = False Then
WScript.Echo “/I:は数字で指定してください”
WScript.Quit (9)
End If
intInterval = CInt(Args.Named(”I”))
Else
intInterval = 0
End If

‘試行回数の取得
If Args.Named.Exists(”C”) Then
If IsNumeric(Args.Named(”C”)) = False Then
WScript.Echo “/C:は数字で指定してください”
WScript.Quit (9)
End If
intLoopcount = CInt(Args.Named(”C”))
Else
intLoopcount = 1
End If

‘メッセージ表示をする/しない
If Args.Named.Exists(”M”) Then
intMess = True
End If

On Error Resume Next

‘ネットワークオブジェクトの作成
Set objNetwork = WScript.CreateObject(”WScript.Network”)

‘既存のネットワークドライブがあれば切断
objNetwork.RemoveNetworkDrive NetDrive, True, True

If intMess Then
If Err.Number = 0 Then
WScript.Echo “切断完了”
Elseif Err.Number = -2147022646 Then
WScript.Echo “切断完了(既存ドライブなし)”
Else
WScript.Echo “切断:” & Err.Description & “(” & Err.Number & “)”
End If
End If

For I = 1 To intLoopcount

‘ネットワークドライブ接続
objNetwork.MapNetworkDrive NetDrive, NetFolder, False, NetName, NetPass

If Err.Number = 0 Then
If intMess Then
WScript.Echo I & “:割り当て完了”
End If
Set objNetwork = Nothing
WScript.Quit (0)
ElseIf Err.Number = -2147024811 Then
If intMess Then
WScript.Echo I & “:割り当て完了(割り当て済み)”
End If
‘正常終了
Set objNetwork = Nothing
WScript.Quit (0)
Else
If intMess Then
WScript.Echo I & “:接続:” & Err.Description & “(” & Err.Number & “)”
End If
End If
‘待ち時間
If I <> intLoopcount Then
If intMess Then
WScript.Echo intInterval & “秒後に再試行(あと” & intLoopcount – I & “回)”
End If
WScript.Sleep (intInterval * 1000)
End If
Next

‘異常終了
Set objNetwork = Nothing
WScript.Quit (9)

ランタイム上で動いているMDBのテーブルへの行追加、変更、削除のバッチ処理用です。

MDBと同じディレクトリに、

• edtsql.vbs（スクリプト本体）
• edtsql.sql（一文一行のSQL）

を置いて、コマンドプロンプトから、

cscript edtsql.vbs mdbファイル名.mdb

で、コネクションの情報表示→SQLを表示しつつ実行されます。

注意事項

• テストはしてありますが、書かれているSQL次第で、かなり恐ろしいことになります。
  実行前には必ずMDBのバックアップを取ってください。
  結果的にデータベースその他諸々が破壊されたとしてもなんの保障もできません。
• wscriptを使った実行も可能ですが、いちいちメッセージが出るのでうるさいです。
• WindowsXP + Access2003環境でのみテストしてあります。
  OleDbが使えない場合や2007のACCDBではコネクションストリングの変更が必要です。
  変えれば動くかと言われても未検証なので自信はありません。
• 変更、修正はご自由にどうぞ。
• 「バグ」「もっとうまくやれる」情報がありましたら教えていただけると勉強になります。

ダウンロード　edtsql.lzh

edtsql.vbs

‘edtsql.vbs
‘
‘2008/11/13　作成　ADDDRV
‘
‘使用の手引き
‘
‘更新したいMDB,MDEと同じフォルダに置きます
‘実行させるSQLの条件
‘    1.SQLは1行1文です
‘    2.SQLのファイル名は「edtsql.sql」です
‘    3.edtsql.sqlはこのvbsと同じフォルダに置いて下さい
‘

Option Explicit

‘パラメータ
Dim Args

‘パラメータ取得
Set Args = Wscript.Arguments

‘パラメータが無いときはエラー
If Args.Count < 1 Then
WScript.echo “MDBファイル名を指定して下さい”
Else
‘メインの処理
Call subMain
End If

Set Args = Nothing

‘ここで終わり

‘メインの処理
Sub subMain()

‘MDBファイルの名前（パスは、スクリプトと同じ場所）
Dim MDBName

‘MDBファイル名をパラメータからセット）
MDBName = Args(0)

‘ADOコネクションとコネクションストリング
Dim Conn
DIm Conn_String

‘ファイルシステムオブジェクト
Dim objFileSys
Dim objFile

‘SQLが入っているフルパス付ファイル名
Dim FileName

‘現在のパス
Dim FilePath

‘取得したレコード=投げるSQL
Dim Record

‘自パスの取得
FilePath = Replace(WScript.ScriptFullName,WScript.ScriptName,”")

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

‘読み込むファイル名をフルパス付きで作成
FileName = objFileSys.BuildPath(FilePath,”edtsql.sql”)

‘ファイルのオープン（ReadOnly）
Set objFile = objFileSys.OpenTextFile(FileName,1)

‘ファイルがあればADOの処理へ
If Err.Number=0 Then

‘ADOコネクション作成
Set Conn = CreateObject(”ADODB.Connection”)
‘コネクションストリング
Conn_String = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=” & FilePath & MDBName & “;”
WScript.echo “Connecting ” & Conn_String

‘MDBを開く
Conn.Open Conn_String

‘SQLの読み込み開始
Do Until objFile.AtEndOfStream

‘ファイル内容を1行読む
Record = objFile.ReadLine

‘表示しつつExecute
WScript.echo “Execute ” & Record
Conn.Execute Record

Loop

‘ADOクローズ
Conn.Close

Set Conn = Nothing

objFile.Close
Set objFile = Nothing

Else
Wscript.Echo FilePath & “にedtsql.sqlがありませんでした。”
End if

Set objFileSys = Nothing

End sub