VBS教程：函数-CreateObject 函数( 二 ) _对象

Comparison
is
binary
by
default
(last
argument
is
omitted).
Returns
9.MyPos
=
Instr(1,
SearchString,
"W")'
A
binary
comparison
starting
at
position
1.
Returns
0
("W"
is
not
found).
注意
InStrB
函数使用包含在字符串中的字节数据，所以
InStrB
返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。
VBS 取得本机IP
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &strComputer &"\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For Each strAddress in IPConfig.IPAddress
WScript.Echo strAddress
Next
End If
Next
2 取得本机计算机名
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &strComputer &"\root\cimv2")
Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
Wscript.Echo objComputer.Name
Next
--------------------------------------------------------------------------------
4 检查升级包
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &strComputer &"\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Wscript.Echo objOperatingSystem.ServicePackMajorVersion &"." &objOperatingSystem.ServicePackMinorVersion
Next
--------------------------------------------------------------------------------
5 检查 Hot Fix
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &strComputer &"\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering")
For Each objQuickFix in colQuickFixes
Wscript.Echo "Description: " &objQuickFix.Description
Wscript.Echo "Hot Fix ID: " &objQuickFix.HotFixID
Next
--------------------------------------------------------------------------------
6 检查本地管理员数目
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objGroup = GetObject("WinNT://" &strComputer &"/Administrators,group")
For Each objUser in objGroup.Members
Wscript.Echo objUser.Name
Next
--------------------------------------------------------------------------------
7 磁盘系统
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &strComputer &"\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 3")
For Each objDisk in colDisks
Wscript.Echo "Disk drive: "&objDisk.DeviceID &" -- " &objDisk.FileSystem
Next
--------------------------------------------------------------------------------
8 检测自动登录是否开启
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:\\" &strComputer &"\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\WinLogon"
strValueName = "AutoAdminLogon"
objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName,dwValue
If dwValue = https://www.minzuwang.com/life/1 Then
Wscript.Echo "Auto logon is enabled."
Else
Wscript.Echo "Auto logon is disabled."
End If
--------------------------------------------------------------------------------
9 关闭自动登录
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:\\" &strComputer &"\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\WinLogon"
strValueName = "AutoAdminLogon"
dwValue = https://www.minzuwang.com/life/0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
--------------------------------------------------------------------------------
10 检查Guest是否禁用
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objUser = GetObject("WinNT://" &strComputer &"/Guest")
If objUser.AccountDisabled Then
Wscript.Echo "The Guest account is disabled."
Else
Wscript.Echo "The Guest account is enabled."
End If
--------------------------------------------------------------------------------
11 关闭Guest
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

VBS教程：函数-CreateObject 函数( 二 )

推荐阅读

不管遇到什么困难，都会默默的藏在心里，懂得隐忍的星座有哪些呢？

原神迪奥娜有什么技能-原神迪奥娜技能解析新

栀子花枯萎了怎么挽救室内栀子花叶子发黄怎么办

沃尔沃s90机油加几升沃尔沃s90l机油加多少

安阳哪吃三不沾

2020呼和浩特市地生会考成绩，2020年呼和浩特市地生会考？

龙虾粥怎么做好吃,广东虾粥怎么做好吃龙虾粥怎么做好吃

干了的牛肉怎么吃干了的牛肉怎么吃才好吃

宝鸡购买单位房改房提取公积金指南

飞盘为什么突然火了飞盘运动为什么火了

周末睡懒觉小心不规律的睡眠时间不利健康

牛肩肉适合炒还是炖

云端祭扫是什么意思

王昌龄简介50字王昌龄介绍

怎么将电影下载到电脑如何下载电影到电脑

厦门软件园二期在哪里厦门软件园二期属于什么区

这是什么花，怎么养，浇了水放在太阳下面晒了晒怎么感觉叶子就焉了…

茶油价格在多少钱一斤现在的茶油多少钱一斤？

Facebook明文密码-租号玩明文密码怎么上-

罗汉果怎么泡水喝罗汉果壳能一起泡水吗