Fatal编程技术网
  • vbscript/
  • 如何在vbscript for windows 2012 server R2中获取域名？

如何在vbscript for windows 2012 server R2中获取域名？

vbscript

如何在vbscript for windows 2012 server R2中获取域名？,vbscript,Vbscript,这在windows 2008服务器R2上有效，但在windows 2012服务器R2上无效。2012年的等价物是什么 <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>AD Manager</title> <script language="vbscript" type="text/vbscript"> <!-- Sub Validate D

这在windows 2008服务器R2上有效，但在windows 2012服务器R2上无效。2012年的等价物是什么

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>AD Manager</title>
<script language="vbscript" type="text/vbscript">
<!--
Sub Validate        
    Dim objSysInfo, owsh
    Set objSysInfo = CreateObject("ADSystemInfo")
    Set owsh = CreateObject("WScript.Network")  
    username = owsh.username
    domain2 = objSysInfo.DomainShortName    <==== This is the line that fails
    document.getElementById("UserName").value =  domain2 & "\" & username
    document.getElementById("Password").value = "1234"
    document.getElementById("frmADManager").submit()
End Sub
//-->
</script>
</head>
<body onload="Validate()">
<form id="frmADManager" action="ProcessLogin.asp" method="post">
<input type="hidden" id="UserName" name="UserName" value="" />
<input type="hidden" id="Password" name="Password" value="" />
</form>
</body>
</html>


广告经理
您似乎以一种可能令人尴尬的方式将VBScript与JavaScript混合在一起

这里有一个方法可以与任何一个操作系统一起使用。有很多方法可以用一种语言实现这一点。我很惊讶你使用的代码实际上在Windows2008R2上运行（是的，我知道，我只是测试了一下）

有关如何在同一页面上混合客户端JavaScript和VBScript的更多信息，请参阅本文：

在本例中，我们将VBScript和JavaScript拆分为单独的脚本，其中一个脚本调用另一个脚本

经测试可在Windows 2008 R2和Windows 2012 Server上工作

注意：我不建议在生产环境中存储这样的密码。任何人都可以在加载客户端时拦截此密码。您可能也在使用HTTP—密码将以明文形式显示。考虑一个更安全的选择——因为我不知道你为什么要这么做，或者你在哪里提供这些凭据，我不能给你一个关于如何改变事情的建议。<强> < /P> 
<html xmlns="http://www.w3.org/1999/xhtml">
    <head>
        <title>AD Manager</title>
        <script language="vbscript">
            function getDomainInfo()
                Dim objSysInfo, owsh
                Set objSysInfo = CreateObject("ADSystemInfo")
                Set owsh = CreateObject("WScript.Network")  
                username = owsh.username
                getDomainInfo = objSysInfo.DomainShortName & "\" & owsh.username
            End function
        </script>
        <script language="javascript">
            function validate()
            {
                document.getElementById("UserName").value =  getDomainInfo();
                document.getElementById("Password").value = "1234";
                document.getElementById("frmADManager").submit();
            }
        </script>
    </head>
    <body onload="validate()">
        <form id="frmADManager" action="ProcessLogin.asp" method="post">
            <input type="hidden" id="UserName" name="UserName" value="" />
            <input type="hidden" id="Password" name="Password" value="" />
        </form>
    </body>
</html>


广告经理
函数getDomainInfo（）
Dim objSysInfo，owsh
Set objSysInfo=CreateObject（“ADSystemInfo”）
Set owsh=CreateObject（“WScript.Network”）
username=owsh.username
getDomainInfo=objSysInfo.DomainShortName&“\”和owsh.username
端函数
函数验证（）
{
document.getElementById（“用户名”）.value=getDomainInfo（）；
document.getElementById（“密码”）.value=“1234”；
document.getElementById（“frmADManager”）.submit（）；
}