我正在寻找将列出D：驱动器的顶级文件夹而不是子文件夹的VBScript代码。 到目前为止，我使用以下的WMI查询，但它给了我所有的文件夹，并下降到许多级别。 也似乎只是因为我还没有确定的原因而停止。 Set colFolders = objWMIService.ExecQuery("Select * from Win32_Directory Where Drive = 'D:'") 编辑： 经过更多的search，我发现了一些给我我想要的东西。 以防万一有其他人看这里是文件夹和大小的VBScript： Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") set objFolder = objFSO.GetFolder("D:\") for Each folder in objFolder.SubFolders On Error Resume Next size = folder.size if Err.Number <> 0 Then size = -1 end if wscript.echo folder.name,size Next
你知道Windows关机过程是否被执行？ 是否有一些标准来避免subprocess和父进程之间的进程间通信问题？ 这个问题来源于脚本的一个可疑的（明显的）巧合情况，终止成功并closures了机器[对Falcon Kirtaran回复的原始书面问题的过度描述]。
我正在寻找一个脚本来删除每个用户桌面上的.lnk文件。 我在terminal服务器上安装了一个程序，该程序在每个用户的桌面上放置了一个.lnk文件，而不是在“公共”桌面文件夹中放置一个快捷方式。 我已经删除了该程序，但现在我需要一个脚本来删除每个用户的桌面上的快捷方式。 任何帮助非常感谢，谢谢！
有没有办法在VBScript中确定打印共享是否存在于打印服务器上？ 这个想法是在共享从服务器上被移除的情况下，去除与该打印机的连接。 文件共享是一个问题，如果检查一个现有的文件夹，但怎么样的打印份额？
我想了解下面的VB脚本的输出，该脚本将GUIDparsing为活动目录中的string： http://support.microsoft.com/default.aspx?scid=kb%3Ben-us%3B325649 本文演示如何将对象的GUID的hexstringforms转换为其stringforms： 将以下代码粘贴到.vbs文件中。 '================================================================ 'Set the next line to reflect a DN for an object in the directory '================================================================ Set obj = GetObject("LDAP://CN=Username,CN=Users,DC=DOMAIN,DC=COM") MsgBox "The GUID string Value for user " & obj.Get("DisplayName") & _ " is " & ConvertHexStringGUIDToStringGUID(obj.GUID) '================================================================ ' ConvertHexStringGUIDToStringGUID function '================================================================ Function ConvertHexStringGUIDToStringGUID(strOctet) Dim tmpGUID, GUIDStr 'Convert the string by […]
我有一堆服务器：Windows 2003和2008.我只是想将这些硬件规格导出到电子表格： CPU：数字处理器，时钟速度等 总硬盘空间 总使用的磁盘空间 电脑模型 我开始通过diskpart，systeminfo和wmic编写一个脚本来完成这个任务。 但是，在我太疯狂了，重新发明轮子之前，只是想知道是否有人知道PowerShell，VB脚本或其他可以做到这一点的东西。
我有一个简单的VB脚本运行一个EXE程序VB脚本和EXE程序都在同一个文件夹C：\ XXX，我希望这个脚本运行，每当机器重新启动，因为我们有40个服务器，手动重新启动是不可行的。 我已经在registryHKEY_CURRENT_USER / software / microsoft / windows / currentversion / Run中添加了一个值 当我重新启动服务器它说“找不到文件”，VBScript和EXE肯定是在正确的文件夹。 如果我手动运行VBScript，它工作正常。 脚本如下 设置wshshell = wscript.CreateObject（“WScript.Shell”） WshShell.Run“c：\ xxx \ checkit.exe” 谢谢Tony
我使用下面的VB脚本（示例）来打开CMD窗口，并在我的WIN XP上运行ipconfig CMD窗口被打开 但由于某种原因，WshShell.SendKeys不能在CMD窗口上发送ipconfig 请指教一下是什么原因，WshShell.SendKeys不发送“IPCONFIG”？ Option Explicit Dim WshShell set WshShell = WScript.CreateObject("WScript.Shell") WshShell.run("cmd.exe") WScript.Sleep 5000 WshShell.SendKeys "ipconfig" WshShell.SendKeys("{Enter}") WScript.Sleep 5000
我正在尝试使用msi卸载程序来卸载inventor 2011，但默默地执行它导致资源pipe理器closures，而不是重新启动。 我有一个来自Autodesk的VB脚本，可以正常工作，但即使在适当的修改之后它也不会保持沉默。 我想得到一个无声的卸载，不会closures资源pipe理器，并等待重新启动。 我怎样才能做到这一点？ 下面是AutoDesk的VBScript。 '============================================================================ ' Uninstall_ACAD_2011.vbs ' This script is designed to uninstall AutoCAD 2011 and remove installed plug-ins ' ' Copyright © 2010 by Autodesk, Inc. All Rights Reserved. ' ' You are hereby granted permission to use, copy and modify this ' software without charge, provided you do so exclusively […]
我有一个有几百台电脑的环境。 我正在尝试编写运行的vBscript并添加适当的打印机。 打印机名称可以使用有关计算机名称的线索来确定。 我的脚本（由于debugging有点脏）如下： 'Key vars printServer = "SERVER" Set WshNetwork = CreateObject("WScript.Network") 'Extract computer name and take the first two fields cNameParts=Split(WshNetwork.ComputerName,"-") printerNamePrefix = cNameParts(0) + "-P" + cNameParts(1) Set objWMIService = GetObject("winmgmts:\\" & printServer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select Name from Win32_Printer WHERE Name LIKE '" + printerNamePrefix + "-%'",,48) 'Set colItems […]