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


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

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2016/10/05 16:44:15
  • 終了:2016/10/06 00:16:22

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4605ベストアンサー獲得回数19432016/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

id:keijun5145

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

2016/10/06 00:16:14

コメントはまだありません

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

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません