Articles of vbscript

数据执行保护 – 使用命令提示符select“C:\ Program Files \ SSS \ sss.exe”中的exe文件

任何人可以帮助我使用命令提示符在DEPexception列表中添加"C:\Program Files\SSS\sss.exe" ?

Microsoft VBScript运行时错误:权限被拒绝的代码800A0046

我正在testing一个VBScript,它工作得很好。 想尝试一个不同的文件input,但突然间我得到Microsoft VBScript Runtime error: Permission denied code 800A0046 。 这个脚本几个小时前工作得很好? 没有人正在这个服务器上工作,也没有文件.. 我注意到,该文件夹不会删除“只读”,但我分配给自己在安全选项卡下的读写权限。这是怎么回事? 为什么这个文件突然不能给我许可? 这是Windows Server 2012,我有pipe理员权限。

VBScript:获取login的Windows用户,而不是执行一个

我需要在我们的networking中执行一个小的库存。 所以我写了一个我想用部署系统部署的VBScript。 我现在的问题是:脚本在AD系统用户的上下文中执行。 所以这一行: Set objNetwork = CreateObject("Wscript.Network") strOutput = strOutput & ";" & objNetwork.UserName 不会返回login的用户,而是返回运行该脚本的AD系统用户。 有人知道这个解决scheme吗?

FTP上传vb脚本:文件不覆盖

我传递值为16,但它不适合我,我的文件不覆盖,甚至popup也有任何工作? 我检查了20的价值也没有工作。 Const copyType = 16 strFolderPath = "D:\sample" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(strFolderPath) strFTP = "ftp://" & strFTPUser & ":" & strFTPPass & "@" & strFTPHost & strFTPDir Set objFTP = objShell.NameSpace(strFTP) objFTP.CopyHere objFolder.Items,copyType

使用PHP或脚本和Active Directory构build.htm电子邮件签名

我们使用基于不时变化的模板的HTML签名。 目前,我必须打开所有存储在服务器上的html文件到Dreamweaver或类似的,使更改为用户.htm文件,然后find并replace其他文件,这似乎是一个肮脏的方式做到这一点。 什么编号喜欢做的是使用PHP或某种forms的脚本从活动目录中拉用户的详细信息,然后插入模板有点像一个双赢的mailmerge,这样,当我做了一个改变,我可以重build每个人从头开始签名使用原来的模板我刚刚编辑。 希望是有道理的。 这是可能的PHP或某种vbscript能够实现相同的事情。 不知道从哪里开始,如果有人能给我一些好的指针, 我知道有这样的软件包来pipe理这样的事情,但公司不会certificate这笔费用是合理的。 任何帮助将是伟大的,谢谢

WS2008中的login脚本不会“粘”

我有一个专门用于Windows Server 2008的terminal服务器环境。 我的问题是我需要将驱动器号映射到每个用户Temp文件夹。 这是由于传统的应用程序,每个用户需要一个单独的Temp文件夹,但不能理解%temp%。 所以,只需在login脚本中添加“subst t:%temp%”,对不对? 问题在于,即使命令运行,subst也不会“粘住”,而用户也不会得到T:驱动器。 这是我所尝试的; 最简单的版本: 'Mapping a temp drive Set WinShell = WScript.CreateObject("WScript.Shell") WinShell.Run "subst T: %temp%", 2, True 这不起作用,所以尝试了更多的debugging信息: 'Mapping a temp drive Set WinShell = WScript.CreateObject("WScript.Shell") Set procEnv = WinShell.Environment("Process") wscript.echo(procEnv("TEMP")) tempDir = procEnv("TEMP") WinShell.Run "subst T: " & tempDir, 3, True 这显示我用户login时正确的临时path – 但仍然没有T:驱动器。 决定诉诸暴力,把这个在我的login脚本: 'Mapping a […]

在vbs上运行脚本的脚本

大家好我有一个脚本在VBScript Dim WSHShell, WinDir, Value, wshProcEnv, fso, Spath Set WSHShell = CreateObject("WScript.Shell") Dim objFSO, objFileCopy Dim strFilePath, strDestination Const OverwriteExisting = True Set objFSO = CreateObject("Scripting.FileSystemObject") Set windir = objFSO.getspecialfolder(0) objFSO.CopyFile "\dv.rt.ru\SYSVOL\DV.RT.RU\scripts\shutdown.vbs", windir&"\", OverwriteExisting strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" _ & strComputer & "\root\cimv2") JobID = "1" Set colScheduledJobs = […]

枚举和映射networking驱动器(Windows 7 Pro / Windows Server 2003)

我有一个Windows XP客户端的工作脚本,通过Windows Server 2003 PDC的组策略分发。 这是脚本的主要部分: Function ggMapNetworkDrive(fDriveLetter, fShareName, fDrives, fWSHNet) 'Map a network drive Dim lExist lExist = -1 For i = 0 to fDrives.Count – 1 Step 2 If fDrives.Item(i) = fDriveLetter Then lExist = i End If Next If lExist = -1 Then 'no drive, map us a drive fWSHNet.MapNetworkDrive fDriveLetter, fShareName […]

通过组策略添加行到文本文件

我需要使用组策略将两行添加到文本文件。 我不能用更新的文件replace文件,因为文件的内容因机器不同而不同,但是所有的文件都必须用两行更新。 有没有可能做到这一点? 我已经知道如何使用VBScriptreplace文件,然后通过组策略应用它。 谢谢,阿卜杜拉

查看主机名并移动到相应的OU的脚本

是否可以创build一个“通用”脚本来检查主机名的前三个字母并将主机移动到相应的OU中? 例如,以TKYxxxxx开头的主机名是东京的主机,当脚本检测到TKY时,它将把该主机移动到东京站点OU。 如果主机名存在于AD中,是否有可能build议进一步将该脚本作为login脚本的一部分进行检查,如果主机名存在于AD中,则检查主机名并将其移至相应的站点OU。 如果不匹配,请将其保留在计算机OU中。 提前致谢。