发现了个有意思的命令，大神请略过

slore

base64Decode.vbs

1. Set oArgs = WScript.Arguments
   
2. If oArgs.Count <> 2 Then
   
3.   WScript.Echo  "Usage: {wscript | cscript} "& Wscript.ScriptName & " <encoded_file> <filename> " & vbCrLf
   
4. Else
   
5.   Conv2Binary oArgs(0), oArgs(1)
   
6. End If
   
7. Set oArgs = Nothing
   
8. 
   
9. Sub Conv2Binary(FileName, BinName)
   
10.   Set stream = CreateObject("ADODB.Stream")
    
11.   stream.Type = 2
    
12.   stream.Mode = 3
    
13.   stream.CharSet = "ASCII"
    
14.   stream.Open
    
15.   stream.LoadFromFile FileName
    
16.   Dim stream, xmldom, node
    
17.   Set xmldom = CreateObject("Microsoft.XMLDOM")
    
18.   Set node = xmldom.CreateElement("binary")
    
19.   node.DataType = "bin.base64"
    
20.   node.Text = stream.ReadText
    
21.   stream.Close
    
22.   stream.Type = 1
    
23.   stream.Mode = 3
    
24.   stream.Open
    
25.   stream.Position = 0
    
26.   stream.write node.NodeTypedValue
    
27.   stream.SetEOS
    
28.   stream.SaveToFile BinName, 2
    
29.   stream.Close
    
30.   Set stream = Nothing
    
31.   Set node = Nothing
    
32.   Set xmldom = Nothing
    
33. End Sub
    

复制代码