VBScriptでcmd操作方法

Call Main()

Sub Main()

    Dim objShell
    Dim oShellApp
    Dim dstTargetHost,dstUserName,dstPassword

    dstTargetHost = "\\nas\test"
    dstUserName = "test.local\UserName"
    dstPassword = "Password"

    '共有フォルダへNET USEで接続します。
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "net use " & dstTargetHost & " " & dstPassword & " /user:" & dstUserName,0,true

    Set oShellApp = WScript.CreateObject ("Shell.Application")
    ' oShellApp.ShellExecute "cmd.exe", """" & "/c " & "実行したいバッチファイルのフルパス" & """", "", "runas", 0
    oShellApp.ShellExecute "cmd.exe", """" & "/c " & "\\nas\test\test.cmd" & """", "", "runas", 0

    '共有フォルダへのNET USEの接続を切断します
    objShell.Run "net use " & dstTargetHost & " /DELETE",0,true

    'オブジェクトを破棄
    Set oShellApp = Nothing
    Set objShell = Nothing

End Sub