久しぶりにVBSを書いて実行したらエラーが出るので顛末をメモしておきます。
１、LAN_DISK接続.vbs
***** NASへの接続 *****
２、main.vbs
Option Explicit
'起動用のオブジェクトを生成
Dim objWsh
Set objWsh = WScript.CreateObject("WScript.Shell")
'引数を渡してLAN_DISK接続.vbsを実行
objWsh.Run "LAN_DISK接続.vbs 192.168.3.12 X: \\ATELIER52-LAN\Work"
原因
VBSは、文字コードが[ANSI]か[UTF-16]にしか対応していないので「LAN_DISK接続.vbs」が文字化けし上記のエラーとなった。
メモ帳の文字コードの既定値
Windows10 バージョン1809では、［ANSI］です。
Windows10 バージョン1903では、［UTF-8］になりました。