利用GetObject("WinMgmts:")获取系统信息

用WMI对象列出系统所有进程:

----Instance.vbs----

程序代码

Dim WMI,objs

Set WMI = GetObject("WinMgmts:")

Set objs = WMI.InstancesOf("Win32_Process")

For Each obj In objs

Windows借助脚本实现自动化加域 说到自动加域，我们作为一个运维管理员来说，是必须要掌握了的 ，通过脚本提高管理员的工作效率，一般可以将自动加域脚本(前提是需要将脚本加密，内部有明文账户及密码)通过共享的方式然后用户手动执行，前一段时间领导也有这个需求，所以就总了一些，分享给有需要的。 一般分为两步，首先是计算更改计算机名，其次就是加域了；最后是需要将用户增加到管理员组中，保证用户有足够的权限进行操作。 首先是修改计算机名：执行会提示当前的计算机名，然后输入新的计算机名，单击确认即可；

https://forsenergy.com/zh-cn/gpmc/html/187307c1-94b3-422b-bb7e-e14a8aa03bd3.htm#

背景

我们都知道规模稍微大一点的企业公司为了便于计算机的管理，

可能都上了微软的域控制器，那么肯定就会存在这么一个问题，

不断的会有计算机加入或者是退出域控制器，

而这个过程实在是太繁琐了，需要不断的重复以下操作

1、右键点击“此电脑”，选择属性

2、在出现的界面中，“计算机名、域和工作组设置”中点击“更改设置”

https://download.csdn.net/download/leaf541568990/85218701

新建个bat

@echo off
pushd “%~dp0”
dir /b C:\Windows\servicing\Packages\Microsoft-Windows-GroupPolicy-ClientExtensions-Package~3*.mum >List.txt
dir /b C:\Windows\servicing\Packages\Microsoft-Windows-GroupPolicy-ClientTools-Package~3*.mum >>List.txt