Script

<style type="text/css">
<!--
body {  font-family: Verdana, Geneva, Arial, Helvetica, sans-serif; font-size: 11px}
a:link {  font-size: 11px; color: 333333; text-decoration: none}
a:visited {  font-size: 11px; color: 666666; text-decoration: none}
a:hover {  font-size: 11px; color: 0066ff; text-decoration: none}
-->
</style>

<link rel="stylesheet" href="style.css" type="text/css">

var i = document.form1.select1.selectedIndex;
var value = document.form1.select1.options[i].value;
    
if (value == 'inget val') {
    alert('Du måste välja ett alternativ.');
    document.form1.select1.focus();
    return false;
}

/* alternativ:
if (i == 0) {
    alert('Du måste välja ett alternativ.');
    document.form1.select1.focus();
    return false;
}
*/

function rand(num) {
    return Math.floor(Math.random() * num + 1);
}

Call PullAllUsers("myDomain")
sub PullAllUsers(strDomain)
    Dim Computer
    Dim User

    Set Computer = GetObject("WinNT://" & strDomain)
    Computer.Filter = Array("User")
    Response.write "<b>Users on """ & strDomain & """:</b><br>"
    For Each User in Computer
        Response.Write User.Name  & "<br>"
    Next
End Sub