标签 VBScript 下的文章

VBScript调用WMI判断系统分区是否被BitLocker加密

rem=========== check if system partition is bitlockered
rem=========== ©tunpishuang http://tunps.com
rem=========== return 0:not locked, none-0:locked

dim emval, em, psval, ps, drv
Dim fso,sysVol
Dim outFile
Const windir = 0
Const tmpdir = 0
rem ::get system volume
arrComputers = Array(".")
Set fso = CreateObject("Scripting.FileSystemObject")
Set tfolder = fso.GetSpecialFolder(windir)
Set tTmpfolder = fso.GetSpecialFolder(tmpdir)
sysVol = Mid(tfolder, 1, 2)


For Each strComputer In arrComputers
Set objWMIService = GetObject("winmgmts:\\" & strComputer _
& "\root\CIMV2\Security\MicrosoftVolumeEncryption")

Set volumes = objWMIService.InstancesOf("Win32_EncryptableVolume")

for each volume In volumes
emval = volume.GetEncryptionMethod(em)
psval = volume.GetProtectionStatus(ps)
drv = volume.DriveLetter
if drv = sysvol then
wscript.quit em
end if
Next
Next

windows自动更新vbs脚本

http://community.spiceworks.com/scripts/show/82-windows-update-agent-force-script-email-results-version-2-6

windows自动更新vbs脚本

这个脚本可以下载所有本机上未安装的更新,但这个脚本需要下载windows update agent,如果本地安装的agent版本大于代码上的版本就直接安装,如果小于就下载指定url的agent,并手动安装,且还需要重新启动。可以通过通过邮件发送安装情况。很多的可选项,代码上都有注释,就不多解释了。 我觉得这个脚本在网吧这种环境中比较实用,搞桌面部署(desktop deployment)这块的,强制安装,强制重启动,好拉风。 ps:这个日志字太多了,tinymce一卡一卡的,在记事本写了来,再拷到tinymcr。