小编use*_*952的帖子

如何将日志添加到我的vbscript

我有这个脚本,它读取计算机列表并检查计算机是否安装了正确的软件版本.该脚本向我回应了版本错误的计算机,但我想改为记录日志

Dim strComputer, objFSO, ObjShell, strDisplayName, objList, strObject
Dim objReg, arrSubKeys, strProduct, strVersion, strReqVersion
Const For_Writing = 2
Const ForReading = 1
const ForAppending = 3
Const HKLM        = &H80000002
Const strKeyPath  = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
strReqVersion = "8.2.1 MP2"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objList = objFSO.OpenTextFile("c:\test\test.txt",ForReading)
Do While Not objList.AtEndOfStream
    strComputer = objList.ReadLine
    If HostOnline(strComputer) = True Then 
       Inventory(strComputer)
    End If 
Loop 
Function Inventory(strComputer)
Set objTextFile = objFSO.OpenTextFile("c:\test\inventory.txt",2,true)
'creating a dictionary object
Set objDictionary = CreateObject("Scripting.Dictionary") …
Run Code Online (Sandbox Code Playgroud)

vbscript

7
推荐指数
1
解决办法
6万
查看次数

如何添加文本以跨越jquery

我有这个jquery代码,我用它来创建一个动态菜单

function createList(test){
      alert(test);
        $('#nav')
        .append('<li class="top"><a href="nogo2" id="products" class="top_link"><span class="down"></span></a></li>');
        $('.down').text(test);
    }
Run Code Online (Sandbox Code Playgroud)

我遇到的问题是当我尝试将文本添加到跨度时

$('.down').text(test);
Run Code Online (Sandbox Code Playgroud)

如果我的值是abcde,则菜单会更改为最后一个值,然后我的所有菜单eeeee都可以帮助我

javascript jquery

2
推荐指数
1
解决办法
2万
查看次数

标签 统计

javascript ×1

jquery ×1

vbscript ×1