我希望在VBScript中加密一个字符串,并将其在PHP中解密.我对VBScript/ASP经典环境有完全控制,但对我的PHP环境的控制为零. 鉴于此,我可以使用什么样的加密来保护字符串?对于这个问题的模糊性表示歉意,但我不知道从哪里开始. 解决方案 您应该尝试的第一件事就是简单地使用标准加密/解密算法. 问题在于,这些问题是由PHP McRypt扩展程序处理的,您可能会或可能没有可用. 您想要 如果存在,则使用相同的算法和vbscript/asp上的参数加密的纯文本应在PHP上解密.如果您获得有趣的结果,请准
以下是关于 vbscript 的编程技术问答
我有一些会话值,这些会话值我经常通过ajax调用更改.我似乎无法在帖子数据上处理并设置值. 我传递给它的是我的代码中显示的一系列字符串. 这是Ajax调用的地方: var sessionValues = []; str = {"PID": "1", "Level": "Main", "MenuName": "Kitchen", "State": "CHECKED"} sessionValues.push(str); var postObj = {"sessionData": sessionValues}; $.ajax({ type: 'POST', data: {'data': postObj}, url: 'setSession.asp' }).done(function(response){ console.log(response); }) 我在该程序的PHP版本中可以正常工作,但是我的ASP版本没有抓住数据.这是我的php ver和as
我有一个vbscript文件.当电脑在计算机上工作正常.我想将其放在PHP网站上,以通过单击按钮执行它.但是我没有成功.它实际上获得了计算机信息.希望它能在用户机器上使用.任何想法都将不胜感激.如果或是否有人知道如何使用JScript 这是代码: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colSettings Wscript.Echo "OS Name: " & objOperatingSyste
我正在尝试制作一个脚本以将任何文件上传到简单的HTML/PHP上传表单. 我找不到任何不使用ASP的工作脚本. 这是我拥有的最接近的代码:(vbs) Dim strURL Dim HTTP Dim dataFile Dim dataRequest Dim objStream strURL = "http://10.0.0.50/~/v_upload/up.php" Set HTTP = CreateObject("Microsoft.XMLHTTP") Set objStream = CreateObject("ADODB.Stream") Set dataFile = objStream.Read objStream.Type = 2 objStream.Open objStream.LoadFromFile "http.txt" Set dataRequest = "dataFile=" & dataFile HTTP.open "POST", strURL, False
我正在尝试在经典ASP(VBScript)中创建一个多维阵列的排列,我严重困扰.我已经尝试了自己的几个功能,还尝试复制几个PHP版本,但我经常最终得到一些变成缓冲区溢出/无限递归的东西,或者我得到的结果更像是组合而不是置换的结果我正确理解差异. 可以说是衬衫.衬衫可以具有颜色,尺寸和样式. (实际系统允许任何数量的"组"选项(例如颜色,大小等)以及每个组中的任何数量的选项(每个特定尺寸,每个特定颜色等). 例如: small med lg xl red blue green white pocket no-pocket 请注意,阵列的任一维元素的数量事先未知;另外,并非所有第二维度都具有相同数量的元素. 我需要迭代每个可能包含每行选项的唯一选项.在此特定示例中,将有32个选项(因为我需要忽略任何给定选项具有空值的结果,因为ASP并没有按照我的期望来处理锯齿状的数组. 小红色口袋 小红色的小口袋 小蓝口袋
任何人都可以给我一些关于如何在脚本中设置MSMQ队列的权限的指示,最好是PowerShell,但我会使用vbscript 解决方案 礼物(2015)对此问题的回答. 示例: New-MsmqQueue -Name "MyQueue" -QueueType Private Get-MsmqQueue -Name "MyQueue" -QueueType Private | Set-MsmqQueueAcl -UserName "Everyone" -Allow FullControl 适用于:Windows 8.1,Windows PowerShell 4.0,Windows Server 2012 R2 参考: .com/en-us/library/dn391735(v = wps.630).aspx 其他解决方案 这是一些示例PowerShell,包括设置权限... 对长度 的抱歉 Write-Host "" Write-Host "Ex
我在服务器上有一个文件夹(Windows Server 2012 R2),该文件夹与所有人共享.我所有的用户每天上传一个纯文本清单文件.然后,我有一个安排在管理员凭据下运行的VBScript,该凭据在阅读这些文件后删除这些文件.但是,我在尝试删除或移动文件时会获得权限拒绝错误. 这是一些失败的简单代码: Dim PathtoInventoryFiles Dim myFSO Dim myFile Dim colFiles PathtoInventoryFiles = "D:\Inventory$" Set myFSO = CreateObject("Scripting.FileSystemObject") Set colFiles = myFSO.GetFolder(PathtoInventoryFiles).Files For Each myFile In colFiles wscript.echo myFile.path 'Tried both of t
我正在尝试自动化将文件推入我的用户主目录中,但是陷入了"许可拒绝"错误上 - 在此处,在第6行上,使用CopyFile调用. 使用相同的源和目标目录创建和复制文件夹内容的脚本的其他部分(未显示),它们可完美地工作.只有当我使用CopyFile时,它才会失败. Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FileExists("H:\Minecraft\.minecraft\options.txt") Then fso.CopyFile "C:\Minecraft\options.txt", "H:\Minecraft\.minecraft\" End If Set fso = Nothing H:是一个网络主目录,当前用户对其具有完整的读/写priv. 我尝试从路径上添加/删除尾随的斜线,将"options.txt"添加到目标路径,删除false参数..
我注意到,当我将XML文件值配置为"&"字符时,则XML文件未正确打开 我猜这是因为XML文件值不应具有某些字符AS& 和"&"不应在xml文件中设置为值 请建议,如果有更多字符不应该在XML中设置为值? (或者也许&角色是唯一的?) xml"&" 的不良价值的示例 \EEA\E1\C & W 100\AWQ xml的右行示例 \EEA\E1\C and W 100\AWQ 解决方案 我会推荐您: 某些字符在xml中具有特殊的含义. 如果您在XML元素中放置了类似" xml中有5个预定义的实体参考: < greater than & & ampersand ' ' apostrophe " " quotation m
有人可以提出一个脚本,以将Windows子目录中的一堆文件重命名,并带有文件名的文件名.例如,如果文件名为 abc xyz.pdf 应该是 abc_xyz.pdf 解决方案 perl:使用File::Find用于递归查找和在文件上行动. 请注意,您需要小心:不要重命名具有下划线的目录,因此File::Basename. use File::Find; use File::Basename; use File::Spec; use strict; find ({ 'wanted' => \&renamefile }, 'X:\my\sub\dir'); sub renamefile { my $file = $_; return unless (-f $file); # Don't rename directories! my $dirname = dirname($file); # file's directory, so
我在IIS 6上运行VBScript,我需要将状态更新发布到一个Twitter帐户.几年前,这将很容易(例如,四行代码),但是Twitter决定放弃明智的身份验证,而有利于某些称为Oauth的怪兽,似乎需要多个请求和回调以执行最简单的任务.有一个用于在VBScript中使用OAuth的库,尽管这可以使我无法编写自己的HMAC和SHA1库,但它并不能消除系统的基本复杂性.如果我打算使用多个帐户或保存凭据,或者除了在一个Twitter帐户中发布几个单词以外,看起来将非常有帮助. 我想做的是找到一种简单的方法,将一个单个状态更新发布到一个常数Twitter帐户. 如果在vbscript中不可能,我可以调用一个perl脚本,尽管这带有自己的头痛集.如果存在VBScript解决方案,它将真的很好. 注意:这个问题是相似的,但是已经有几年了,而且都是问题(Twitter的身份验证)和解决方案(可用代码)从那以后发生了变化. 解决方案 如果您在perl中进行 net :: T
perl print 2 % -18; - > -16 tcl puts [expr {2 % -18}] - > -16 但是vbscript wscript.echo 2 mod -18 - > 2 为什么有区别? 解决方案 wikipedia答案在这里很有帮助. 简短的摘要是任何整数都可以定义为 a = qn + r 所有这些字母都是整数, 0 几乎每个编程语言都需要(a/n) * n +(a%n)= a.因此,模量的定义几乎总是取决于整数划分的定义.整数除以2/-18 = 0或2/-18 = -1有两种选择.根据您的语言的正确,通常会更改%操作员. 这是因为2 =(-1) * -18 +(-16)和2 = 0 * -18 + 2. 对于perl,情况很复杂. 手动页面说: "使您可以直接访问C编译器实现的模量运算符.该操作员对负操作数的定义不太明确,但是它将更快地执行.在适用
是否有更有效的方法将2个字典组合在VBScript/VBA中?我在下面写了该功能,但我担心性能影响: Function MergeDicts(Dct1, Dct2) 'Merge 2 dictionaries. The second dictionary will override the first if they have the same key Dim Res, Key Set Res = CreateObject("Scripting.Dictionary") For Each Key In Dct1.Keys() Res.Item(Key) = Dct1(Key) Next For Each Key In Dct2.Keys() Res.Item(Key) = Dct2(Key) Next Set MergeDicts = Res End Function 解决
如果我需要一个从系统中执行的脚本,我会选择哪个? 通过在任务管理器上查看流程: 内存(私人工作集) wscript.exe 2,068k powershell.exe 33,144k 谢谢. 解决方案 这里有工作原理的保护.如果机器的工作较少,那么您必须做更多的工作.如果机器确实有效,则必须做更少的工作. 我们与PowerShell的理念是,最重要的资源是管理员的时间和关注,因此我们花费机器资源来提供最佳的体验.因此,如果您正在寻找机器上最轻的足迹,则应在" C"中对其进行编码. C ++比那重,VBS还重,C#甚至更重,并且比Powershell更轻.当然,每个人还需要比PowerShell更大的努力来产生解决方案. 因此,一天结束时,您最终得到的是连续的选择,而您需要做的是确定什么是适合当前问题的工具.我们从一开始就了解,因此我们设计了PowerShell以提供平滑的滑行路径到C => => c ++ => C.这使您可以从PowerShel
我正在尝试制作一个将在图片中的局部Intranet设置中添加异常的VBScript.我假设这是可以从我阅读的内容来看. 我尝试了几种解决方案,包括以下解决方案,感觉我无处可去! 如果有任何帮助,该脚本将在Windows 7 Pro机器上运行. AddTrustedSite "//192.168.0.10" Function AddTrustedSite(strDomainName) Set WshShell = Wscript.CreateObject("Wscript.Shell") strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\" WshShell.RegWrite strRegKey & strDomainName & "\", "", "REG_SZ" WshShell.RegWrite str
我正在更新一个旧的代码,该代码使用vbscript拔出IE中的窗口.由于某种原因,它喜欢在IE后面开放. Google给了我以下几行,以在VBScript中设置窗口焦点: set WshShell = WScript.CreateObject("WScript.Shell") WshShell.AppActivate("calculator") 但是,当我在IE中运行此操作时,我会收到错误"必需的对象:'wscript'." 有什么办法以IE或另一种方法来执行此操作?我已经打开并操纵一个毫无问题的文档. 编辑:要澄清,我正在浏览器(IE)中的标签中运行此操作,并且代码在第一行上崩溃,甚至在我调用appActivate之前. p> 更新:我的安全设置非常低;所有ActiveX设置都启用(这是Intranet服务).我从 this 问题和这个问题,从工作javascript: functio