Ik ben op het moment bezig met een inlogscript voor Windows server 2008/Windows 7. Hierdoor moeten gebruikers eerst akkoord gaan met de voorwaarden willen ze gebruik gaan maken van de computer, anders worden ze meteen uitgelogd.
Het script werkt infeite wel, maar zodra iemand inlogd verschijnt het scherm voor het grootste gedeelte linkboven buiten het scherm.
Kan iemand mij aub. helpen om dit op te lossen.
Het script werkt infeite wel, maar zodra iemand inlogd verschijnt het scherm voor het grootste gedeelte linkboven buiten het scherm.
Kan iemand mij aub. helpen om dit op te lossen.
Code:
<html>
<head>
<title>Logon policy acceptance script</title>
<HTA:APPLICATION
ApplicationName="Logon HTA"
SingleInstance="Yes"
WindowsState="Maximize"
Scroll="Yes"
SCROLLFLAT="No"
Navigable="No"
SysMenu="No"
Caption="Yes"
Select="yes"
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 = 30 '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", 15000)
iTimerID = window.setInterval("y", 1000, "VBScript")
End Sub
function y()
Text1.innerHTML= "Time Left To Make A Decision: " & 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.5mm solid green;
font:14pt arial;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0, StartColorStr='#5589ab', EndColorStr='#86cceb')
progid:DXImageTransform.Microsoft.dropshadow(OffX=0, OffY=0,
Color='green', Positive='true')">
<br>
If you want use this computer<br>
You need to accept following rules<br><br>
<font size="2">© 1985-2010 Microsoft Corporation. All rights reserved.</font>
<br></CENTER><br><br>
<ul>
<li>Bij misbruik van deze computer en het netwerk zal u met onmiddelijke ingang worden ontslagen.</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>
