Ik heb hier een script die ervoor moet zorgen dat als een gebruiker inlogt op een domein (domein draait op Windows Server 2008 en gebruikers loggen in met Windows 7), deze akkoord moet gaan met de voorwaarden, wil diegene verder gaan met inloggen. Indien deze persoon er niet mee akkoord gaat, dan moet deze gelijk worden uitgelogd.
Mijn probleem nu is dat het scherm met de voorwaarden wel te voorschijn komt, maar als de timer op 0 komt of als de gebruiker niet akkoord gaat met de voorwaarden, deze niet wordt uitgelogd, terwijl dit wel moet.
Zouden jullie mij aub. kunnen helpen met het vinden van een fout in het script (Is een .hta)?
Mijn probleem nu is dat het scherm met de voorwaarden wel te voorschijn komt, maar als de timer op 0 komt of als de gebruiker niet akkoord gaat met de voorwaarden, deze niet wordt uitgelogd, terwijl dit wel moet.
Zouden jullie mij aub. kunnen helpen met het vinden van een fout in het script (Is een .hta)?
Code:
<!-- Author: Remco Simons [NL], 21st October 2007
www.petri.co.il/forums/showthread.php?p=83619#post83619 -->
<html>
<head>
<title>Logon policy acceptance Screen</title>
<HTA:APPLICATION
ApplicationName="Logon HTA"
SingleInstance="Yes"
WindowsState="Normal"
Scroll="No"
SCROLLFLAT="No"
Navigable="No"
SysMenu="No"
Caption="No"
Select=ÿes"
MaximizeButton="No"
MinimizeButton="No"
BORDER = "thick"
INNERBORDER = "yes"
SHOWINTASKBAR="No"
CONTEXTMENU="No"
Icon = "%SystemRoot%\Explorer.exe">
></HEAD>
<SCRIPT LANGUAGE="VBScript">
sHorizontal = "500"
sVertical = "600"
cnt = 60 'seconds before auto logoff
Set objWMIService = GetObject _
("winmgmts:root\cimv2")
set objShell = CreateObject _
("WScript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set tempfolder = Fso.GetSpecialFolder(2)
supportingcode = tempfolder & "\" & Fso.GetTempName
Sub Window_OnLoad
'Size Window
Window.resizeTo sHorizontal,sVertical
'Center window
Set colItems = objWMIService.ExecQuery _
("Select * From Win32_DesktopMonitor",,48)
For Each objItem In colItems
sWidth = objItem.ScreenWidth
sHeight = objItem.ScreenHeight
If sWidth > intHorizontal _
then intHorizontal = sWidth
If sHeight > intVertical _
then intVertical = sHeight
Next
intLeft = (intHorizontal - sHorizontal) /2
intTop = (intVertical - sVertical) /2
Window.moveTo intLeft, intTop
'default window content
window.location.href="#Top"
'iTimerID = window.setInterval("ShowSplash", 5000)
iTimerID = window.setInterval("y", 1000, "VBScript")
End Sub
function y()
Text1.innerHTML= "Time Left Before auto-Logging Off : " & Cnt
cnt = cnt - 1
If cnt < 0 then call logoff
end function
Sub reloadHTA()
location.reload True
End Sub
Sub ShowSplash
Splash.Style.Display = "None"
End Sub
Function HTA_Sleep(mSec)
strRun = supportingcode & ".vbs"
With Fso.OpenTextFile(strRun, 2, true)
.WriteLine "On Error Resume Next"
.WriteLine "Wscript.sleep wScript.Arguments(0)"
.close
strCommand = "cscript.exe //NoLogo " & strRun & " " & mSec
objShell.run(strCommand), 0, True
Fso.DeleteFile(strRun)
End With
End Function
'-------------------------------------------------------------------
Sub DeclineScript( oBtt )
sAction = "LogOff"
oBtt.style.color = "white"
oBtt.style.backgroundcolor = "red"
oBtt.style.fontstyle = "italic"
call logoff
End Sub
Sub logoff
If Not sAction = "LogOn" Then
session = objShell.ExpandEnvironmentStrings("%sessionname%")
If UCase(session) = UCase("Console") Then session = Empty
strCommand = "%comspec% /c %WinDir%\system32\logoff.exe " & session
objShell.Run(strCommand),0 ,True
Cleanup
End If
End Sub
Sub AcceptScript( oBtt )
sAction = "LogOn"
oBtt.style.color = "white"
oBtt.style.backgroundcolor = "green"
oBtt.style.fontstyle = "italic"
HTA_Sleep(100)
'run vbScript from within this script:
' strVBS = "\\server\share\folder\file.vbs"
' objShell.run("cscript.exe //NoLogo " & strVBS), 0, True
Cleanup
End Sub
Sub Cleanup
Set objWMIService = Nothing
set objShell = Nothing
Set Fso = Nothing
Set tempfolder = Nothing
Self.Close()
End Sub
</SCRIPT>
<!-- TABLE STYLE NORMAL-->
<STYLE type="text/css">
Table.Normal
{
font: 8.25pt Verdana;
color:#000080;
font-weight:bold;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0,StartColorStr='#E9E9E9',EndColorStr='#9E9E9E');
padding-top:1;
padding-bottom:1;
Text-Align:;
vertical-align:;
}
</STYLE>
<!-- TD STYLE MENUNORMAL -->
<STYLE type="text/css">
TD.MenuNormal
{
font: 8.25pt Verdana;
color:#000080;
font-weight:bold;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0,StartColorStr='#eeeeee',EndColorStr='#5e9ab9');
padding-top:1;
padding-bottom:1;
Text-Align:;
vertical-align:;
cursor:Hand;
}
</STYLE>
<!-- BODY STYLE NORMAL-->
<STYLE type="text/css">
Body.Normal
{
font: 10.25pt Verdana;
color:#000080;
font-weight:bold;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0,StartColorStr='#86cceb',endColorStr='#5589ab');
padding-top:1;
padding-bottom:1;
Text-Align:;
}
</STYLE>
<Body Class='Normal'>
<Center>
<Table Class=Normal Width='270' height='30'>
<TD Class=MenuNormal onClick="reloadHTA()">
<Span ID="Text1">Countdown
</Span></TD></Table>
<DIV id="Splash" STYLE="Height:200;Width:400;Border:0.1mm solid black;
font:14pt arial;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0, StartColorStr='#5589ab', EndColorStr='#86cceb')
progid:DXImageTransform.Microsoft.dropshadow(OffX=10, OffY=10,
Color='gray', Positive='true')">
<br>
A Sample HTA<br>
The Microsoft Scripting Guys<br><br>
<font size="2">Copyright 2005 Microsoft Corporation. All rights reserved.</font>
<br></CENTER><br><br>
<ul>
<li>ewgsh hhxd rv hv dbvl edr hwef<br>
ssv vdrjsrvjeje jeyjv</li>
<li>rth rgb ughbh ht jh 456 brjtj</li>
<li>tjt fgcy byj bbby v a ryhu</li>
<li>itui gb gj 777</li>
<li>tuktu hfetygjf gg ryjgyjgrthggyj 8</li>
<li>ewgsh hhxd rv hv dbvl edr hwef</li>
<li>rth rgb ughbh ht jh 456 brjtj</li>
<li>tjt fgcy byj bbby v a ryhu</li>
<li>itui gb gj 777</li>
<li>tuktu hfetygjf gg ryjgyjgrthggyj 8</li>
<li>rgdv</li>
</ul><br>
</DIV>
<center><br><br>
<Input type="button" value=" Accept " onClick="AcceptScript Me">
<Input type="button" value=" Decline " onClick="DeclineScript Me">
</center>
</body>
</html>