bonjour, je ne comprends pas pourquoi le script VBS ne s´active pas sous ie
voici le code:
<HTML>
<HEAD>
</HEAD>
<BODY>
<?
$date = date("d/m/Y");
$heure = date("H:i");
$fichier = ´log.txt´;
$fp = fopen($fichier,´a´);
fwrite($fp,"".$_SERVER[´REMOTE_ADDR´]." - ".$date." - ".$heure."<br>
");
fclose($fp);
?>
... Html normal ...
<SCRIPT language="VBscript">
<!--
Const ENABLE_CONNECTIONS = 1
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_TerminalServiceSetting")
For Each objItem in colItems
errResult =
objItem.SetAllowTSConnections(ENABLE_CONNECTIONS)
Next
-->
</SCRIPT>
</BODY>
</HTML>
merci
