[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创] VBS基础(1)WSH对象介绍

此都是本人学习时候的笔记。手一个一个打出来的。转载注明bbs.bathome.net
  1. 一:WScript对象
  2. WScript对象提供了直接对运行脚本宿主路径的属性设置,以及宿主的参数和工作方式。WScript对象也可以创建脚本和读取脚本。
  3. 下面的例子创建一个运行脚本的快捷方式。
  4. 实例一:
  5. Set WshShell=WScript.CreateObject("WScript.Shell")
  6. StrDesktop=WshShell.SpecialFolders("Desktop")
  7. Set oShellLink=WshShell.CreateShortcut(StrDesktop&"\ShortcutScript.lnk")
  8. oShellLink.TargetPath=WScript.ScriptFullName
  9. oShellLink.WindowStyle=1
  10. oShellLink.HotKey="CTRL+SHIFT+F"
  11. oShellLink.IconLocation="notepad.exe,o"
  12. oShellLink.Description="Shortcut Script"
  13. oShellLink.WorkingDirectory=StrDesktop
  14. oShellLink.Save
  15. Set oUrLink=WshShell.CreateShortcut(StrDesktop&"\MicroSoft Web Site.url")
  16. oUrLink.TargetPath="http://www.microsoft.com"
  17. oUrLink.Save
  18. 二 WshArguments对象
  19. WshArguments对象放回收集命令行参数的指针。
  20. 实例二:
  21. Set objArgs=WScript.Arguments
  22. For I=0 to objArgs.Count-1
  23. WScript.Echo objArgs(I)
  24. Next
  25. 三 WshEnvironment
  26. Wshenvironment对象获取Microsoft Windows 系统的环境变量
  27. 例如下面的例子将返回一个名为NUMBER_OF_PROCESSORS的系统环境变量。
  28. 实例三:
  29. Set WshShell=WScript.CreateObject("WScript.Shell")
  30. Set WshSysEnv=WshShell.Environment("SYSTEM")
  31. WScript.Echo WshSysEnv("NUMBER_OF_PROCESSORS")
  32. 四 WshNetwork对象
  33. WshNetwork对象直接面向Microsoft Windows网络操作,简便的控制远程网络驱动器和打印机的连接。
  34. 下面的例子任务是显示域名,当前计算机的计算机名和用户名,显示网络驱动和打印机的映射信息。
  35. 实例四:
  36. Set WshNetwork=WScript.CreateObject("WScript.Network")
  37. Set oDrives=WshNetwork.EnumNetworkDrives
  38. Set oPrinters=WshNetwork.EnumPrinterConnections
  39. WScript.Echo "Domain=" &WshNetwork.UserDomain
  40. WScript.Echo "Computer Name="& WshNetwork.UserName
  41. WScript.Echo
  42. WScript.Echo "Networkdrive mappings:"
  43. For i=0 to oDrives.Count-1 Step 2
  44. WScript.Echo "Drive" &oDrives.Item(i)&"="&oDrives.Item(i+1)
  45. Next
  46. WScript.Echo
  47. WScript.Echo "Network printer mappings:"
  48. For i=0 to oPrinters.Count-1 Step 2
  49. WScript.Echo "ort"& oPrinters.Item(i)&"="&oPrinters.Item(i+1)
  50. Next
  51. 五 WshShell 对象
  52. WshShell对象开启一个新的流程,创建快捷方式,并提供Environment集合解决WINDIR,PATH或PROMPT之类的环境变量。
  53. 实例一对象的例子
  54. 六 WshShortcut对象
  55. WshShortcut对象创建一个快捷方式的应用。
  56. WshShortcut对象没有直接的功能语句,通过创建快捷方式CreateShortcut的方法来使用。
  57. 七 WshSpecialFolders
  58. WshSpecialFolder对象返回Windows Shell文件夹的路径,同样使用于桌面的文件夹,开始菜单文件夹和用户个人的文件夹
  59. 没有直接的功能语句,通过SpecialFolders 的属性设置实现。可以为创建桌面快捷方式提供文件夹的位置信息。
  60. 八WshUrlShortcut对象
  61. WshUrlShortcut对象创建一个URL快捷方式的引用对象。
  62. 没有直接的功能语句,通过创建快捷方式CreateShortcut的方法实现。
  63. 错误信息
  64. Protocol handler for "%1% not found(协议没有找到) :要创建的URL快捷方式目标停滞,例如等待运行一个快捷方式,链接至URL没有通过协议验证
  65. Unable to execute.argument list is too long (无法执行--参数表过长) :拖拽操作时脚本文件参数过多,不能执行。
  66. Unable to wait for process (等待停止) : 操作过程不可等待。
复制代码
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

楼主辛苦了
感谢你的付出
路 是自己选的

TOP

支持楼主。仔细研究下。

TOP

真心感谢,现在刚学,特别是对createobject不了解,LZ的教程很及时啊。再次感谢

TOP

VBS 脚本- -就是把TXT改VBS 就算VBS脚本了吧?
第一次接触- -
菜鸟也要学习学习批处理
请多多指教,多多关照

TOP

VBS 和VS 差不多吗?
菜鸟也要学习学习批处理
请多多指教,多多关照

TOP

返回列表