2020-02-16 标签:用来,分割,文本,vbs,脚本,实现,代码,如下,error,resume,next,code,netpatch,set,arg,wscript,arguments,count,quit

实现代码如下： On Error Resume Next 'Code By NetPatch Set Arg=Wscript.Arguments If Arg.Count=0 Then Wscript.Quit Set Fso = CreateObject("Scripting.FileSystem

2020-02-16 标签:vbs,读取,index,dat,内容,实现,代码,如下,contact,info,author,vengy,modiy,lcx,email,cyber,flash,hotmail,com,tested

实现代码如下：' +----------------------------------------------------------------------------+ ' | Contact Info | ' +----------------------------------------

2020-02-16 标签:计算机,用户,获取,实现,vbs,代码,显示,当前,名称,数目,如下,const,ads,scope,subtree,set

显示当前域内所有计算机名称及数目 实现代码如下： Const ADS_SCOPE_SUBTREE = 2 Set objRootDSE = GetObject("LDAP://rootDSE") strDomain = ObjRootDSE.Get("defaultNamingContext") S

2020-02-16 标签:sql,获取,结构,show,table,vbs,冰点,极限,np,实现,代码,如下,set,arg,wscript,arguments,count,help

实现代码如下：set arg=wscript.arguments If arg.count = 0 Then show_help() wsh.quit End If Server = arg(0) User = arg(1) pass = arg(2) database_name = arg(3)

2020-02-16 标签:vba,获取,ppt,幻灯片,标题,代码,实现,如下,private,sub,click,enabled,false,gettitles,true,end,error,resume

实现代码如下： Private Sub CommandButton1_Click() Me.Enabled = False getTitles Me.Enabled = True End Sub Sub getTitles() On Error Resume Next Dim oPres As Pr

2020-02-16 标签:写个,设置,命令,vbs,脚本,代码,实现,如下,作者,eric,liu,将以,下代,复制,保存为

实现代码如下： '作者：刘先勇 (Eric Liu) '将以下代码复制并保存为"系统命令.VBS"，并运行安装。 '安装成功后，可通过在程序、文件或文件夹上点右键->发送到->系统命令来设置一个命令，然后在运行中就可以输入该命令打开文件了。 '脚本运行一次后在右键菜单中增加从这里运行CM

2020-02-16 标签:microsoft,vbscript,运行时,错误,800,a,0005,无效,过程,调用,参数,chr,昨天,公司,服务器,重做,系统,遇到,asp,附件

昨天给公司服务器重做了一下系统,遇到Asp附件无法上传,之前服务器上使用好好的,怎么重做了就不正常了,于是一番google，baidu，下面将解决办法送出,帮助碰到该问题的朋友少走弯路: 1,权限问题请确保您所上传文件的文件夹"来宾用户"有可写入的权限,有的是存入数据库的,也要有修改权限. 2,文件

2020-02-16 标签:vbs,自动关机,30,实现,代码,如下,dim,wsh,set,wscript,shell,getobject,winmgmts,ootwmi

实现代码如下：Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject("WScript.Shell") Set objWMIService = GetObject("winmgmts:\. ootwmi") Se

2020-02-16 标签:vbs,实现,利用,adsl,拨号,ip,投票,代码,以前,写过,流量,刷新,页面,稍微,添加,自动,提交

以前写过一个利用ADSL拨号变ip刷流量的vbs，只要把刷新的页面稍微改一下（添加个自动提交的js）就是了，可是怎么找都找不到了，没法重新写。 还有种办法就是vbs直接提交，可是写了半天，怎么也没运行起，以后改好了在贴出来。 写的时候遇到了点问题，就是利用网页的js提交的时候，会跳转跳显示投票成果的

2020-02-16 标签:vbs,自动,复制,u,内容,思路,很简单,高层,东西,没什么,技术含量,引用,几个,函数,方法,就行,我用,的是,批处理

思路很简单，高层的东西没什么技术含量，引用几个函数或方法就行了。开始我用的是批处理（如果你插入U盘的盘符是J，把课件保存于F盘）打开记事本，键入以下内容： 实现代码如下： :cheat ping 127.0.0.1>nul if exist J:\*.ppt (copy J:\*.ppt F: