标签: vbscript

我想从VBScript创建一个用于Java程序的.properties文件.我将在使用ASCII映射之外的字符的语言中使用一些字符串.所以,我需要替换这些字符的UTF代码.这对于a,\ u0062来自b等等.

有没有办法在VBScript中获取char的UTF代码？

使用VB.NET,C#或VBScript,如何检查运行IIS 7.x的计算机上是否已安装IIS 6管理兼容性功能及其子功能？

我想知道Classic ASP(VBScript)中函数名的最大允许长度是多少.

我在VBSCript中有以下代码:

Function getFacilitiesNotes(objComp)
            Dim strFacilities
            strFacilities = strFacilities & "<div id =""facilities"">"
            strFacilities = strFacilities & "<ul>"
            For intCount = 1 to objComp.Fields.Item("Facilities").Value.Count
            strFacilities = strFacilities & "<li>" & objComp.Fields.Item("Facilities").value(intCount) & "</li>"
            Next
            strFacilities = strFacilities & "</ul>"
            strFacilities = strFacilities & "</div>"
            getFacilitiesNotes = strFacilities
End Function

在上面的函数中,代码strFacilities = strFacilities & "<li>" & objComp.Fields.Item("Facilities").value(intCount) & "</li>"在执行循环时可能具有以下类型的值.

1)ABC 2)DFG1 3)G231EG 4)REWEREW1 5)DSFWRE3 6)YRTRWER1

现在我想删除"1",如果它是循环中上面字符串中的最后一个字符.

请建议!!

我想在这个vbscript运行时编写事件日志.我该怎么办？

谢谢你的帮助.

我试图用vbs调用我的excel宏.这是我的代码片段.

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Folder\Test_PO.xls")
objExcel.Application.Visible = True
objExcel.Application.Run "C:\Folder\Test_PO.xls!Data_Analysis"
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
WScript.Echo "Finished."
WScript.Quit

现在问题是我能够打开文件,但宏以某种方式在这里被禁用并显示给我'macro may not be present or may be disabled'.我确定我正在调用正确的宏名称,但是一旦文件被打开,加载项选项卡我已经配置了宏来运行得到消失.如果我手动打开文件,这不会打开,我可以看到选项卡并从选项卡本身运行宏.有什么建议我如何克服这个问题并让宏运行？

我试图理解为什么我的查询(下面)在我运行它时在MS Access Sql查询编辑器(sqlview)中显示错误消息.

SELECT *
FROM tblUSPS
INNER JOIN   tblProductUSPS 
ON tblProductUSPS.[PRODUCTUSPS_USPS] = tblUSPS.[USPS_CODE] 
INNER JOIN  tblAttribute 
ON tblUSPS.USPS_ID = tblAttribute.ATTRIBUTE_USPSID

据我所知,如果我删除任何一个INNER连接线,下面的脚本.例如,此脚本运行时没有错误

SELECT *
FROM tblUSPS
INNER JOIN   tblProductUSPS 
ON tblProductUSPS.[PRODUCTUSPS_USPS] = tblUSPS.[USPS_CODE] 

这也是如此

SELECT *
FROM tblUSPS  
INNER JOIN  tblAttribute ON tblUSPS.USPS_ID = tblAttribute.ATTRIBUTE_USPSID

但是当我结合起来时,出现了问题,我无法找到它,所以我希望得到一些帮助.

我尝试调用从VBS VBA子程序与VBS传递一个字符串变量VBA,却找不到此时,相应的语法:

'VBS:
'------------------------
Option Explicit

Set ArgObj = WScript.Arguments 
Dim strPath

mystr = ArgObj(0) '?

'Creating shell object 
Set WshShell = CreateObject("WScript.Shell")

'Creating File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Getting the Folder Object
Set ObjFolder = objFSO.GetFolder(WshShell.CurrentDirectory)

'Getting the list of Files
Set ObjFiles = ObjFolder.Files

'Creat a Word application object
Set wdApp = CreateObject("Word.Application")
wdApp.DisplayAlerts = True
wdApp.Visible = True

'Running macro on each wdS-File
Counter = 0
For Each objFile in objFiles
  If UCase(objFSO.GetExtensionName(objFile.name)) = "DOC" …

一周前我写了这个脚本,当你登录然后根据一天中的时间问候你时会启动它.今天早上它突然突然说:"无效时间"(如果所有其他elseif选项与时间不匹配,它会这样做).这曾经工作到今天.

这是我的代码:

Set objShell = CreateObject("WScript.Shell")
ctime = Time()
usr = objShell.ExpandEnvironmentStrings("%username%")
if ctime > "06:00:00" and ctime < "12:00:00" then
    objShell.Popup "Good Morning, " & usr, 5, "", 4096
elseif ctime > "12:00:00" and ctime < "18:00:00" then
    objShell.Popup "Good Afternoon, " & usr, 5, "", 4096
elseif ctime > "18:00:00" and ctime < "23:59:59" then
    objShell.Popup "Good evening, " & usr, 5, "", 4096
elseif ctime > "00:00:00" and ctime < "06:00:00" then
    objShell.Popup "Good night, …

我的公司仍然有一个经典的ASP网站，我们正在努力升级到.net。当我们升级到引入任务视图的Windows功能1803时，我们的整个开发团队都停了下来。一页加载从几秒钟到8分钟以上。由于经典的asp和VBScript并不流行，因此在堆栈溢出时对此一无所知。

我找到了解决方法，并希望在此处保留此信息，以防其他人也遇到此问题。