共有フォルダへ接続／バッチファイル(.bat) | 起動時に自動で「管理者として実行」

TEST.vbs

Call Main()

Sub Main()


    Dim objShell
    Dim oShellApp
    Dim dstTargetHost,dstUserName,dstPassword

    dstTargetHost = "\\dstTargetHost"
    dstUserName = "×××.local\dstUserName"
    dstPassword = "dstPassword"

    '共有フォルダへ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 " & "C:\Users\user\Documents\tools\execution.cmd" & """", "", "runas", 0

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

    '生成したオブジェクトを破棄します。
    Set oShellApp = Nothing
    Set objShell = Nothing


End Sub