VBSを使ってﾕｰｻﾞｰ入力ありでNASに接続したい以下の条件を満たしたVBSを作りたいです｡ 1．ﾕｰｻﾞｰ名を入力させる 2．ﾊﾟｽﾜｰﾄﾞを入力させる(***という表示ではな…

VBSを使ってﾕｰｻﾞｰ入力ありでNASに接続したい

以下の条件を満たしたVBSを作りたいです｡
1．ﾕｰｻﾞｰ名を入力させる
2．ﾊﾟｽﾜｰﾄﾞを入力させる(***という表示ではなくてもOK)
3．1と2で入力させた文字列を使用して複数のNASに接続
※ﾕｰｻﾞｰ名とﾊﾟｽﾜｰﾄﾞは同一のものを使用
WScriptのｵﾌﾞｼﾞｪｸﾄを生成してその中でnet use…という処理を行なうということは想定できましたが､VBSで変数をどのように扱えば良いのかがわからなかったので､ご教示願います｡

net use ｺﾏﾝﾄﾞを使うならこんな感じ｡

res = "\\server\share"
drv = "X"
uid = InputBox("User Id: ")
pwd = InputBox("Password: ")

cmd = "NET USE " & drv & ": " & res & " " & pwd & " /USER:" & uid

dim oShell
Set oShell = CreateObject("WScript.Shell")
oShell.Run cmd

http://www.vbforums.com/showthread.php?606117-RESOLVED-Help-with-quot-net-use-quot-syntax-in-VBScript-program
https://www.tutorialspoint.com/vbscript/vbscript_dialog_boxes.htm

WScript.Network というｵﾌﾞｼﾞｪｸﾄを使ってもできるみたい｡

res = "\\server\share"
drv = "X"
uid = InputBox("User Id: ")
pwd = InputBox("Password: ")
' ここまでは同じ

Set objNetwork = CreateObject("Wscript.Network")
objNetwork.MapNetworkDrive drv & ":", res, True, uid, pwd

https://social.technet.microsoft.com/Forums/scriptcenter/en-US/8d186a79-8af9-4030-a838-f1389fc7078f/how-to-map-drives-via-vb-logon-script?forum=ITCG
https://msdn.microsoft.com/ja-jp/library/cc364409.aspx