我有这个脚本,它读取计算机列表并检查计算机是否安装了正确的软件版本.该脚本向我回应了版本错误的计算机,但我想改为记录日志
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) 我有这个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都可以帮助我