string sub GuidGen()
   dispatch scr = "Scriptlet.TypeLib"
   GuidGen = scr.guid
endsub

print GuidGen()

<?php
function guid(){
   if (function_exists('com_create_guid')){
       return com_create_guid();
   }else{
       mt_srand((double)microtime()*10000);//optional for php 4.2.0 and up.
       $charid = strtoupper(md5(uniqid(rand(), true)));
       $hyphen = chr(45);// "-"
       $uuid = chr(123)// "{"
               .substr($charid, 0, 8).$hyphen
               .substr($charid, 8, 4).$hyphen
               .substr($charid,12, 4).$hyphen
               .substr($charid,16, 4).$hyphen
               .substr($charid,20,12)
               .chr(125);// "}"
       return $uuid;
   }
}
echo guid();
?>

<?php

function guid(){
   if (function_exists('com_create_guid')){
       return com_create_guid();
   }else{
       mt_srand((double)microtime()*10000);//optional for php 4.2.0 and up.
       $charid = strtoupper(md5(uniqid(rand(), true)));
       $hyphen = chr(45);// "-"
       $uuid = chr(123)// "{"
               .substr($charid, 0, 8).$hyphen
               .substr($charid, 8, 4).$hyphen
               .substr($charid,12, 4).$hyphen
               .substr($charid,16, 4).$hyphen
               .substr($charid,20,12)
               .chr(125);// "}"
       return $uuid;
   }
}


header("Content-type: text/xml");
header("Content-Disposition: attachment; filename=guid.xml");
header("Cache-control: private");

echo '<?xml version="1.0" encoding="ISO-8859-2" standalone="no"?>';
echo '<guidy>';
echo '<guid value="test">'.guid().'</guid>';
echo '</guidy>';


?>

dispatch xml = "Microsoft.XMLDOM"
xml.Load("www.adres_strony.pl/guid.php")

print GetNewGuid()

a3e55d64-afb1-42d3-add7-a01c410889d0