Как научить компьютер голосом здороваться с вами?

Как сделать голосовой ярлык в Windows XP (Vista, 7).
С помощью него, компьютер при включении, будет вас приветствовать.

1 шаг
На рабочем столе, создаём текстовый документ. В нём пишем:

Отображение имени пользователя работающего на компьютере в сетевом окружении

В статье приведен пример скрипта позволяющего при просмотре компьютеров в сетевом окружении вывести в поле коментарий имя залогиненного на нем пользователя. Также в краце рассмотрено применение данного скрипта при помощи групповых политик и необходимые для этого условия.

форум по VBS скриптам

http://forum.oszone.net/forum-102---desc--.html

VBE online script decoder

http://www.greymagic.com/security/tools/decoder/

Выгонялка пользователей из 1С 8.x

'basename-Имя базы в кластере серверов 1с
'updateway - Путь к файлу обновления
'platform - Платформа 1с (8.1/8.2)
'srv1c - Сервер 1с
'srvUser - пользователя для входа на сервер 1с
'srvPasswd- пароль пользователя для входа на сервер 1с
'confchanged - булево - конфигурация изменена. Выполнить только принятие изменений конфигурации
Function GetUpdateForConfig(basename,updateway,platform,srv1c,srvUser,srvPasswd,baseUsr,basepwd,confchanged)

allowdisconnect=false
'Если мы работаем с 12 до 6 утра - мы можем выгнать пользователей
if Hour(now())>0 and Hour(now)<6 then
allowdisconnect=true
End if

set Connector=CreateObject("V" & Replace(platform,".","") & +".ComConnector")

set AgentConnection=Connector.ConnectAgent(srv1c)


set Cluster=AgentConnection.GetClusters() (0)

AgentConnection.Authenticate Cluster,srvUser,srvPasswd

'WorkingProcess = AgentConnection.GetWorkingProcesses(Cluster)[0];
Process = AgentConnection.GetWorkingProcesses(Cluster)

for each WorkingProcess in Process
if WorkingProcess.Running<>0 then
ConnectString = WorkingProcess.HostName & ":" & WorkingProcess.MainPort
set WorkingProcessConnection = Connector.ConnectWorkingProcess("tcp://" & ConnectString)
WorkingProcessConnection.AddAuthentication baseUsr,basepwd

set ibDesc = WorkingProcessConnection.CreateInfoBaseInfo()
ibDesc.Name = basename

Connections = WorkingProcessConnection.GetInfoBaseConnections(ibDesc)


for each Connection in Connections
if LCase(Connection.AppID) <> "comconsole" then
if allowdisconnect then
WorkingProcessConnection.Disconnect Connection
ShowStatus "Discconnect соединения " & Trim(Connection.ConnID),true,false
else
ShowStatus "Есть работающие пользователи.",false,false
GetUpdateForConfig=0
Exit function
End if
End if
Next

End if

Next


ShowStatus "Запуск обновления " & updateway,true,false

ProcId=0


constr="/S""" & srv1c & "\" & basename & """"

if baseUsr<>"" then
constr=constr & " /N" & baseUsr & " /P" & basepwd
end if

if not confchanged then
constr=constr & " /UpdateCfg""" & updateway & """"
end if

constr=constr & " /UpdateDBCfg"
if Way1cv81="" then
ShowStatus "Не заполнен путь к 81",true,true
GetUpdateForConfig=""
Exit function
End if
RunString="""" & Way1cv81 & "1cv8.exe"" CONFIG " & constr & ""


Resfile=WorkCatalog() & "result.txt"
RunString=RunString & " /Out""" & Resfile & """"

ShowStatus "Строка запуска: " & RunString,true,false

CreateProcess RunString,true
GetUpdateForConfig=ReadFileText(Resfile)

End Function

Отправка e-mail на VBS (VBScript)

Понадобился скриптик для отпрвки e-mail на VBS (Visual Basic Script). Почему именно на VBScript? Просто так потребовалось. Тоже самое можно было сделать и при помощи JavaScript, но раз нужно использовать VBS, то будем использовать его.

Задача достаточна проста, так что сразу приведу скрипт отправки e-mail написанный на VBScript:

Шифрование скриптов VBS (VBScript)

VBS-скрипты могут быть весьма полезны для автоматизации действий пользователя в системах семейства Windows. Иногда требуется скрыть текст VBS-скрипта и тогда на помощь приходит программа дляшифрования скриптов, которая сохранят возможность выполнения скриптов VBS (сценариев VBScript) как и в незашифрованном виде.

Для шифрования скриптов VBS (VBScript) существует бесплатная программа Script Encoder от Microsoft. Она позволяет зашифровать Ваши скрипты, написанные на ASP, JScript, VBScript, а также файлы Windows Script Host. Установщик весит всего 127 КБ.

Библиотека VBS скриптов

http://www.robvanderwoude.com/wshexamples.php

Телефонный справочник сотрудников на базе AD (Active Directory), LDAP

PHP:
http://www.pitin.su/news-64-10-0.htm

PowerShell
http://ibmrus.com/html-telefonnyi-spravochnik-iz-active-directory-powershell

C# для SharePoint
http://orionxl.ru/telefonnyj-spravochnik-ili-spisok-sotrudnikov-na-c-dlya-sharepoint-foundatation-2010-s-ispolzovaniem-ad-active-directory

Sharepoint 2010: коряво-ручной способ организовать телефонный справочник
http://kabal375.livejournal.com/4535.html

Выгрузка данных из AD в Excel скриптом VBS

Выгрузка данных из AD в Excel

Вот Сам скрипт VBS на вынос данных.

Option Explicit
Dim objRootDSE, strDNSDomain, strBaseDim adoCommand, adoConnection, objRS, strFilter, strAttributes, strQueryDim objExcel, strName, strPhone, strMail, strOtherphone, arrOtherPhone, strItemDim strsAMAccountName,strTitle,strDepartment,strMobile,strHomePhone

Получить список установленного софта через vbs

Этим скриптом ежедневно машины сдают свой программный конфиг на сервер:

получить MAC-адрес в VBS

strNameSpace = "winmgmts:{impersonationLevel=impersonate}//./root/cimv2"
strQuery = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
Set colAdapters = GetObject(strNameSpace). ExecQuery(strQuery)
For Each objAdapter in colAdapters
strMAC = LCase(Replace(objAdapter.MACAddress,":","-"))
Text = Text & "MAC адрес: " & strMAC & VbCrLf
Next

' WScript.Echo Text

VBS script decoder

VBE Decoder

Last version of the vbe decoder

File Name : vbe_decoder.vbs
Requirement : none
Author : Rick Valstar
Submitted : 01/11/2006

VBS: получить имя компьютера и его ip-адрес

strComputer = "."
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where ipenabled = true",,48)
For Each objItem in colItems
Text = "Имя компьютера: " & objItem.DNSHostName & VbCrLf
for each propValue in objItem.IPAddress.
Text = Text & "IP адрес: " & propValue & VbCrLf
Next
Next
 WScript.Echo Text