网络收藏

已知域内一台机器名称，用户名和密码

推荐阅读

net   user   /domain

密码是almost   impossible的。  
   
  你用smb攻击吧，我就不说了。

可以试一下：  
   
  form_click:  
   
  dim   u   as   string  
  shell   "cmd.exe   net   user   /domain   >   c:\t.tmp",vbhide  
  do   until   dir("c:\t.tmp")<>"":   doevents:   loop  
  open   "c:\t.tmp"   for   input   as   #1  
  do   until   eof(1)  
      line   input   #1,   u  
      me.print   u  
  loop  
  close   #1

网上有现成的工具，但什么有提供原码，这是一个黑客工具，你用google搜一下  
  letmein.exe  
  没有的话，我发给你。