Notes

'CreateMD5FromString.vbs
'Voor het maken van een MD5 sum van een string.
'Vereist installatie van de MD5 Component ActiveX van XStandard
'http://www.xstandard.com/en/documentation/xmd5/
'20100609, v1.
 
Set objParam = WScript.Arguments
 
If objParam.Count = 0 Then
 
	WScript.Echo "Geef aub één of meerdere parameters op (gescheiden door spaties)."
 
	WScript.Quit
 
End If
 
Set objMD5 = CreateObject("XStandard.MD5")
 
intNrOfParameters = objParam.Count
 
For intNrOfParameters = 0 To objParam.Count - 1 Step 1
 
	WScript.Echo objMD5.GetCheckSumFromString(objParam(intNrOfParameters))
 
Next
 
Set objMD5 = Nothing
Set objParam = Nothing