×

Loading...
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。

@Florida

That's great. Now I have a rough idea. Thank you so much.

jihu06(maskofzZzorro)
rc=WshShell.Run("runas /user:" & sUser & " " & CHR(34) & sCmd & CHR(34), 2, FALSE)

I can check this rc.
(#3528411@0)
Last Updated: 2007-3-1
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / 专业技术讨论 / 如何写个VB程序看Windows domain ID是否被lock住了？ -jihu06(maskofzZzorro); 2007-2-28 {599} (#3524907@0)
    Our application does not support Windows OS hibernate mode. That causes the domain ID used by our application being locked out frequently, due to maybe more than 3 times failed login.

    Security can't do anything else but ask ourselve to write a VB program to check the status of that domain ID, and send an email to ourselve if it's locked.

    I've done VB programming 5 years ago and know some basics. Can anyone tell me what kind of function is avaiable to do the above job, and how? Really appreciate if you can give an example code or point me to any resources on the web.

    Thanks a lot.
    • ADSI (Active Directory Service Interface) is a good choice, although most of cases are through VBScript. http://www.microsoft.com/technet/scriptcenter/guide/sas_vbs_dcot.mspx?mfr=true -pnpn(双飞雁); 2007-2-28 (#3526391@0)
      • Thanks but I don't think I can have any access to AD or any other servers. All what I can do is from client side. -jihu06(maskofzZzorro); 2007-3-1 {176} (#3527160@0)
        I am thinking of simply using the command "runas" to check if the account has been locked from my workstation.

        What's the VB object to run this "runas" command? Thanks.
    • you can use the sampe inside with little change. what you only need to do is to find out which bit in "userAccountControl" is locking flag. -yr2much(伟大的豪哥的哥); 2007-3-1 {314} (#3527241@0)
      Const ADS_UF_ACCOUNTDISABLE = 2

      Set objUser = GetObject _
      ("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
      intUAC = objUser.Get("userAccountControl")

      If intUAC AND ADS_UF_ACCOUNTDISABLE Then
      Wscript.Echo "The account is disabled"
      Else
      Wscript.Echo "The account is enabled"
      End If
      • I have no experience with LDAP. Question: will security allow me to inquire LDAP server like this? I mean if this small .vbs is running on my machine? -jihu06(maskofzZzorro); 2007-3-1 (#3527604@0)
        • if you don't have permission, you can't do anything about it regardless what tool you use -yr2much(伟大的豪哥的哥); 2007-3-1 (#3527610@0)
          • See, I am thinking a different way. -jihu06(maskofzZzorro); 2007-3-1 {468} (#3527645@0)
            Look at this "runas" DOS command. All I want to do is write a .bat or .vbs to run this "runas" command and get back the response. I just don't know how to write such a script.

            C:\Documents and Settings\jihu>runas /user:BNS\JIHu notepad
            Enter the password for BNS\JIHu:
            Attempting to start notepad as user "BNS\JIHu" ...
            RUNAS ERROR: Unable to run - notepad
            1326: Logon failure: unknown user name or bad password.

            C:\Documents and Settings\jihu>
            • runas is not different than other executables, you just have to either hard-code password in script (not a good idea) or type in while it runs. -yr2much(伟大的豪哥的哥); 2007-3-1 (#3527767@0)
              • Thank you very much for all your help. But I just found out that "runas" is not scriptable. -jihu06(maskofzZzorro); 2007-3-1 {163} (#3528261@0)
                I am out of idea now.

                Do you know if there is an VB object which can do a logon to domain? See, we just need to mimic a logon and get the response, with script.
                • I didn't try it myself, but you should be able to do "runas" within vbscript by embeding it into anohter shell host. "runas /user:SAS\SAFSBILLING c:\windows\system32\cscript.exe c:\full_path\add_domainuser2localadmin.vbs" -yr2much(伟大的豪哥的哥); 2007-3-1 {49} (#3528339@0)
                  google runas vbscript, there are plenty examples.
                  • That's great. Now I have a rough idea. Thank you so much. -jihu06(maskofzZzorro); 2007-3-1 {110} (#3528411@0)
                    rc=WshShell.Run("runas /user:" & sUser & " " & CHR(34) & sCmd & CHR(34), 2, FALSE)

                    I can check this rc.
      • Hey, I found a better command, -jihu06(maskofzZzorro); 2007-3-2 {602} (#3530234@0)
        WMIC USERACCOUNT WHERE "Name='PutUserNameHere' and Domain='PutDomainNameHere'" GET Lockout

        The above command will get back a "FALSE" response. But one more question, if I run this command in VBScript, how can I get back the result "FLASE" inside the script?

        ~~~
        set WshShell = CreateObject("WScript.Shell")
        rc=WshShell.Run("WMIC USERACCOUNT WHERE 'Name='PutUserNameHere' and Domain='PutDomainNameHere'' GET Lockout")
        #rc==0 if command success.
        # How to get the command output here? If not writing to a file.
        # I want to send an email if it's not "FLASE"
        ~~

        Thanks.
        • This /OUTPUT writes to the Windows CLIPBOARD, now I just need to find out how to get it from CLIPBOARD in VBS. -jihu06(maskofzZzorro); 2007-3-2 {105} (#3530251@0)
          C:\Documents and Settings\Owner>WMIC /OUTPUT:CLIPBOARD USERACCOUNT WHERE "Name='Owner'" get Lockout
          • Then found this from this URL, it works well. -jihu06(maskofzZzorro); 2007-3-2 {194} (#3530262@0)
            Set objIE = CreateObject("InternetExplorer.Application")
            objIE.Navigate("about:blank")
            strURL = objIE.document.parentwindow.clipboardData.GetData("text")
            objIE.Quit
            Wscript.Echo strURL
            • Now my job can be nicely done, and they are paying me thousands of dollars on this. Haha. -jihu06(maskofzZzorro); 2007-3-2 (#3530267@0)
              • Shit, WMIC is not avaiable in Window2000. Have to use something else. -jihu06(maskofzZzorro); 2007-3-5 (#3534250@0)

More Topics

  • 看大家讨论日语，俺也正在认真学习。其实语言问题应该是很快也很容易就解决的，可能比自动驾驶来的还快。TREK里面，全宇宙的人都在大脑里安装了UNIVERSAL TRANSLATOR，外星人之间相互交流无障碍。废话少说，看视频。。。加上个MIC和耳机，不同国家的人就可以无障碍交流。
  • 肉脸真有搞 IT 的？Linux 把俄国中国伊朗踢出去了好像肉脸 IT 没啥感觉似的
  • 请问web developer和software developer技术上有什么区别？
  • Elon Musk 带着川普总统奔向火星了。
  • 扔硬币的实验研究
    • 枫下论坛主坛 /  工作学习 /  专业技术讨论