VBSを使ってユーザー入力ありでNASに接続したい以下の条件を満…

VBSを使ってユーザー入力ありでNASに接続したい

以下の条件を満たしたVBSを作りたいです。
１．ユーザー名を入力させる
２．パスワードを入力させる（***という表示ではなくてもOK）
３．１と２で入力させた文字列を使用して複数のNASに接続
　　※ユーザー名とパスワードは同一のものを使用
WScriptのオブジェクトを生成してその中でnet use…という処理を行なうということは想定できましたが、VBSで変数をどのように扱えば良いのかがわからなかったので、ご教示願います。

ベストアンサー

a-kuma32016/10/05 21:36:05

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

スター

1件のコメントを見る
keijun5145 2016/10/06 00:16:14

ありがとうございます。
早速明日試してみますm(_ _)m

スター

この質問へのコメント

コメントはありません

VBSを使ってユーザー入力ありでNASに接続したい

ベストアンサー

a-kuma32016/10/05 21:36:05

keijun5145 2016/10/06 00:16:14

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版