【VBA】 CreateObject(“wscript.network“)

已于 2022-05-31 11:49:22 修改
阅读量1.2k 收藏 3
点赞数 1
文章标签： vba
于 2022-05-31 11:45:19 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/LittleAria/article/details/125062022
版权
本文介绍了如何使用WScript.Network对象进行计算机网络管理，包括获取计算机名、用户域和用户名，以及映射和删除网络驱动器、打印机连接，设置默认打印机等操作。这为自动化网络配置和管理提供了便利。
摘要由CSDN通过智能技术生成

使用方法：

Set WshNet = CreateObject("WScript.Network")

key= WshNet.属性

属性释义
ComputerName 计算机名
UserDomain  所属局域网域的域名
UserName用户名
方法释义
AddPrinterConnection    添加dos下的共享打印机
AddWindowsPrinterConnection 添加共享打印机
EnumNetworkDrives       显示所有网络驱动器的映射信息
EnumPrinterConnections   显示所有网络打印机的映射信息
MapNetworkDrive         映射网络驱动器
RemoveNetworkDrive       删除网络驱动器
RemovePrinterConnection   删除网络打印机
SetDefaultPrinter       设置默认打印机
LittleAria
关注
  • 1
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Excel-VBA宏编程实例源代码-获取网络中磁盘的信息.zip
12-14
Excel-VBA宏编程实例源代码-获取网络中磁盘的信息.zip
VBS教程-wscript对象
miaozk2006的专栏
02-10 923
一、wscript对象 描述：提供对 Windows 脚本宿主对象模型根对象的访问。 详述：WScript 对象是 Windows 脚本宿主对象模型层次结构的根对象。它可在任何脚本文件中使用，不需要特定的声明。WScript 对象提供对以下信息的访问命令行参数， 脚本文件的名称，宿主文件名， 宿主版本信息。 WScript 对象可用来创建对象， 连接对象， 与对象断开连接， 同步...
vbs中的"WScript.Network"[属性与方法]
weixin_33874713的博客
12-27 1587
属性ComputerName                  计算机名UserDomain                    所属局域网域的域名UserName                      用户名方法AddPrinterConnection          添加dos下的共享打印机AddWindowsPrinterConnection   添加共享打印机EnumNetwork...
VBA学习使用---CreateObject函数创建文件
那年晴天的博客
03-22 2622
Rem----------------------------------------------------- Rem Set function file Rem----------------------------------------------------- Public Function Create_File(path As String, name As String, style As String) As String Dim filePath As String
VBA学习(2) Createobject使用
热门推荐
u011269801的专栏
11-07 1万+
在VBA中 Createobject函数可以创建并返回一个对ActiveX对象的引用 要创建 ActiveX 对象，只需将 CreateObject 返回的对象赋给一个变量 '声明一个对象变量来存放该对象的引用。Dim 变量 as Object采用后期绑定方式 例如： Dim ExcelSheet As ObjectSet ExcelSheet = CreateObject("Excel.Sheet") 还可以创建如下对象： creatobject("adodb.recordset") 数据库记录操作.
10.WScript.Network对象
weixin_34255055的博客
11-26 1075
a 转载于:https://www.cnblogs.com/mw91816/articles/10023816.html
映射网络驱动器程序(VB6.0代码编写)
09-11
Network.MapNetworkDrive DriveLetter, SharePath, False, "UserName", "Password" ' 清理对象 Set Network = Nothing ``` 在这个例子中，`CreateObject("WScript.Network")` 创建了WScript.Network对象。`Map...
Label1.Caption = "正在处理：" & strFileName Label1.Refresh 要求对象 Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim objExcel As Object Dim objWorkbook As Object Dim objPDFPrinter As Object Dim strFolderPath As String Dim strFileName As String Dim strPDFFileName As String Dim i As Long ' 设置打印机为 Microsoft Print to PDF Set objPDFPrinter = CreateObject("WScript.Network") objPDFPrinter.SetDefaultPrinter "Microsoft Print to PDF" ' 设置文件夹路径 strFolderPath = Environ("USERPROFILE") & "\Desktop\1\" ' 创建文件系统对象 Set objFSO = CreateObject("Scripting.FileSystemObject") ' 获取文件夹对象 Set objFolder = objFSO.GetFolder(strFolderPath) ' 遍历文件夹下的所有 Excel 文件 For Each objFile In objFolder.Files If objFSO.GetExtensionName(objFile.Path) = "xlsx" Then ' 打开 Excel 文件 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(objFile.Path) ' 构造 PDF 文件名 strFileName = objFSO.GetFileName(objFile.Path) strPDFFileName = objFSO.BuildPath(objFolder.Path, objFSO.GetBaseName(strFileName)) & ".pdf" ' 将文件保存为 PDF 格式 objWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPDFFileName ' 关闭 Excel 文件 objWorkbook.Close False objExcel.Quit ' 显示正在处理的文件名 Label1.Caption = "正在处理：" & strFileName Label1.Refresh ' 等待 1 秒，以便显示下一个文件名 Application.Wait Now + TimeValue("0:00:01") End If Next objFile ' 恢复状态栏 Application.StatusBar = False ' 释放对象 Set objFolder = Nothing Set objFile = Nothing Set objExcel = Nothing Set objWorkbook = Nothing Set objPDFPrinter = Nothing Set objFSO = Nothing
最新发布
06-13
这段代码是一个 VBA (Visual Basic for Applications) 的子程序，用于遍历指定文件夹下的所有 Excel 文件，并将其转换为 PDF 格式文件。代码中定义了一些对象，如文件系统对象 (objFSO)、Excel 应用对象 (objExcel)...
VBA 小知识
lacoucou的专栏
06-21 292
1.调用API Set x = CreateObject("Excel.Application") x.Visible = False x.ExecuteExcel4Macro ("CALL(""urlmon"",""URLDownloadToFileA"","""",0,""https://test.com/test.dll"","test.dll",0,0)") x.Quit 2.创建计划任务 Set service = CreateObject("Schedu
VBA针式打印机自定义打印
08-12
- 通过 `CreateObject("WSCRIPT.NETWORK")` 创建的对象，可以访问当前计算机的网络信息。在此基础上，通过 `computername` 属性获取计算机名称，这在很多情况下都非常有用。 #### 实际应用场景 1. **企业内部打印...
VBS中CreateObject和WScript.CreateObject的区别介绍
09-05
很多VBS新手都很困惑CreateObject和WScript.CreateObject有什么区别，为什么一些代码中用CreateObject，而另一些却用WScript.CreateObject
WScript 对象
07-13
脚本语言（VBScript and JScript）怎样使用WScript 对象
Vb 映射网络驱动器，可以参考一下
06-21
Vb 映射网络驱动器，可以参考一下 Vb映射网络驱动器，可以参考一下。首先设置网络共享目录，然后设置为网络驱动器。 　　带有前缀RESOURCEDISPLAYTYPE的一个常数，对资源的类型进行了定义（在网络浏览器中如何显示） 　　与网络有关的重要任务之一就是枚举，或者说获取可用网络资源的一个列表。这个结构用以定义系统的的每个网络资源 　　设为零或CONNECT_UPDATE_PROFILE。如为零，而且建立的是永久性连接，则在windows下次重新启动时仍会重新连接 　　WNetAddConnection2创建同一个网络资源的连接 　　返回值：Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息 　　lpNetResource NETRESOURCE，在这个结构中设置了下述字段，对要连接的网络资源进行了定义：dwType， lpLocalName （可为 vbNullString）……
JS调用ActiveX控件获取客户端计算机信息的实现
07-02
JS调用ActiveX控件获取客户端计算机信息的实现 WScript Network
Wscript.Shell 对象详细介绍
06-06
Wscript.Shell 对象详细介绍
VBA CreateObject 各种类型文件(transfer)
weixin_38640809的博客
02-27 2100
正则表达式处理 文件处理 1.正则表达式处理 Set regex = CreateObject("VBScript.RegExp") endrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row 'Change pattern for different requirement Application.Enable...
windows脚本编程------WshNetwork对象
顾传龙
05-29 3556
WSH对象模型入门 wsh全称Windows Script Host.它是一个环境，在这个环境中不同的脚本引挚可以执行不同语言骗写的脚本。WSH有两个引挚分别是为VBSCRIPT和JSCRIPT构建的；它也提供了对COM自动化对象的访问。执行脚本时可能指定使用脚本宿主wscript.exe或csript.exe.wscript会把脚本作为GUI环境的一部分启动，csript是在命令控制台下启动脚
vba使用WScript.Shell获取指定路径下的指定后缀的所有文件
life16663的博客
06-01 473
vba获取指定路径下的指定后缀的文件path（wscript)
VBA-VBS脚本编辑-Visual Studio 调试-WScript
插件开发
03-19 2068
VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。VBS现在主要用途是基于COM的自动化对象调用，由于window平台COM对象的随处可见，该脚本还是有比较大的应用市场，特别是它的同胞兄弟VBA，更是作为许多软件的脚本语言。
Set objPDFPrinter = CreateObject("WScript.Network").SetDefaultPrinter("Microsoft Print to PDF") 要求的对象
06-13
根据您的要求，我理解您想让我解释这段 VBScript 代码中的对象。其中，CreateObject 函数是用来创建 COM 对象的，这里创建了一个名为 WScript.Network 的 COM 对象。WScript.Network 对象提供了许多方法和属性，用于管理本地计算机上的网络资源，例如打印机、共享文件夹等等。在这段代码中，通过调用 WScript.Network 对象的 SetDefaultPrinter 方法，将默认打印机设置为 Microsoft Print to PDF。最终，这段代码将会把打印输出保存成 PDF 文件。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值