原理: http://demon.tw/programming/vbs-binary-file-another.html

Public ReadBinary
ReadBinaryDat(".1.exe")
BinaryDat = Replace(Replace(ReadBinary, "526172211a07", "522172211a07"), "807a0161", "807a0121")
WriteBinaryDat "new.exe", BinaryDat
Function ReadBinaryDat(FileName)
 Const adTypeBinary = 1
 Dim stream, xmldom, node
 Set xmldom = CreateObject("Microsoft.XMLDOM")
 Set node = xmldom.CreateElement("binary")
 node.DataType = "bin.hex"
 Set stream = CreateObject("ADODB.Stream")
 stream.Type = adTypeBinary
 stream.Open
 stream.LoadFromFile FileName
 node.NodeTypedValue = stream.Read
 stream.Close
 Set stream = Nothing
 ReadBinary = node.Text
 Set node = Nothing
 Set xmldom = Nothing
End Function

Sub WriteBinaryDat(FileName, Buf)
 Const adTypeBinary = 1
 Const adSaveCreateOverWrite = 2
 Dim stream, xmldom, node
 Set xmldom = CreateObject("Microsoft.XMLDOM")
 Set node = xmldom.CreateElement("binary")
 node.DataType = "bin.hex"
 node.Text = Buf
 Set stream = CreateObject("ADODB.Stream")
 stream.Type = adTypeBinary
 stream.Open
 stream.write node.NodeTypedValue
 stream.saveToFile FileName, adSaveCreateOverWrite
 stream.Close
 Set stream = Nothing
 Set node = Nothing
 Set xmldom = Nothing
End Sub

使用VBS修改二进制文件HEX数据
可用之处还是有的，如：隐藏快捷方式中目标文件位置；破解XP中TCP/IP连接数限制；去掉RAR右键解压菜单等等。PublicBinaryDataIf(lcase(right(wscript.fullname,11))="

利用VBS脚本修改联想笔记本BIOS密码的代码分享
这不科学！无意中找到的一些资料：vbs代码：strComputer="."SetobjWMIService=GetObject("winmgmts:\"&strComputer&"rootWMI")'Obtainaninstanceofthetheclass'usingakeypropertyvalue.Setobj

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