运行.vbs 提示没有权限“GetObject” 错误代码800A0046

2016-04-26 03:16:52 1.3k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

BAT与VBS脚本互调实战：3种方法实现后台隐藏与参数传递本文详细介绍了BAT与VBS脚本互调的3种实用方法，包括直接调用、混合编程和临时文件交互，帮助开发者实现后台隐藏运行和参数传递。通过具体代码示例和实战案例，展示了如何在Windows自动化任务中高效结合两种脚本语言的优势，提升开发效率。阅读详情

Function GetDnsServers(authority, domainDnsName)

	Dim objWmi, colItems, objItem, objPing, count, servers



	Set objWmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & authority & "\root\MicrosoftDNS")

	Set colItems = objWmi.ExecQuery("Select * from MicrosoftDNS_NSType where DomainName = '" & domainDnsName & "'")



	servers = ""



	For Each objItem in colItems

		Set objPing = GetObject("winmgmts:").Get("Win32_PingStatus.Address='" & objItem.NSHost & "'")

		

		If objPing.ProtocolAddress <> "" Then

			servers = servers & "," & objPing.ProtocolAddress

		

			If count = 2 Then

				Exit For

			End If



			count = count + 1

		End If

	Next



	GetDnsServers = Mid(servers, 2)

End Function

...全文

WinCC报表自动化：VBS脚本实现高效数据导出在工业自动化领域，SCADA系统作为数据采集与监控的核心平台，其报表功能对生产管理至关重要。传统手动报表生成存在效率低下、易出错等问题，而通过脚本实现自动化成为行业普遍需求。VBScript凭借其与Windows系统的深度集成优势，特别适合WinCC环境下的自动化开发。本文以WinCC报表自动导出Excel为例，详解如何利用VBS脚本操作COM接口实现数据高效流转，包含核心对象模型解析、三行关键代码实现原理，以及生产环境中的异常处理方案。针对工业场景常见的定时任务、批量处理等需求，提供了可直接复用的代码模板阅读详情

WangSongYuan

vbScript 4,008 成员 3,512 内容

+ 关注 + 加入社区

运行.vbs 提示没有权限“GetObject” 错误代码800A0046

相关推荐