VBS脚本常用代码大全 2011 整理.docVIP

VBS脚本常用经典代码收集 于 2011年7月2日21:13:37 整理 在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。Dim wmp Set wmp = CreateObject(WMPlayer.OCX) wmp.openStatewmp.URL = 想象之中.mp3 Do Until wmp.playState = 1  WScript.Sleep 1000Loop”这样就可以通过QQ发送了) Set shell=CreateObject(WScript.Shell)shell.run shutdown -s -t 60 -c 系统即将关闭.,0While InputBox(请输入答案,请回答)123 密码是123 MsgBox 答案在心中...,16+4096 4096 是让窗口在最顶层Wendshell.run shutdown -a,0MsgBox 恭喜,64 Sphoto=d:\1.bmp输入你自己的BMP路径computer=.Const hkcu=Set wmi=GetObject(winmgmts:\\ computer \root\default:stdregprov)wmi.getstringvalue hkcu,Control Panel\Desktop,Wallpaper,Spathwmi.setstringvalue hkcu,Control Panel\Desktop,TileWallpaper,0wmi.setstringvalue hkcu,Control Panel\Desktop,WallpaperStyle,2wmi.setdwordvalue hkcu,Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced,ListviewShadow,1Set wmi=Nothing Set fso=CreateObject(scripting.filesystemobject)Set fs=fso.Getfile(Sphoto)backname=fs.Name=fso.GetFileName(Spath)fs.Copy fso.GetParentFolderName(Spath) \,Truefs.Name=backnameSet fso=Nothing Set ws=CreateObject(wscript.shell)ws.Run gpupdate /force,vbhide ws.Run RunDll32.exe USER32.DLL,UpdatePerUserSystemParametersSet ws=Nothing VBS获取系统安装路径路径先定义这个变量是获取系统安装路径的，然后我们用strWinDir调用这个变量。 Set WshShell = WScript.CreateObject(WScript.Shell)strWinDir = WshShell.ExpandEnvironmentStrings(%WinDir%) VBS获取C:\Program Files路径 Set WshShell = WScript.CreateObject(WScript.Shell)strPorDir = WshShell.ExpandEnvironmentStrings(%ProgramFiles%) VBS获取C:\Program Files\Common Files路径 Set WshShell = WScript.CreateObject(WScript.Shell)strCommDir = WshShell.ExpandEnvironmentStrings(%CommonProgramFiles%) 给桌面添加网址快捷方式 Set WshShell = WScript.CreateObject(Wscript.Shell)strDesktop = WshShell.SpecialFolders(Desktop)Set oShellLink = WshShell.CreateShortcut(strDesktop \百度.lnk)oShellLink.TargetPath = /oShellLink.Description = 百度主页oShellLink.IconLocation = %ProgramFiles%\Internet Explorer\iexplore.exe, 0oShellLink.Save 给收藏夹添加网址 Const ADMINISTRATIVE_TOOLS =