压缩： FunctionfZip(sSourceFolder,sTargetZIPFile) ''ThisfunctionwilladdallofthefilesinasourcefoldertoaZIPfile ''usingWindows''nativefolderZIPcapability. DimoShellApp,oFSO,iErr,sErrSource,sErrDescription SetoShellApp=CreateObject('Shell.Application') Set

DimWshShell setWshShell=CreateObject('wscript.Shell') WshShell.Run'cmd/k' fori=1to3 WScript.Sleep500 WshShell.SendKeys'netuseradmin'&i&'abcd@123/add' WshShell.SendKeys'{ENTER}' next WshShell.SendKeys'exit' WshShell.SendKeys'{ENTER}'

复制代码 代码如下: SetobjExplorer=WScript.CreateObject_ ('InternetExplorer.Application','IE_') objExplorer.Navigate'file:///c:\scripts\password.htm' objExplorer.Visible=1 objExplorer.ToolBar=0 objExplorer.StatusBar=0 objExplorer.Width=400 objExplorer.Height=

复制代码 代码如下: setadsou=getobject('ldap://cn=users,dc=hzcncter,dc=local') constforreading=1 setobjfso=createobject('scripting.filesystemobject') setobjtextfile=objfso.opentextfile_ ('users.txt',forreading) dountilobjtextfile.atendofstream strnextline=obj

constKEY_QUERY_VALUE=&H0001 constKEY_SET_VALUE=&H0002 constKEY_CREATE_SUB_KEY=&H0004 constDELETE=&H00010000 constHKEY_LOCAL_MACHINE=&H80000002 strComputer='.' SetStdOut=WScript.StdOut SetoReg=GetObject('winmgmts:{impersonationLevel=impersonate}!\\'&_

复制代码 代码如下: DimenTmp,enstr,a,bb enstr=Str2Hex('RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU') Fori=1ToLen(enStr)step6 enTmp=Array(Mid(enStr,i,6)

objs='c:\aaa\*'''支持UNC路径 objd='d:\aaa\' ''请自行修改上面两个路径 Setobjshell=CreateObject('Scripting.FileSystemObject') objshell.CopyFolder(Objs,objD)''当文件存在时默认进行覆盖操作

WScript.Echo'EnablingKerberosLogging...' constHKEY_LOCAL_MACHINE=&H80000002 strComputer='.' SetoReg=GetObject('winmgmts:{impersonationLevel=impersonate}!\\'&_ strComputer&'\root\default:StdRegProv') strKeyPath='SOFTWARE\999' strDWORDValueName='DWORDV