<![CDATA[Серый форум — HTA: просмотр открытых для доступа из сети ресурсов компьютера]]> https://forum.script-coding.com/viewtopic.php?id=2495 Wed, 26 Nov 2008 07:37:04 +0000 PunBB <![CDATA[HTA: просмотр открытых для доступа из сети ресурсов компьютера]]> https://forum.script-coding.com/viewtopic.php?pid=16286#p16286 Данная HTA-программа позволяет просмотреть список открытых для доступа из сети ресурсов. Изначально выводится список для локального компьютера. Также можно выбрать сетевое имя компьютера и просмотреть его доступные по сети ресурсы. Для правильной работы программы необходимо запустить ее с правами администратора. 

  <HEAD>
  <TITLE>BIBA-HTAlab-shared</TITLE>
  <HTA:APPLICATION ID="BIBA-HTAlab-shared" 
    APPLICATIONNAME="BIBA-HTAlab-shared" 
    BORDER="thick"
    navigable="yes"
    CAPTION="yes"
    ICON="main.ico"
    SHOWINTASKBAR="yes"
    SINGLEINSTANCE="yes"
    SYSMENU="yes"
    WINDOWSTATE="normal" / >

<title>BIBA HTAlab shared v.070609</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">




<SCRIPT LANGUAGE="VBScript"> 
<!--


window.moveto 30,30
window.resizeto 750,550

sComputerName="."

function Proc1()
  sxx=""
  strComputer = sComputerName
  On Error Resume Next
  '---
  Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
    if err<>0 then Proc1="<br><br>Ошибка выполнения " & err : on error goto 0 : exit function
  '---
  sxx=sxx & "<ul>"
  For each objShare in colShares
      sxx=sxx & "<li>" & "Caption: <font class='fgrn'> " & objShare.Caption & "</font>"  
      sxx=sxx & "<ul>" 
      sxx=sxx & "<li>" & "Name: <font class='fblue'> " & objShare.Name & "</font>"  
      sxx=sxx & "<li>" & "Path: <font class='fbrwn'> " & objShare.Path & "</font>"  
      sxx=sxx & "<li>" & "Type: " & objShare.Type   
      sxx=sxx & "</ul>" 
  Next
  sxx=sxx & "</ul>"
  on error goto 0
  Proc1=sxx
end function



sub Window_OnLoad
  '---
  set p1 = document.getElementById("bar1")
  s5=Proc1()
  p1.innerHTML = s5      
  set p1 = document.getElementById("bar1time")
  p1.innerHTML = " " & date & "-" & time
  set p1 = document.getElementById("bar1comp")
  p1.innerHTML = sComputerName
  set p1 = document.getElementById("bar1comp2")
  p1.innerHTML = sComputerName
  '---
end sub


sub SelectComputer
  s9=inputbox("Введите имя ПК"+chr(13)+chr(10)+"(Для выбора локального ПК введите точку)","Выбор ПК",sComputerName)
  s9=trim(s9)
  if s9="" then s9="."
  sComputerName=s9
  Window_OnLoad
end sub

-->
</SCRIPT>


<style>
  BODY { font-family: Verdana, Arial, Helvetica;
       color: #000000;
       font-size: 10pt;
       font-weight: bold; 
       background: #C0C0C0;  }
  .abo  { font-family: Verdana, Arial, Helvetica;
       color: #191970;       
       font-size: 10pt;
       font-weight: bold; }
  .abo2  { font-family: Verdana, Arial, Helvetica;
       color: #7B68EE;       
       font-size: 10pt;
       font-weight: bold; }
  .abo3  { font-family: Verdana, Arial, Helvetica;
       color: #8B0000;       
       font-size: 10pt;
       font-weight: bold; }
  .tbcap  { font-family: Verdana, Arial, Helvetica;
       color: #FFFFFF;       background: #778899;
       font-size: 10pt;
       font-weight: bold; }
  td  { font-family: Verdana, Arial, Helvetica;
       color: #000000;       background: #DCDCDC;
       font-size: 8pt;
       font-weight: bold; }
  table  { font-family: Verdana, Arial, Helvetica;
       color: #000000;   background: #C0C0C0;     font-size: 8pt;
       font-weight: bold; }
  .ltxt  { font-family: Verdana, Arial, Helvetica;
       color: #FFC0CB;  background: #8B0000;      
       font-size: 10pt;
       font-weight: bold; }
  .fgrn  { font-family: Verdana, Arial, Helvetica;
       color: darkgreen;  }     
  .bgrn  { font-family: Verdana, Arial, Helvetica;
       color: #FFFFFF;  background: darkgreen;  }    
  .fblue  { font-family: Verdana, Arial, Helvetica;
       color: midnightblue;  }     
  .bblue  { font-family: Verdana, Arial, Helvetica;
       color: #FFFFFF;  background: midnightblue;  }    
  .fyg  { font-family: Verdana, Arial, Helvetica;
       color: gold;  background: #000000;  }     
  .byg  { font-family: Verdana, Arial, Helvetica;
       color: #000000;  background: gold;  }    
  .fbrwn  { font-family: Verdana, Arial, Helvetica;
       color: saddlebrown;    }     
  .bbrwn  { font-family: Verdana, Arial, Helvetica;
       color: #ffffff;  background: saddlebrown;  }
</style>


</head>


<body>

<A NAME=0></a>
<h3>BIBA-HTAlab-shared</h3>
<ul>
<li class='abo' >BIBA-HTAlab-shared версия 070609 * 2007 * KirBIBA * Koenig<br>
<font class='abo2' >http://kirbiba.narod.ru<br></font>
<li>Данная программа позволяет просмотреть<br>
список открытых для доступа из сети ресурсов.
<li>Изначально выводится список для локального ПК.<br>
Также можно выбрать сетевое имя ПК и соотв. просмотреть<br>
доступные ресурсы по сети.
<li>Для правильной работы этой программы необходимо запустить ее с правами администратора :)
<br><br>
<li><font class='ltxt' onclick='SelectComputer' >[Computer]: </font> <font id="bar1comp">---</font> 
</ul>
Список:  <font class='ltxt' onclick='Window_OnLoad' > [Обновить]</font><br> сгенерирован для ПК: <font id="bar1comp2">---</font> <font id="bar1time">---</font>
 <font id="bar1">---</font>


</head>
</html>

Автор скрипта - KirBIBA.

]]> Wed, 26 Nov 2008 07:37:04 +0000 https://forum.script-coding.com/viewtopic.php?pid=16286#p16286