|
VBS脚本应用-其它示列(2) dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.RegWrite "HKCU\\SOFTWARE\\AUDITION\\AUTOSTART",0,"REG_DWord"
Wsh.RegWrite "HKCU\\SOFTWARE\\AUDITION\\PATH","G:\\网络游戏\\劲舞团1.5","REG_SZ"
Wsh.RegWrite "HKCU\\SOFTWARE\\AUDITION\\VERSION",1010,"REG_DWORD"
Wsh.run "patcher.exe"
Dim fso, folderspec, f, f1, fc
folderspec = "f:\\Program Files\\Tencent\\QQ" \'设置你的QQ文件夹
Dim Re Set
Re = New RegEXP
Re.Pattern = "^\\d{4,13}$"
Set fso = CreateObject("scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
If Re.Test(f1.name) Then
On Error Resume Next
f1.Delete(true) On Error GoTo 0
End If
Next
'隔5分钟运行一次批处理程序
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Do
Wsh.Run "d:\\aaa.bat" '你要执行的批处理
WScript.Sleep(300000)
Loop
将域用户或租添加到本地组
Set objGroup = GetObject(WinNT://./Administrators)
Set objUser = GetObject(WinNT://testnet/Engineers)
objGroup.Add(objUser.ADsPath)
修改本地管理员密码
Set objcnlar = GetObject(WinNT://./administrator, user)
|
