漫步技术小栈的博客

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

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

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