VBS-几则小事例
[size=9pt]！获得特定文件夹的路径（例如当前用户的桌面在磁盘中的实际位置，等等，相当于[/size][size=9pt]vc[/size][size=9pt]中的[/size][size=9pt]SHGetSpecialFolderPath[/size][size=9pt]（）函数）[/size][size=9pt]Set wsShell = CreateObject("WScript.Shell")
DesktopPath = wsShell.SpecialFolders("Desktop")
[/size][size=9pt]！获取当前用户名称[/size][size=9pt]
Set WshNetwork = WScript.CreateObject("WScript.Network")
UserName= WshNetwork.UserName
[/size][size=9pt]！获取系统变量[/size][size=9pt]%SystemRoot%[/size][size=9pt]（当然其他的系统变量可以类推，只是不只是不是都要通过[/size][size=9pt]PROCESS[/size][size=9pt]中转一下）[/size][size=9pt]
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshSysEnv = wsShell.Environment("PROCESS")
SystemRoot = WshSysEnv("WINDIR")
[/size][size=9pt]！将域用户或租添加到本地组[/size][size=9pt]
Set objGroup = GetObject("WinNT://./Administrators")
Set objUser = GetObject("WinNT://testnet/Engineers")
objGroup.Add(objUser.ADsPath)
[/size][size=9pt]！修改本地管理员密码[/size][size=9pt]
Set objcnlar = GetObject("WinNT://./administrator, user")
objcnla.SetPassword "P@ssW0rd"
objcnla.SetInfo
[/size][size=9pt]！弹出[/size][size=9pt] YES or NO [/size][size=9pt]的对话框，不同的选择执行不同的代码[/size][size=9pt]
intAnswer = Msgbox("Do you want to delete these files?", vbYesNo, "Delete Files")
If intAnswer = vbYes Then
Msgbox "You answered yes."
Else Msgbox "You answered no."
End If
[/size][size=9pt]！运行[/size][size=9pt]CMD[/size][size=9pt]命令行命令[/size][size=9pt]
set obshell=wscript.createobject("wscript.shell")
obshell.run ("ipconfig"),,true
[/size][size=9pt]如果要运行的命令中包含双引号，可使用[/size][size=9pt]&chr(34)&[/size][size=9pt]代替[/size]
[size=9pt]！忽略代码错误继续执行[/size][size=9pt]
On Error Resume Next
[/size][size=9pt]放置于代码的最开头，当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。[/size]
[size=9pt]！破解下载限制[/size][size=9pt]
DIM WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("[/size][size=9pt]本程序的作用是解决无法下载的问题[/size][size=9pt]")
WSH.POPUP("[/size][size=9pt]特别是在注册表禁用的情况下破解[/size][size=9pt]")
WSH.POPUP("[/size][size=9pt]由曾诚制作[/size][size=9pt]")
WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1803",0,"REG_DWORD"
WSH.POPUP("[/size][size=9pt]现在您可以下载程序了[/size][size=9pt]!")
[/size][size=9pt]！读本机[/size][size=9pt]“[/size][size=9pt]计算机名[/size][size=9pt]”
'ReadComputerName.vbs
Dim ReadComputerName
Set ReadComputerName=WScript.CreateObject("WScript.Shell")
Dim ComputerName,RegPath
RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"
ComputerName=ReadComputerName.RegRead(RegPath)
MsgBox("[/size][size=9pt]计算机名为[/size][size=9pt]"&ComputerName)
[/size][size=9pt]！隐藏快捷方式图标上的小箭头[/size][size=9pt]
'Hidden.vbs
Dim HiddenArrowIcon
Set HiddenArrowIcon=WScript.CreateObject("WScript.Shell")
Dim RegPath1,RegPath2
RegPath1="HKCR\lnkfile\IsShortCut"
RegPath2="HKCR\piffile\IsShortCut"
HiddenArrowIcon.RegDelete(RegPath1)
HiddenArrowIcon.RegDelete(RegPath2)
[/size][size=9pt]！改造[/size][size=9pt]“[/size][size=9pt]开始[/size][size=9pt]”[/size][size=9pt]菜单[/size][size=9pt]
'ChangeStartMenu.vbs
Dim ChangeStartMenu
Set ChangeStartMenu=WScript.CreateObject("WScript.Shell")
RegPath="HKCR\Software\Microsoft\Windows\CurrentVersion\Policies\"
Type_Name="REG_DWORD"
Key_Data=1
[/size][size=9pt] [/size][size=9pt]
StartMenu_Run="NoRun"
StartMenu_Find="NoFind"
StartMenu_Close="NoClose"
[/size][size=9pt] [/size][size=9pt]
Sub Change(Argument)
ChangeStartMenu.RegWrite RegPath&Argument,Key_Data,Type_Name
MsgBox("Success!")
End Sub
[/size][size=9pt] [/size][size=9pt]
Call Change(StartMenu_Run) '[/size][size=9pt]禁用[/size][size=9pt]“[/size][size=9pt]开始[/size][size=9pt]”[/size][size=9pt]菜单中的[/size][size=9pt]“[/size][size=9pt]运行[/size][size=9pt]”[/size][size=9pt]功能[/size][size=9pt]
Call Change(StartMenu_Find) '[/size][size=9pt]禁用[/size][size=9pt]“[/size][size=9pt]开始[/size][size=9pt]”[/size][size=9pt]菜单中的[/size][size=9pt]“[/size][size=9pt]查找[/size][size=9pt]”[/size][size=9pt]功能[/size][size=9pt]
Call Change(StartMenu_Close) '[/size][size=9pt]禁用[/size][size=9pt]“[/size][size=9pt]开始[/size][size=9pt]”[/size][size=9pt]菜单中的[/size][size=9pt]“[/size][size=9pt]关闭系统[/size][size=9pt]”[/size][size=9pt]功能[/size]
[size=9pt]！向[/size][size=9pt]Windows[/size][size=9pt]中添加自启动程序[/size]
[size=9pt]该程序能在开机时自动运行。[/size][size=9pt]
'AddAutoRunProgram.vbs
'[/size][size=9pt]假设该程序在[/size][size=9pt]c:\myfile[/size][size=9pt]文件夹中，文件名为[/size][size=9pt]autorun.exe
Dim AutoRunProgram
Set AutoRunProgram=WScript.CreateObject("WScript.Shell")
RegPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Type_Name="REG_SZ"
Key_Name="AutoRun"
Key_Data="C:\Myfile\autorun.exe"
'[/size][size=9pt]该自启动程序的全路径文件名[/size][size=9pt]
AutoRunProgram.Write RegPath&Key_Name,Key_Data,Type_Name
'[/size][size=9pt]在启动组中添加自启动程序[/size][size=9pt]autorun.exe
MsgBox("Success!")
[/size]
页:
[1]