BAT

// 获取管理员权限并映射网络驱动器

REM "map network device for compile"
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&
@net use x: /del yes
@net use x: \serverNamefolder
Rem @pause