这不科学！无意中找到的一些资料：


vbs 代码：

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootWMI") 
' Obtain an instance of the the class 
' using a key property value. 
Set objShare = objWMIService.Get("Lenovo_SetBiosPassword.InstanceName='ACPIPNP0C141_0'") 

' Obtain an InParameters object specific 
' to the method. 
Set objInParam = objShare.Methods_("SetBiosPassword"). _ 
inParameters.SpawnInstance_() 

' Add the input parameters. 
objInParam.Properties_.Item("Parameter") = "test" 

' Execute the method and obtain the return status. 
' The OutParameters object in objOutParams 
' is created by the provider. 
Set objOutParams = objWMIService.ExecMethod("Lenovo_SetBiosPassword.InstanceName='ACPIPNP0C141_0'", "SetBiosPassword", objInParam) 

' List OutParams 
Wscript.Echo "Out Parameters: " 
Wscript.echo "Return: " & objOutParams.Return 

文档下载【PDF】：montdeployguide

本人来自： http://www.enun.net/?p=1497

VBScript根据盘符找设备名的代码
OnErrorResumeNextstrComputer="."SetobjWMIService=GetObject("winmgmts:\"&strComputer&"rootCIMV2")SetcolItems=objWMIService.ExecQuery(_"associatorsof{win32_logicaldisk.deviceid='G:'}WHEREResultClass=

Win7下VHD文件右键增强实现代码(vbs+注册表)
1、保存以下代码到：c:windowssystem32vdm.vbsDimArgsSetArgs=WScript.ArgumentsTranArgs=""Fori=0ToArgs.Count-1TranArgs=TranArgs&""""&Args(i)&""""&""NextIfArgs(0)"-hFlag"ThenIfArgs(0)"-hWind"Th

vbs 脚本错误:操作中文件名或类名未找到的解决方法
昨天下午闲得无事，于是翻出以前的脚本，尝试运行，结果却出现了如图所示的错误。于是：regsvr32vbscript.dll。重新运行脚本，没想到还是一样。放到另