vbs之使用Internet Explorer 屏蔽密码

Set objExplorer = WScript.CreateObject _  
    ("InternetExplorer.Application", "IE_")  
objExplorer.Navigate "file:///c:scriptspassword.htm"     
objExplorer.Visible = 1               
objExplorer.ToolBar = 0  
objExplorer.StatusBar = 0  
objExplorer.Width=400  
objExplorer.Height = 250   
objExplorer.Left = 0  
objExplorer.Top = 0  
Do While (objExplorer.Document.Body.All.OKClicked.Value = "")  
    Wscript.Sleep 250                   
Loop   
strPassword = objExplorer.Document.Body.All.PasswordBox.Value  
objExplorer.Quit  
Wscript.Sleep 250  
Wscript.Echo strPassword 

vbscript 注册表脚本书写
WScript.Echo"EnablingKerberosLogging..."constHKEY_LOCAL_MACHINE=&H80000002strComputer="."SetStdOut=WScript.StdOutSetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_strComputer&"rootde

vbs下通过日期查找文件夹的代码
OnErrorResumeNextdtmTargetDate="20020301000000.000000-420"strComputer="."SetobjWMIService=GetObject_("winmgmts:"&"!\"&strComputer&"rootcimv2")SetcolFolders=objWMIService.ExecQuery_("Select*fromWin3

vbs复制文件的脚本
parentfolder="c:"sourcefile="c:windowslog.log"targetfolder=parentfolder&date&""setobjshell=createobject("shell.application")setobjfolder=objshell.namespace(parentfolder)objfolder.newfolderdatesets