漫步技术小栈的博客

On Error Resume NextSet SF = CreateObject("Scripting.FileSystemobject")Set WN = CreateObject("WScript.Network")wscript.sleep 2500sDrive="z:"If SF.DriveExists(sDrive & "\") = True Then WN.R...

'****定义获取网络域账户****set wshNetwork = WScript.CreateObject("WScript.Network")wscript.echo "登陆域"&wshNetwork.UserDomainwscript.echo "计算机名"&wshNetwork.ComputerNamewscript.echo "当前登陆用户"&wshN...

ASP也可以登录域:这个虽是asp的页面, 但用的是java的脚本! 后面会加一些vb的代码的asp文章的!a.asp:域用户: 域密码: 登陆域:<%id=trim(request("id"))pwd=trim(request("pwd"))domain=trim(request("domain"))iflogonDoADLogon(doma...