Articles of vbscript

Windows服务器的VB脚本

我需要一个VB脚本,在运行时给我关于服务器上更新的最新Windows补丁以及date和时间的详细信息。

closures域PC的散装ASYNCHRONOUSLY

我正在使用psshutdown来closures计算机列表,但似乎有些年龄会closures50多台PC的列表。 这是closures他们一个接一个,而不是在同一时间。 有没有任何程序或脚本来closures所有电脑的asynchronous,而不是一个一个,即使我是喂食名单? 就像一些vbs脚本创buildpsshutdown的多个实例一样。 谢谢。

networking映射脚本(VBS)Vista不起作用,XP会

我有一个奇怪的问题,(像总是:P) 好的:情况:XP客户端的Windows 2003域。 使用GPO,我在login时运行VBS脚本来映射一些驱动器。 这在XP上效果很好,但在Vista上不行。 如果我在用户login后手动运行脚本,它将起作用。 所以我知道脚本在Vista上工作,它只是不通过GPO运行。 该用户具有pipe理员权限。 我在Windows 7 RC1上也遇到同样的问题。 所以它必须是相关的。 剧本: on error resume next Dim objNetwork Dim strDriveLetter, strRemotePath, strUserName strDriveLetter = "Z:" strRemotePath = "\\Onsgeluk.ons_geluk.local\Profieldoc" Set objNetwork = WScript.CreateObject("WScript.Network") strUserName = objNetwork.UserName objNetwork.RemoveNetworkDrive "Z:" objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _ & "\" & strUserName objNetwork.RemoveNetworkDrive "X:" objNetwork.MapNetworkDrive "X:" , "\\Onsgeluk.ons_geluk.local\Data" objNetwork.RemoveNetworkDrive "Y:" objNetwork.MapNetworkDrive […]

无头的服务器卡住了“del”键,使其无法pipe理。 我怎样才能通过VBS禁用键盘?

我有一个无头Windows 2008 R2的盒子,似乎有一个键盘插入和按下删除键。 我正在使用GotoMypc访问该框,无法点击设备pipe理器,或使用命令行(退格是相当卑鄙的)。 我只是意识到我可以传输文件(通过GotoMyPC),并双击它(我的testing文件还没有被删除)。 我想我可以使用这个function重新获得我的盒子的一些控制…可能使用VBS或其他东西。 你怎么看?

login脚本 – >如果映射的驱动器的unc =这个然后断开和重新映射,否则什么都不做

我正在移动文件服务器。 一旦完成,我将不得不改变映射的驱动器号使用全networking指向新机器的UNCpath。 我想通过VBSlogin脚本处理更改,我将附加到OU以映射不同的驱动器。 脚本的目标是首先获取F:的UNCpath(或任何驱动器); 如果它等于“\ old_server \ files”,则断开连接,然后重新连接为“\ new_server \ files”。 否则,什么都不要做。 总共有5个path/驱动器,这将需要发生。 我尝试使用计算机性能的已连接脚本,但无法得到它的工作。 在多台机器上进行testing时,它并没有断开旧驱动器的连接。 任何帮助表示赞赏。

在Windows 2008中通过CMD或脚本禁用远程桌面

我正在寻找一种方法,在Windows 2008中使用命令行或脚本(如VBS)为特定用户(本地pipe理员帐户)禁用Windows 2008的远程桌面login。 我知道我需要修改本地安全策略,但是,我还没有find一种方法来执行此通过cmd或基于脚本的解决scheme。 任何人有任何build议如何解决这个问题? 最好的祝福 安德斯

VBSlogin脚本

有人可以提供一些VBS脚本的帮助吗? 这是我迄今为止修改的内容。 Const GROUP1 = "cn=GROUP1" Const GROUP2 = "cn=GROUP2" Const GROUP3 = "cn=GROUP3" Set wshNetwork = CreateObject("WScript.Network") Set ObjectUser = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ObjectUser.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) If InStr(strGroups, LCase("GROUP1")) Then wshNetwork.MapNetworkDrive "L:", "\\servername\\volume1\" End If If InStr(strGroups, LCase("GROUP2")) Then wshNetwork.MapNetworkDrive "M:", "\\servername\volume2\" End If If InStr(strGroups, LCase("GROUP3")) Then wshNetwork.MapNetworkDrive "N:", […]

如何从Windows 2003 DC获取域pipe理员用户列表

我试图从我的Windows Server 2003域控制器获取域pipe理员用户列表。 我无法使用PowerShell获取它,因为ActiveDirectory模块没有安装。 我需要从CMD获得它。 我已经尝试net group /domain "Domain Admins" ,虽然这将返回所有域pipe理员用户我需要以下格式,我不知道如何获得。 有任何想法吗? 该清单应该包含: User name (Baker, John for example) sAMAccountName (`I can obtain this with net /group`) Account creation date Last logon date If the account is enabled or not 编辑:我已经尝试过dsquery group -name "Domain Admins" | dsget group -members -expand dsquery group -name "Domain Admins" […]

连接某个文件,通过VBS / WScript自动启动

在Windows Vista上,我想用一个小VBS文件(然后将parameter passing给一个Chrome应用程序快捷方式应用程序,这实际上是我想要的)来打开某个扩展的所有文件。 使用批处理命令BAT或CMD文件工作正常 – 但显示批处理窗口的第二个是次优的 – 但是当使用VBS文件,只包括“hello world”回声,我的德语操作系统告诉我一些沿线“C:.. path到文本文件 ..不是可接受的Win32应用程序”。 有人可以帮忙吗?

VBS脚本的常量权限被拒绝错误

该文件被创build并复制到networking共享,但我需要这个运行没有错误,因为我需要安静地推出给用户。 权限已被设置为完整的每个人。 复制到本地驱动器时没有错误。 'Define variables, constants and objects 'define text file and username Const ForAppending = 8 Const OverwriteExisting = TRUE dim WSHNetwork, UserString set WSHNetwork = CreateObject("WScript.Network") UserString = WSHNetwork.UserName Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("" & UserString & ".txt", ForAppending, True) ' rest strComputer="localhost" Const HKEY_USERS = &H80000003 Set […]