翼展电脑服务中心


VBS以管理员身份运行程序

2019-8-4 乱云飞 评论(0) 浏览(116) 标签: VBS 管理员权限

Option Explicit
RunAsAdmin
Msgbox CreateObject("WScript.Shell").CurrentDirectory
' 以管理员身份运行 By Yu2n
Sub RunAsAdmin()
	Dim oItems, vItem, sVer, nVer, vArg, sArgs, sCurDir
	Set oItems = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
	For Each vItem In oItems
		sVer = vItem.Version
	Next
	Set oItems = Nothing
	nVer = Clng(Split(sVer, ".")(0) & Split(sVer, ".")(1))
	If nVer >= 60 Then
		If Not WScript.Arguments.Named.Exists("RunAsAdmin") Then
			For Each vArg In WScript.Arguments
				sArgs = sArgs & " """ & vArg & """"
			Next
			sArgs = sArgs & " /RunAsAdmin:True"
			CreateObject("Shell.Application").ShellExecute "WScript.exe", _
				"""" & WScript.ScriptFullName & """" & sArgs, "", "runas", 1
			WScript.Quit(0)
		Else
			sCurDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\") -1)
			CreateObject("WScript.Shell").CurrentDirectory = sCurDir
		End If
	End If
End Sub

批处理清空回收站

2019-8-4 乱云飞 评论(0) 浏览(116) 标签: 批处理 清空回收站

@echo off
setlocal enabledelayedexpansion
for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
  if exist %%a:\$recycle.bin (
     pushd %%a:\$recycle.bin
     for /f %%b in ('dir /b /a') do (rd /s /q %%b)
  )
)
pause

右下角显示所有图标

2019-8-4 乱云飞 评论(0) 浏览(100) 标签: 注册表 显示任务栏 显示图标

taskkill /f /im explorer.exe >nul 2>nul

reg add HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer /v EnableAutoTray /t REG_DWORD /d 0 /f

start "" explorer

批处理把任务栏属性里的使用小图标打勾和任务栏按钮选成从不合并怎么写?求例子

2019-8-4 乱云飞 评论(0) 浏览(97)

注册表控制的,导入注册表即可。

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]

"TaskbarSmallIcons"=dword:00000001

"TaskbarGlomLevel"=dword:00000001

你可以把上面内容用reg add实现。

更改桌面图标大小

2019-8-3 乱云飞 评论(0) 浏览(109) 标签: 批处理 桌面图标 图标大小

@echo off
reg add "HKCU\Software\Microsoft\Windows\Shell\Bags\1\Desktop" /f /v "IconSize" /t REG_DWORD /d 96
taskkill /im explorer.exe /f & start explorer.exe

批处理修改IP地址/子网掩码/网关/DNS/WINS

2019-8-3 乱云飞 评论(0) 浏览(113)

@ echo off 
rem 设置变量 
set Nic=本地连接 
set Addr=192.168.1.188
set Mask=255.255.255.0 
set Gway=192.168.1.1
set Dns1=114.114.114.114
set Dns2=8.8.8.8
set Wins1=192.168.1.1
set Wins2=192.168.1.1 
rem //以上依次为IP地址、子网掩码、网关、首选DNS、备用DNS、首选WINS、备用WINS 
echo ------------------------------------------------------ 
echo 正在进行网络设置,请稍等...
echo. IP地址 = %Addr% 
echo. 子网掩码 = %Mask% 
netsh interface ip set address name=%Nic% source=static addr=%Addr% mask=%Mask% >nul 
echo. 网关 = %Gway% 
netsh interface ip set address name=%Nic% gateway=%Gway% gwmetric=1 >nul 
echo. 首选DNS = %Dns1% 
netsh interface ip set dns name=%Nic% source=static addr=%Dns1% register=PRIMARY >nul 
echo. 备用DNS = %Dns2% 
netsh interface ip add dns name=%Nic% addr=%Dns2% index=2 >nul 
echo. 首选WINS = %Wins1% 
netsh interface ip set wins name=%Nic% source=static addr=%Wins1% register=PRIMARY >nul 
echo. 备用WINS = %Wins2% 
netsh interface ip add wins name=%Nic% addr=%Wins2% index=2 >nul 
echo ------------------------------------------------------ 
echo IP设置完成! 
cmd /k

bat批处理判断系统位数

2019-8-3 乱云飞 评论(0) 浏览(109) 标签: 批处理 判断系统版本 系统位数 64位 32位

@echo off
rem 判断64位系统和32位系统
if /i %PROCESSOR_IDENTIFIER:~0,3%==x86 (
echo 32位操作系统
) else (
echo 64位操作系统
)
pause

更改计算机描述

2019-8-2 乱云飞 评论(0) 浏览(78) 标签: 批处理 注册表 更改计算机描述

reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\lanmanserver\Parameters" /v srvcomment /t reg_sz /d 描述文字 /f

两种方法更改桌面壁纸

2019-8-2 乱云飞 评论(0) 浏览(77) 标签: 批处理 更换桌面背景 桌面壁纸

@reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d %~dp0ez.bmp /f
@RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

---------------------------------------------------------

cd /

cd %~dp0
copy ez.bmp C:\ez.bmp
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /V Wallpaper /D C:\ez.bmp /F
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
cmd /k

激活窗口,只写窗口标题前半部分就行

2019-8-2 乱云飞 评论(0) 浏览(101) 标签: 批处理 VBS 激活窗口

Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "任务管理"
WshShell.SendKeys "{Enter}"
预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog