我想使用WMI和VBScript来查找registry中configuration单元的文件大小。 这是我迄今为止： const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_ strComputer & "\root\cimv2:StdRegProv") strKeyPath = "System\CurrentControlSet\Control\Hivelist" objReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath, arrVals, arrTypes WScript.Echo "Values under System\CurrentControlSet\Control\Hivelist" For Each val In arrVals objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, val, dwValue WScript.Echo dwValue Next 这给了我正确的列表，但是我需要得到文件大小。 什么是完成这个最好的方法？
我创build了一个.vbs脚本来执行一些操作（即closures一些进程等），然后执行msi安装。 我想find一种方法来合并这个.vbs脚本，所以用户在运行setup.exe的时候会先执行这个脚本。 这怎么可能？
你们用一个VBScript做了很大的帮助，所以我要用你自己的方式去做。 也许你可以帮我解决皱纹。 我用这个脚本的意图是重命名PC。 计算机名称是提示文本（我提供的东西，比如位置代码），连字符以及从WMIC调用的计算机序列号的最后10位数字的组合。 即1275-XXXXXXXXXX 我的问题如下： 如果我的代码超过10个字符，它只是错误。 我想解决这个问题。 我敢肯定，这只是我编码的方式，与WMIC无关。 如果从WMIC拉出序列号时出错，比如说没有任何价值，我想要提示input一些东西。 然后在最后它将采取Input1（位置代码）和Input2（我提供，如果SN拉失败），在中间打一个连字符，并应用它。 如果它失败，我的错误是不工作的。 我不知道为什么。 我已经find了很多不同的解决scheme来重命名PC的input内容，或者专门用来拉取SN，但是并不适用于我的具体情况。 任何帮助将一如既往地大受赞赏。 🙂 这是我的代码： 'Rename computer by serial # v1.0 November 2009 dim Bios, BiosSerial, objFSO, objTextFile 'Const ForReading = 1, ForWriting = 2, ForAppending = 8 'get PropertyID strInput = UserInput( "Enter the BHMS Property ID:" ) Function UserInput( myPrompt ) […]
我有一个运行IIS 5的较旧的Windows 2000服务器。我在这台服务器上安装了一些网站，一个特定的客户正在运行一个有趣的错误。 他正在使用VP-ASP购物车。 Microsoft VBScript runtime error '800a0007' Out of memory /cart/admin/admin$db.asp, line 558 该行附近的相关代码： '******************************************************************************** 'all routines dealing with actual cart are here 'CartaddItem () 'CartInit '******************************************************************************** sub CartInit dim ArrCart dim MaxCartItems, CartAttributes MaxCartItems=GetConfig("xMaxCartItems") CartAttributes=cMaxCartAttributes if MaxCartItems="" then exit sub redim ArrCart(CartAttributes,MaxCartItems) session("CartArray") = ArrCart session("CartCount") = 0 end sub 问题是，当他开始出现这个错误时，机器只使用了超过50％的内存。 硬盘上还有空间可用。 […]
我有要求，我不知道如何去做。 我有一个Doc.xml文件，这是Microsoft XML格式。 我需要创build一个VB脚本，将Doc.xml更改/ Doc.xlsx，所以当用户试图打开文件时，它将打开一个Excel文件。 其中一个要求是该脚本将从Windows计划程序运行。 任何想法或build议将非常感激。 这是我创build和正在工作的脚本，但是当我尝试将SaveAs扩展名更改为“.csv”时，文件未正确保存。 我想我需要找出什么代码是保存在CSV中。 Dim objXLApp, objXLWb, objXLWs Set objXLApp = CreateObject("Excel.Application") objXLApp.Visible = True Set objXLWb = objXLApp.Workbooks.Open("C:\Users\jmejia\Desktop\XML_F\ZOOSHR_130622.xml") 'Do nothing with File, just open it to be save agains as a new file format objXLWb.SaveAs "C:\Users\jmejia\Desktop\XML_F\ZOOSHR_130622.xlsx", 51 objXLWb.Close (False) Set objXLWs = Nothing Set objXLWb = Nothing objXLApp.Quit Set […]
使用VBScript，什么是最好的方式来查询本地组政策中的“用户权利指派”。 如在“拒绝login为服务”下获取组和用户，
我有一个脚本，执行以下操作 'Create a bat file Set objBatFile = objFS.CreateTextFile("X:\" & strType & "\closeit.bat",True) intExitCode = objBatFile.Write("for /f " & chr(34) & "skip=4 tokens=1" & chr(34) & " %%a in ('net files') do net files %%a /close") objBatFile.Close 'Run the bat file to close all files in the directory intExitCode = objShell.Run("X:\" & strType & "\closeit.bat", […]
Windows 7的 简单的.bat和.vbs文件 等级：血腥的初学者 总结：在“shutdown.exe”–call期间，禁止windows关机消息框 我试图运行一个简单的系统关机，也是清除我的临时文件，并提供一个选项来中止。 到目前为止，我几乎用一些简单的文件接着达到我的目标。 清除临时数据 rmdir /s /q "C:\Users\myusername\AppData\Local\Temp" 执行关机 c:\windows\system32\shutdown -s -f -t 30 然后我创build一个消息框允许我通过按下OKbutton中止关机： x=msgbox ("Temp files cleared. Executing system shutdown now!" & vbNewLine & "Press OK to abort shutdown.",262144+48+0, "System Shutdown") If x=vbOk Then Dim objShell Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run "abortShutdown.bat" end if （abortShutdown.bat只是shutdown /a ） 系统正在closures，中止工作。 问题在于Windows […]
我需要帮助，如何创build脚本（VB）列出TXT文件中的计算机中的所有服务Windows（使用WMI我认为更好），但我想知道如何通过“login为”筛选，因为所有定制的服务运行指定用户。 谢谢大家。
我怎样才能使一个bat文件或脚本文件，将能够自动login到任何路由器提供的密码… 我尝试了一个脚本代码，但是这不是取回密码，并要求进入cmd窗口.. 请帮助在这个VB脚本或任何其他解决scheme.. Set cloner = CreateObject("WScript.Shell") cloner.run"cmd" WScript.Sleep 500 cloner.SendKeys "telnet 0.0.0.0" cloner.SendKeys ("{Enter}") WScript.Sleep 500 cloner.SendKeys "My password" cloner.SendKeys ("{Enter}") WScript.Sleep 5000