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

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

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

Tim：2649389508

【定时关机windows】

set ateobject("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:Users26493Desktop系统工具查看属性2.1.1
//
echo ""如需更改多次转存请把代码中"">"”改为"">>""（"">""会将原始文件的内容清空，"">>""会在文件后面追加内容，如果文件不存在则创建文件；如需更改存储目录请更改“C:Users26493Desktop系统工具查看属性2.1.1”即可 ”因擅自篡改引发的一系列问题作者Czlzdldx概不负责，作者Czlzdldx""> C:Users26493Desktop系统工具查看属性2.1.
//
query user > C:Users26493Desktop系统工具查看属性2.1.
query process >> C:Users26493Desktop系统工具查看属性2.1.
winver >> C:Users