如何在vbscript中检查字符串是否为有效的GUID？有人编写过IsGuid方法吗？在VBScript中，您可以使用RegExp对象使用正则表达式匹配字符串。这类似于。这是你需要的正则表达式 ^（A-Fa-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-F-0-0-0-0-0-7-7 7 7-7 7 7 7 7 7 7 7{{{3}[3}（A-A-A-A-A-A-F-F-F-F-F-F-F-F-F-
我正在尝试运行此脚本以将应用程序池分配给在IIS 6下运行的网站 Set oWebAdmin = GetObject("winmgmts:root\WebAdministration") Set oSite = oWebAdmin.Get("Site.Name='Site'") oSite.ApplicationDefaults.ApplicationPool = "NewAppPool" oSite.Put_ 此脚本无法在IIS 6下运行。。。有什么不对劲吗 谢谢，是的，root\WebAd
我有一个VBScript，我计划每天在许多Windows服务器上运行。在Windows 2000和2003中，由于这两个操作系统都有cscript.exe，所以脚本运行良好。然而，在WindowsNT4中，它似乎没有这个可执行文件 是否有在Windows NT 4中运行VBScript的替代/选项？您需要WSH 5.6。它应该在Windows Update上可用，或者您可以下载它。你知道NT4已经不受支持了吗根据这篇MSDN文章，WSH 5.6可用并在NT 4.0上运行： 然而，当我去下载中心
我有一个一年多没有接触过的代码，但是DCs从2008年升级到了2008年R2。广告人声称这不是DC升级，但问题在升级后立即开始 Microsoft VBScript运行时错误“800a0046” 权限被拒绝：“GetObject” 在集合线上失败了 Set Group = GetObject("WinNT://" & Logon_name & ",User") For each Member in Group.Groups If Member.Class = "Group"
有没有办法在VBScript中模拟enter键？例： set shl = createobject("wscript.shell") shl.sendkeys "SIMULATED ENTER" 试试{ENTER}，即 shl.SendKeys "{ENTER}" 这是我的推荐信
我有一个vbscript，我想在asp的中运行。我很难让脚本运行，所以我想我需要一些帮助，以确保asp知道它是vvbscript或其他东西。最后一个脚本是我运行时遇到问题的脚本 以下是我所拥有的： <%@ Language=VBScript %> <% ***vbscript*** %> <HTML> <HEAD> <link rel="stylesheet" href="MD_intstyle.css" type="text/c
我有以下VBScript代码： Dim returnVal returnVal = "You did not pass me 4 arguments" args = WScript.Arguments.Count If args = 4 Then returnVal = "The arguements you passed me are " & WScript.Arguments.Item(0) & " " & WScript.Arguments.Item
使用vbscript，如何筛选WMI查询的输出？我想返回除“管理员”和“访问者”之外的所有本地用户帐户 把你的句子改写成 objWMIService.ExecQuery("select * from Win32_UserAccount Where Name<>'Administrator' AND Name<>'Visitor' AND LocalAccount=True") objWMIService.ExecQuery（“从Win32_UserAccount中选择*
我正在使用检索本地用户帐户详细信息。此脚本使用 该脚本的摘录： If (bWMILocalAccounts) Then ReportProgress " Gathering local users" Set colItems = objWMIService.ExecQuery("Select Description, Name, FullName, LocalAccount from Win32_UserAccount Where Domain='" & strCompu
我在运行.vbs脚本时遇到权限问题。脚本是从接待员的计算机添加新用户帐户 脚本挂起在行上： objUser.SetInfo 这就是它实际设置属性并写入用户帐户的地方 我知道这是一个权限问题。我曾尝试以“顶级”管理员的身份运行该脚本，权限不应成为问题，但仍然出现错误80070005。如果我在域控制器或工作站上运行它，这没有什么区别——同样的错误 我已经创建了一个简单的三行脚本来创建一个用户对象来测试我的理论——甚至三行脚本在objUser.SetInfo行上也失败了 我可以做些什么来轻松地从加入
我计划使用以下方法将子网添加到Active Directory站点 我们正在努力将环境升级到2008 R2，以便将来可以使用powershell管理AD，但目前我们正在使用VB进行此操作 ' ------ SCRIPT CONFIGURATION ------ strSubnet = "<Subnet>" ' e.g. 10.5.3.0/24 strSite = "METRO" ' ------ END CONFIGURATION -------- set obj
我的脚本没有实际生成zip文件，这是一个问题。当我测试脚本时，路径设置如下： C:\Users\Bob\Desktop\Folder1\Folder2 如果文件夹1中的测试日志文件超过7天，则会被删除，并压缩并移动到文件夹2，这样它将运行得非常好。它将生成包含所有日志文件的压缩文件，并具有正确的命名集 所以我知道，至少脚本的逻辑是这样的 我的问题是，我需要这个脚本来检查机器上的安全日志，删除任何超过7天的日志，然后压缩剩余的日志并发送到已装载的共享驱动器。当我将路径更改为以下内容时： C:\Wi
当我尝试运行脚本时，它会抛出一个错误，即文件不存在。。 在脚本上，它确实存在echos文件。 试过 objshell.run“”“apppath”“”但运气不佳..：( 请帮忙 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") AppPath = objshell.ExpandEnvironmentStrings("%ProgramFiles%
我试图使脚本扫描文件夹，并列出只有图像文件，如jpg，png，gif。 这是密码 Dim fso, ObjFolder, ObjOutFile, ObjFiles, ObjFile, outputFile, inputFileList Const ForReading = 1, ForWriting = 2, ForAppending = 8, CreateIfNeeded = true inputFileList = "list.txt" outputFile = "C:\Users\Sus
例如： a1 = Split("item1 item2 item3") a2 = Split("value1 value2 value3") 现在我想创建名为a（2x3或vbscript语法array（1,2））的二维数组 有没有一种方法可以在不逐个元素遍历前面提到的数组的情况下创建这个二维数组 事实上，我甚至不想创建一维数组，但我想使用Split（）函数并立即将每个拆分分配到足够的二维数组行中，但我找不到任何可能的参考。我看到的所有示例都是分别指定每个元素，如： Dim a(1,2) a(0
此VBS与PowerPoint 2010、2003配合使用效果良好 Set pptApp = CreateObject("Powerpoint.Application") pptApp.Visible = True pptApp.WindowState = 2 Set ppt = pptApp.Presentations.Open("c:\temp\test.pptx") 但是，PowerPoint 2013最后一行有问题 Unspecified error 如果缺少某些特权，则会发生此错误
我在使用以下VBS时遇到困难 set conn = createobject("ADODB.Connection") Conn.Provider = "ADsDSOObject" Conn.Open "ADs Provider" strQueryDL = "<LDAP://company.address.com/cn=address>;(&(objectCategory=person)(objectClass=user));distinguishedName,adspath
首先，我为我的英语感到抱歉 我有一个关于windows WMI以及如何将本地端口添加到共享打印机的问题。我有以下脚本： Set objWMIService = GetObject("winmgmts:") Set objNewPort = objWMIService.Get _ ("Win32_TCPIPPrinterPort").SpawnInstance_ objNewPort.Name = "Ricoh3300C" objNewPort.Protocol = 2 objNewPort.Ho
我对VBScript或任何脚本都是新手 我希望脚本检查是否加载了图像。下面是我被困的地方的脚本 strURL="https://www.Test.com/" strUser="******" strPass="******" Set oIE = WScript.CreateObject("InternetExplorer.Application","IE_") Timeout=20 'seconds oIE.visible=1 : BeginTimer = Timer o
我是VBS脚本的新手，我正在尝试掌握我们目前在工作中使用的一个脚本，用于为工作站设置特定设置 我已根据更新的需要修改了脚本，但在尝试运行时出错 错误：需要对象：“document.getElementById（..）” 任何帮助都将不胜感激 '******************IE Interface Starts****************************************** Public skipexit Dim oIE ' declare variables
我正在尝试创建一个脚本，该脚本将连接到IP地址范围内的远程计算机，然后回显哪些计算机正在运行explorer.exe进程 当我在一个小范围内（10.2.1.1-10.2.1.10）运行脚本时，我知道10.2.1.4处于脱机状态，10.2.1.9和10.2.1.10不是基于Windows的计算机，因此应该回显“Explorer.exe未运行”，但情况似乎并非如此。它们似乎返回与前一个服务器相同的结果。例如，10.2.1.3有3个Explorer.exe实例和echo的3次，然后我得到了10.2.1
我需要一些关于快速问题的帮助。我有一个HTA应用程序，它是我正在制作的游戏的菜单，问题是，我有一个退出按钮，但当你单击它时，它只会关闭程序，但我想要的是，当你单击退出按钮时，会弹出一个VBS对话框，询问“你确定要退出游戏吗？”，有或没有按钮，有人能帮我吗 谢谢：D使退出按钮调用的过程如下所示： Sub ExitHTA answer = MsgBox("Are you sure?", vbYesNo) If answer = vbYes Then self.close() End Sub
我是一名学生，正在使用Indusoft Web Studio进行一个项目 我已经使用IWS大约6个月了，但我只使用了大约2周的VBScript 我需要删除txt文件中包含单词“Delete”的所有行。 我已经找到了这个方法，并修正了它来做我想做的事情，但我无法让它工作 我试图编辑的文件也被IWS使用，我试图通过给IWS另一个文件让IWS放弃该文件，但我不知道这是否有效。这就是我在代码的第一行和最后一行中所做的 我的VBScript是否错误，或者我是否需要在其他地方查找错误源 旁注前面带$的代码是
我正在尝试运行一个调用.bat文件的VB脚本。但是.bat文件的路径包含空格，因此vbs无法运行，显示错误为“未找到文件”。请帮忙。 .bat文件的路径无法更改请将路径置于引号之间。第一个“为字符串创建开头标记，第二个”是转义字符，因此第三个“将放置在字符串中。因此字符串的内容最终将是“C:\Folder Folder\My Script.bat”而不是C:\Folder Folder\My Script.bat Set sshShell = CreateObject("WScript.Shel
*为什么这不管用呢？由于某些连接字符串错误，代码无法运行，可能是一个过时的驱动程序不确定请提供帮助任何建议非常好的帮助是的，我已尝试使用驱动程序={Microsoft Access driver（.mdb，.accdb）}；仍然没有工作* ”连接到Inetpub中的Access驱动程序和Access数据库 '保存数据库的目录 strProvider=“Driver={Microsoft Access Driver（*.mdb）}；DBQ=D:\hostingspace\E2ESolutions\
比如说，我有一个列，每个列都有名字，每个名字都在一个单元格中 First_Name_1 Last_Name_1 First_Name_2 Last_Name_2 First_Name_3 Last_Name_4 名字和姓氏用空格隔开。 如何使用VisualBasic脚本将此列拆分为两列，以便在一列中有First_Name，在其旁边的列中有Last_Name 已尝试此代码，但无法使其正常工作 objExcel.ActiveSheet.Columns(4).Sele
为什么函数不能读取？ 是否有任何错误消息..？为什么函数在Sub中？我刚刚发现，如果计算机是RDP'ed，它会抛出错误，因为objItem.UserName为Null。因此，只有在该计算机上没有远程会话时，它才能工作。 Sub strComputer = "asdcom1" Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = ob
我希望有人能帮我解决这个令人沮丧的难题。 该脚本（由网络上的各种位拼凑而成）在双击运行时工作完美，要拆分的文件是硬编码的。 将文件拖放到脚本上时，出现“未找到文件”错误 请帮忙 我尝试了提供的答案，但是脚本运行没有失败，但也没有像硬编码“textFile”值时那样输出这三个文件 if WScript.Arguments.Count <> 0 then textFile = WScript.Arguments(0) else textFile = "multi2.
下面的脚本拼凑在一起，在给定路径内循环遍历子文件夹和文件。对于每个文件，我将获取与文件关联的路径、文件名、文件大小、文件类型、所有者和日期。我在许多目录中执行相同的任务，因此我创建了一个小的批处理文件，用于调用vbs并将数据输出到文本文件program.vbs echo>>output.txt 我的问题是，如何合并某种类型的错误处理？脚本在一个特定文件上失败，但该文件似乎没有损坏或具有任何独特的命名特征，因此我不知道它失败的原因 任何输入都将非常感谢，因为我确信我的脚本有很多缺陷，我更愿意学习正
我尝试用VBScript为PowerAMC制作一个脚本。 我犯了个错误 我检查了所有元素以生成一个包含内容的文件（XSD文件）： 并且该文件的内容良好，但如果我尝试使用以下内容阅读： public Function readFile(path) 'Declare variables Dim objFSO, objReadFile, contents 'Set Objects Set objFSO = CreateObject("Scripting.FileSystemObjec
我试图创建一种将数字转换为标准化科学符号的方法，下面是我用来计算尾数和指数的代码： ConvNSN 1000, M, P MsgBox M & "e" & P Sub ConvNSN(N, M, P) If N = 0 Then P = 0 M = 0 Else P = Int(Log(Abs(N)) / Log(10)) M = N / 10 ^ P End If End Sub 我面临
我需要帮助拆分包含十六进制字符的字符串。 怎么做？ 我得到的代码不起作用 dim itr itr="343434 XX7777777" ' SI msgbox itr dim scrns scrns=Split(itr,"SI",-1,1) msgbox scrns(1) 通过数字值定义字符（0x0f表示“移入”）： 在VBScript中，可以通过在十六进制数前面加&h来定义十六进制数。该函数将数字转换为相应的字符 正如@jnevil在评论中指出的，您也可以使用十进制而不是十六进制值： s
这是我的脚本，它打开Excel文件，从某些单元格获取信息，然后将其插入另一个Excel文档中。我已经包括了整个脚本，但是在我认为错误的地方做了标记。我真的很困惑为什么这不起作用，因为我在另一个完美工作的脚本中使用了完全相同的方法 更新了答案中的代码，仍然存在相同的问题。 我认为这是由Find\u Excel\u行引起的 我尝试将脚本放入循环中的函数中，这样变量就没有问题了，但我得到了相同的错误 Dim FSO 'File system Object Dim folderN
我试图在我正在制作的脚本中运行下面的命令，但由于空格的原因，脚本无法运行，因为它不喜欢语法。有人能帮我了解语法吗？我尝试过各种双引号、单引号等组合，但它就是不喜欢： If Not oLib.RunCommand( "REG ADD ""`HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3`"" /V ""`1806`"" /T ""`REG_DWORD`"" /D ""`00000000`"" /F",
在IE自动化中，如何处理通过vbscript单击“上载文件”或“附加”按钮时打开的窗口 说清楚一点，在按下“上传”按钮之前，我一直在自动执行。之后，我需要填写文件路径，需要在新打开的窗口中自动按下“打开”按钮。这是使用vbscript或任何其他方式处理该窗口的方法吗 您可以使用Wscript Shell对象激活启动文件上载时打开的对话框。使窗口聚焦的过程如下所示。您需要相应地调整它以适合您的代码。首先，您需要提供窗口标题。我现在不在Windows上测试，但它通常类似于“选择要上载的文件” 您也可
下面的脚本最初是为了获取用户的所有广告组（从提示符）并将其导出到txt文件中而编写的。最近进行的一些比较显示，该剧本并没有吸引所有的广告群。如有任何见解，将不胜感激 strInput = UserInput( "Enter the source user's AD username:" ) strInput2 = UserInput( "Enter folder path to save the output usergroups.txt file, ex. c:\temp:" ) strFil
我是新来的。从web上的示例编写VBScript代码。我正在尝试从网页中获取和文本，并将其保存到文本文件中。下面是一个网页数据示例，后面是我的一些失败代码。在PC上运行Windows 7 home premium “这是我正在访问的网页=========== <body> <div class stuff <div id stuff <div class="header-info"> <h1>The Girl I Love</h1&
我正在尝试使用vb脚本创建条形图。 我的剧本是 Set objExcel = CreateObject("Excel.Application") Set objReadWorkbook = objExcel.Workbooks.Open("D:\Excel_Macro_Proj\Create_Barchart.xlsx") Set oExcelReadWorkSheet = objReadWorkbook.Worksheets(1) objReadWorkbook.Sheets("Sheet1"
将计数器添加到5位数以上的下一个数字时： 溢油了 如果是5位数字，则错误不是 我使用VBScript： Counter = CInt (Counter) + CInt (Qty) 我想在分子中使用7位数字 如何解决这个问题？我很确定这个问题以前已经得到了回答 溢出错误可能是VBScript中最容易更正的错误。它告诉您当前数据类型不能包含该值。由于您使用的是CInt（）来明确定义您使用的是Integer数据类型，因此您有以下限制 从 整数 包含范围为-32768到32767的整数 这并没有给你太
由于我一直坚持的自动命名约定，文件保存在特定的归档文件中有两种方式之一。它们要么与数据库中的记录有13位数字的匹配，要么有10位数字的匹配。13位的也有10位匹配，应优先处理。我现在有两个脚本可以工作：一个只是查找13位匹配项并将它们移动到另一个文件夹。另一个是datemodified，这不是一个非常稳定的变量 我的合并尝试如下所示： 'dimming of obj, folder paths, sql db info and connection open above SQL = "SELEC
我正在开发一个脚本，将文件夹中的文件数分成四组。这些文件将转换为四个批处理文件，但目前的问题是将它们尽可能平均地分割 下面的脚本将在一定程度上起作用-如果我有一个将被4平均除的计数，但如果我有一个奇数，则不通过，少于4将崩溃。您可以运行脚本，只需将“C:\1\u SourceData\Section\u 16\”替换为您自己的文件路径即可。如果你取消对“将剩余部分添加到前面”一节的注释，这是为了在第一批中添加任何额外的文件，比如奇数，但这并不完全有效。文件夹中的文件数将在1到25之间 任何帮助都
我正在尝试在当前目录的所有子文件夹中运行vbscript。 到目前为止，我已经： CreateObject("Wscript.Shell").Run("""*\dirlistnew.vbs""") 但这不起作用。如果我删除*\，它将在当前目录中工作，但不会在子目录中工作。我知道我错过了一些简单的事情。已经搜索和尝试了几个小时，但没有结果。从我的代码片段库中找到了这个，请根据您的需要进行调整。 没有经过测试，过去几年我更喜欢Ruby 'call our sub with the desired
我的要求是搜索整个c:\驱动器并将条目导出为.txt文件格式。问题是用户需要在对话框中输入文件名 以下是我创建的脚本，当我运行此脚本时，我得到一个错误权限被拒绝 'On Error Resume Next Option Explicit 'force all variables to be declared Const ForWriting = 2 Dim objFSO Dim wshell Set wshell = CreateObject("WScript.Shell") Set objF
我有一个包含XML内容的字符串，它基本上具有执行测试脚本所需的配置 $SUB\u SEND，$COUNTRY\u code，$DOMAIN都是从配置文件中读取的 <Provisioning xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><Request><Header><Command>Create</Command><EntityIdentifiers><
我有一个在开发人员机器上运行的VBScript，其中包含以下代码行 CDate("01/09/2017") 返回日期为2017年9月1日 但在某些客户端上部署时，同一行代码返回2017年1月9日的日期 如何控制这一点？日期字符串很可能是根据相应系统的区域设置进行解析的。要在具有不同区域设置的系统中获得稳定的结果，您可能需要自己解析日期，例如： s = "01/09/2017" a = Split(s, "/") d = DateSerial(a(2), a(1), a(0)) 日期字符串很可
如何使用VBScript更改快捷方式目标？ 我试过了 Set shortcut=和sh.CreateShortcut（）之间不应该有换行符，扩展名是.lnk，而不是.ink。 Set sh = CreateObject("WScript.Shell") Set shortcut = sh.CreateShortcut("%systemdrive%\users\%username%\Desktop\Audacity.ink") shortcut.TargetPath = "%systemdriv
我们有一个HTA，用于使用VBS自动登录到服务器。为了维护安全性，我们希望对VBS进行编码，它具有登录服务器的凭据。我们遇到了一个VBS脚本，当拖动到它上时，它对VBS文件进行了编码，输出是一个VBE文件 现在，当从HTA调用此VBE时，它会显示和错误，看起来它无法正确读取VBE 下面是我们如何将VBE链接到我们的HTA： 此外，下面是编码代码： Option Explicit dim oEncoder, oFilesToEncode, file, sDest dim sFileOut,
我需要从行中删除一些文本： strdir = "C:\texto.txt" Set fso = CreateObject("Scripting.FileSystemObject") Set objFile = fso.OpenTextFile(strdir) Dim arrTxt() k = 0 Do Until objFile.AtEndOfStream z = (k+1) ReDim Preserve arrTxt(z) line = objFile.ReadLine
在一个由数千条记录组成的文本文件中，每条记录都有超过20行的数据，如果第14行为空，我需要在每条记录开始后计算第14行。该行为空或包含日期 每个记录的开始都是相同的：“1个新记录的开始” 情景： 1开始新记录 2一些数据 3“ 4“ 5“ 6“ 7“ 8“ 9“ 10“ 11“ 12“ 13“ 14 … 1开始新记录 … 8“ 9“ 10“ ... 2019年10月19日14日 在这个简单的场景中，结果应该是1。我的代码将每条记录的第1行复制到第二个文件中 结果显然是： 1开始新记录 1开
当我试图找到一个用户，如果他是一个组的成员，它需要花费太长的时间。是否可以为LDAP搜索筛选基本DN 下面是函数 ' ***************************************************** 'This function checks if the given AD user is a member of the given group. Function IsMember(domainName,userName,groupName) Set groupL