一些vbs和bat的小脚本好戏总是在后面哦大佬您第一次来吧？是不是都进来看看吧=w=

本文主要是介绍一些vbs和bat的小脚本好戏总是在后面哦大佬您第一次来吧？是不是都进来看看吧=w=，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

这里写图片描述今天给大家分享几个vbs和bat源码
有兴趣的朋友可以拿去用一下
源代码和注释我不会打在一起
另外做对就是这个 PSArt.dll的可以找我对就是这个pscs6的启动界面

Tim：2649389508

【定时关机windows】

set ws=wscript.createobject("wscript.shell")
ws.run "shutdown -s -t 3200",0do while i<>"取消"
i=inputbox("输入“取消”解除关机！ 作者：Czlzdldx","关机倒计半小时","晚安！")
loop
ws.run "shutdown -a",0
msgbox "关机已解除，不睡觉吗？"//

首先创建一个类调用执行，shutdown -s -t 3200 ，定时3200秒后关机，根据情况自己做更改就好了，3200秒是半小时；shutdown -a 是取消关机———{但是我这个程序比较鸡肋一点点没有优化你要是在任务管理器强关了，就要到cmd手动敲shutdown -a来取消关机了}———//

//如果你侵入成功，你可以直接用这个来列出虚拟主机的物理目录

Set ObjService=GetObject("IIS://LocalHost/W3SVC")
For Each obj3w In objservice
If IsNumeric(obj3w.Name) Then
sServerName=Obj3w.ServerComment
Set webSite = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name & "/Root")
ListAllWeb = ListAllWeb & obj3w.Name & String(25-Len(obj3w.Name)," ") & obj3w.ServerComment & "(" & webSite.Path & ")" & vbCrLf
End If
Next
Wscript.Echo ListAllWeb
Set ObjService=Nothing
Wscript.Quit【原理：我是个懒人

一会敲完博客吃饭去哪有时间敲注释=v=】

//【Windows 基本很多电脑小白想要的】
{源码拉txt改个后缀然后直接在桌面上运行就可以了，小白居家旅行简单查看电脑属性}【需要添加什么命令可以自己再加】【要提权运行{管理员就行}】

@echo on
md C:\Users\26493\Desktop\系统工具\查看属性2.1.1\
//
echo ""如需更改多次转存请把代码中"">"”改为"">>""（"">""会将原始文件的内容清空，"">>""会在文件后面追加内容，如果文件不存在则创建文件；如需更改存储目录请更改“C:\Users\26493\Desktop\系统工具\查看属性2.1.1\”即可 ”因擅自篡改引发的一系列问题作者Czlzdldx概不负责，作者Czlzdldx""> C:\Users\26493\Desktop\系统工具\查看属性2.1.1\Readme.txt
//
query user > C:\Users\26493\Desktop\系统工具\查看属性2.1.1\quertyuser.txt
query process >> C:\Users\26493\Desktop\系统工具\查看属性2.1.1\quertyuser.txt
winver >> C:\Users