'以下创建ie对象，以及设置ie对象的一些属性
set ie=wscript.createobject("internetexplorer.application","event_")
ie.menubar=0 '取消菜单栏
ie.addressbar=0 '取消地址栏
ie.toolbar=0 '取消工具栏
ie.statusbar=0 '取消状态栏
ie.width=380 'ie对象宽度
ie.height=500 'ie对象高度
ie.resizable=0 '不允许用户改变窗口大小
ie.navigate "about:blank" '打开空白页面
ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2) '水平居中
ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2) '垂直居中
ie.visible=1 '窗口可见
'以下调用document.write方法，写ie对象内容
with ie.document
.write "<html>"
.write "<title>映射远程电脑磁盘</title> "'ie对象标题
.write "<body scroll=yes>"
.write "<p align=right><input id=help type=button value=帮助>   <input id=about type=button value=关于>"
.write "<h2 align=center>映射远程电脑磁盘</h2><br>"
.write "<fieldset><legend >目标IP</legend><lable><font size=2>远程电脑的IP地址：</font></lable><input id=ip type=text size=15 value=192.168.1.104></fieldset><br>"
.write "<fieldset><legend>用户名和密码</legend><lable><font size=2>用户名：</font></lable><input id=user type=text size=10 value=administrator>   <lable><font size=2>密码：</font></lable><input id=pass type=password size=10 value=111111></fieldset><br>"
.write "<fieldset><legend>盘符</legend><lable><font size=2>远程盘符：</font></lable><input id=disk1 type=text size=2 value=c>   <lable><font size=2>本地盘符：</font></lable><input id=disk2 type=text size=2 value=p></fieldset><br>"
.write "<fieldset><legend>删除网络映射</legend><lable><font size=2>输入单个网络驱动器盘符：</font></lable><input id=disk3 type=text size=2 >  &nbsp<input id=del type=button value=删除><br><lable><font size=2>删除本地所有网络驱动器：</font></lable><input id=dels type=button value=删除></fieldset>"
.write  "<p align=center><input id=confirm type=button value=确定>   &nbsp  &nbsp <input id=cancel type=button value=取消>"
.write "</body>"
.write "</html>"
end with
'以下是设置点击页面按钮时的处理函数
set wnd=ie.document.parentwindow '设置wnd为窗口对象
set id=ie.document.all '设置id为document中全部对象的集合
id.confirm.οnclick=getref("confirm") '设置点击"确定"按钮时的处理函数
id.cancel.οnclick=getref("cancel") '设置点击"取消"按钮时的处理函数
id.del.οnclick=getref("del") '设置点击单个"删除"按钮时的处理函数
id.dels.οnclick=getref("dels") '设置点击全部"删除"按钮时的处理函数
id.about.οnclick=getref("about")'设置点击"关于"按钮时的处理函数
id.help.οnclick=getref("help")'设置点击"帮助"按钮时的处理函数
'由于ie对象支持事件，所以相应的，脚本以无限循环来等待各种事件
do while true
wscript.sleep 100
loop
'ie退出事件处理过程
sub event_onquit
wscript.quit '当ie退出时，脚本也退出
end sub
'"帮助"按钮处理函数
sub help
wnd.alert("错误号5，拒绝访问：很可能你使用的用户不是管理员权限的，先提升权限；"&Chr(10)&"错误号51，Windows无法找到网络路径：网络有问题；"&Chr(10)&"错误号53，找不到网络路径：ip地址错误；目标未开机；目标lanmanserver服务未启动；目标有防火墙（端口过滤）； （net start lanmanserver 开启lanmanserver服务）"&Chr(10)&"错误号67，找不到网络名：你的lanmanworkstation服务未启动或者目标删除了ipc$； "&Chr(10)&"错误号1219，提供的凭据与已存在的凭据集冲突：你已经和对方建立了一个ipc$，请删除再连； "&Chr(10)&"错误号1326，未知的用户名或错误密码：原因很明显了； "&Chr(10)&"错误号1792，试图登录，但是网络登录服务没有启动：目标NetLogon服务未启动； "&Chr(10)&"错误号2242，此用户的密码已经过期：目标有帐号策略，强制定期要求更改密码")
end sub
'"关于"按钮处理函数
sub about
wnd.alert ("此脚本仅供娱乐而已，目前仍存在Bug"&Chr(10)&"如有更好的建议请联系QQ:798776238"&Chr(10)&"作者：sirrah")
end sub
'单个"删除"按钮处理函数
sub del
with id
Dim str
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
'判断删除单个网络映射的盘符输入框是否是空的，如果是空的，给出提示
if (.disk3.value="") ThenFor Each objDrive in colDrivesif(objDrive.DriveType=3 ) thenstr=str & objDrive.DriveLetter & "、"   end ifNext
'判断当前电脑是否存在网络映射if(str="") thenwnd.alert("当前没有网络映射！！！")exit subend if  wnd.alert ("您当前电脑存在的网络驱动器盘符是：" & Left(str,Len(str)-1) & Chr(10)&"请输入相应盘符,并点击删除即可删除该网络驱动器")exit sub
end if
'判断当前输入的盘符是否存在For Each objDrive in colDrives If (objDrive.DriveType=3 and objDrive.DriveLetter=UCase(.disk3.value)) thenon error resume nextSet vbs2=CreateObject("Wscript.Shell")vbs2.Run "cmd"wscript.sleep 500vbs2.SendKeys "net use " & .disk3.value & ": /del" & "{Enter}"vbs2.SendKeys "exit"vbs2.SendKeys "{Enter}".disk3.value=""Exit subEnd Ifnext
wnd.alert ("您当前输入的盘符所对应的网络驱动器不存在，请重新输入！")
.disk3.value=""
end with
end sub'全部"删除"按钮处理函数
sub dels
'判断当前是否存在网络映射
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objDrive in colDrives
if(objDrive.DriveType=3) Then'最后验证是否真的需要删除本地所有网络映射intMessage=msgbox("点击是，您将删除本地所有网络映射，点击否，您将取消删除本地所有网络映射",vbYesNo,"确认是否全部删除")If intMessage=vbYes thenon error resume nextSet vbs=CreateObject("Wscript.Shell")vbs.Run "cmd"wscript.sleep 500vbs.SendKeys " net use * /del " & " {enter}" & "Y" & " {enter}" & "exit" & "{Enter}"Exit subelseExit subEnd If
end If
Next
wnd.alert("当前没有网络映射！！！")
end Sub'"确认"按钮处理函数
sub confirm
with id
If(.ip.value="") then
wnd.alert("请输入IP地址")
exit sub
End If
If(.user.value="") then
wnd.alert("请输入登入用户名")
exit sub
End If
If(.pass.value="") then
wnd.alert("请输入登入密码")
exit sub
End If
If(.disk1.value="") then
wnd.alert("请输入远程盘符")
exit sub
End If
If(.disk2.value="") then
wnd.alert("请输入本地盘符")
exit sub
End If
'判断映射到本地的盘符是否存在
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objDrive in colDrives
If (objDrive.DriveLetter=UCase(.disk2.value)) then
wnd.alert("对不起，您输入的本地盘符"& .disk2.value &"已存在，请重新输入！！！")
.disk2.value=""
Exit Sub
End If
Next
'映射网络驱动器
on error resume next
Set vbs1=CreateObject("Wscript.Shell")
vbs1.Run "cmd"
wscript.sleep 500
'建立空链接
vbs1.SendKeys "net use \\" & .ip.value & "\ipc$ " & Chr(34) & .pass.value & Chr(34) & " /user:"& Chr(34) & .user.value & Chr(34) & "{enter}"
'映射磁盘
vbs1.SendKeys "net use " & .disk2.value & ": \\"& .ip.value & "\" & .disk1.value & "$ " & Chr(34)& .pass.value & Chr(34) & "  /user:" & Chr(34) & .user.value & Chr(34) & " {enter}"
vbs1.SendKeys "exit"
vbs1.SendKeys "{Enter}"
.disk1.value=""
.disk2.value=""
end with
end sub
'"取消"按钮处理函数
sub cancel
ie.quit
end sub

转载于:https://www.cnblogs.com/sirrah/articles/2349182.html

VBS 映射远程电脑磁盘相关推荐

  1. 使用nfs映射远程服务器磁盘目录

    参考:http://www.centoscn.com/CentosSecurity/SoftSecurity/2015/0408/5118.html http://www.cnblogs.com/mc ...

  2. 云服务器Winodws 远程连接映射本地电脑磁盘

    云服务器Winodws 远程连接映射本地电脑磁盘 打开电脑左下方 开始 - 所有程序 - 附件 - 远程桌面连接,连接服务器时勾选本地磁盘映射,如下截图所示: 然后输入 服务器IP,账号密码登陆到服务 ...

  3. 连接远程电脑中的虚拟机---端口映射

    连接远程电脑中的虚拟机---端口映射 问题:A主机中运行有2台虚拟机,现在我们希望在B主机中通过ssh(或其他方式)访问A主机中的2台虚拟机.(前提:B主机可以ping通A主机,即A有公网IP或A.B ...

  4. linux nsf 扫描,linux 使用NSF 映射远程磁盘目录的实现

    假设源目录在192.168.1.1机器上,目录为/data 客户端集群在192.168.1.2, 需要将192.168.1.1机器上的/data目录到本地的/data目录 1.在两台机器上安装nsf ...

  5. linux 映射远程文件夹,Linux远程映射磁盘的方法

    我用"Linux远程挂载磁盘的方法"做关键词在网上找了好久好久,都找不到,然后,用标题这个字,就找到了.算了,今天再次碰到,收藏下来,以免以后麻烦. 假定需要被映射的源目录所在的机 ...

  6. win10下使用Rclone将OneDrive映射到本地磁盘教程（开机自动挂载）

    win10下使用Rclone将OneDrive映射到本地磁盘教程(开机自动挂载) 下载rclone,winfsp和Git bash Rclone. Winfsp. 和 [Git bash](https ...

  7. windows net use 把共享目录映射为本地磁盘

    @echo offnet use Z: \\newshare\SoftwareSvr 最近看到公司电脑运维提供一个"把共享目录映射为本地磁盘""的操作的bat,打开内容查 ...

  8. 电脑技巧：Win10自带存储感知功能给电脑磁盘瘦身

    今天给大家分享Win10自带存储感知功能给电脑磁盘瘦身功能,希望对大家能有所帮助! 1.什么是存储感知 Win10存储感知功能属于Win10操作系统的一大亮点,自带有AI的存储感知功能发挥其磁盘清理功 ...

  9. 路由器端口映射,远程桌面连接--端口映射+花生壳=让人访问你个人服务器或WEB站点...

    [图]路由器端口映射,远程桌面连接--端口映射+花生壳=让人访问你个人服务器或WEB站点 2010-03-16   关键字:路由器端口映射,内网端口映射,porttunnel,端口映射,远程桌面,修改 ...

最新文章

  1. Docker镜像优化
  2. 大数据算法系列——布隆过滤器
  3. ES6之let和const
  4. 切换器黑屏_景阳华泰科技高清无缝矩阵切换器高端视频会议运用
  5. fragment和Activity同时操作UI引起的延迟、卡顿
  6. 我正在运行哪个版本的PostgreSQL？
  7. C++初学必练基础题【第四期】
  8. 卡巴斯基变相提供一年免费服务
  9. 动图体积太大怎么缩小？教你一招快速压缩gif
  10. 根据CTP接口计算现手、增仓、开平、对手盘 (2)
  11. Project组合项目案例分享
  12. SAP 四代增强方式和Enhancement查找方法
  13. Java基础知识面试题（2021最新版）
  14. 读书笔记：-----《第四次工业革命转型的力量》
  15. Kubernetes多节点二进制部署
  16. c语言中一般命名方式,C语言常见命名规则
  17. Burp Macros功能实现token验证爆破
  18. centos7.2安装五笔输入法的方法
  19. There is no getter for property named ‘username‘ in ‘class com.kuang.entity.User‘“
  20. 为Apple Watch设计：素描设计

热门文章

  1. VS2008解决“MSVCRT”与其他库的使用冲突的警告
  2. VUE中clearTimeout失效问题
  3. Centos7环境下修改MySql密码策略
  4. 数学公式编辑器Mathtype的安装
  5. 四轮 控制算法 麦轮_基于ROS的麦克纳姆轮移动机器人关键技术总结闲谈
  6. 【CF #777 div2】A—D
  7. 记忆是一个整合的过程
  8. Sortable拖拽排序
  9. 像素风、爽快手感、Roguelike，《超级幻影猫》团队新作是怎么研发的？
  10. windows11安全中心打不开或病毒与威胁防护打不开