Форум АНТИЧАТ - Windows Script Host (WSH) & VBScript & JScript

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- Windows системы (https://forum.antichat.xyz/forumdisplay.php?f=125)

- - Windows Script Host (WSH) & VBScript & JScript (https://forum.antichat.xyz/showthread.php?t=82273)

Сценарии для администрирования сети

Одно время пришлось пользоваться скриптами администрирования сервера и сети.
Может быть кому-то пригодится.

1.Скрипт отсылки письма при переполнении диска
2.Скрипт добавления объекта в группу
3.Скрипт удаления объекта из группы
4.Скрипт определения владельца файла
5. Скрипт резервного копирования, использующий ntbackup.exe
(все рабочее)

скачать

Windows Script Host (WSH) & VBScript & JScript

Предлагаю в этом разделе обсуждать и делиться накопленным опытом по работе с Windows Script Host (WSH) с использованием VBScript и JScript, а также делиться полезными ссылками по сабжу.

Примеры от Microsoft
http://www.microsoft.com/technet/scriptcenter/scripts/os/default.mspx?mfr=true
http://www.microsoft.com/downloads/details.aspx?FamilyID=75cca21a-53b9-4949-9b62-a8fc7926e914&DisplayLang=en
http://www.microsoft.com/downloads/details.aspx?familyid=9C80B0DF-B9B4-4FCB-B513-02F8F40049E8&displaylang=en
http://msdn.microsoft.com/en-us/library/9bbdkx3k.aspx
Управление сетевыми принтерами домена
http://www.av5.com/journals-magazines-online/1/34/292
Примеры использования
http://www.whatis.ru/reg/reg_s1.shtml
Описание JScript
http://pauk2001.h1.ru/jstutor.htm
Альтернативное применение VBS :D
http://virusolog.blogrus.ru/post/1027/7047
Советы
http://alexfl.by.ru/wsh/wsh1.html
http://www.osp.ru/win2000/2006/04/2578897/
Серый форум. Много иформации по сабжу.
http://forum.script-coding.info/viewforum.php?id=5
Info о vbs
http://www.citforum.ru/internet/vbscript/vbscript.shtml
http://www.citforum.ru/internet/vbscript/vbscript1.shtml
http://www.askit.ru/custom/progr_admin/progr_admin_plan.htm
http://www.realcoding.net/article/view/2206

Нашлась статья от lexa:

https://forum.antichat.ru/thread20463.html

Ну и я обещал сборник VBS:

http://rapidshare.com/files/164733497/VBscript.zip.html

File VBscript.zip (8290 KB) uploaded!

Еще, помню что у многих, в том числе и у меня возникала проблема сделать форму выбора файла на vbs. Приведу пример как єто сделать.

Код:

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "Dimi4 ©"

objDialog.FilterIndex = 2

objDialog.InitialDir = "C:\"

intResult = objDialog.ShowOpen

If intResult = 0 Then

MsgBox "Вы не выбрали файл!", vbInformation

Else

Wscript.Echo objDialog.FileName

End If

+

Реализация выбора папок.

Код:

option explicit

Dim oArgs, NomFichier

'Optional argument : the encoded filename

NomFichier=""

Set oArgs = WScript.Arguments

Select Case oArgs.Count

Case 0 'No Arg, popup a dialog box to choose the file

NomFichier=BrowseForFolder("Choose an encoded file", &H4031, &H0011)

Case 1

If Instr(oArgs(0),"?")=0 Then '-? ou /? => aide

NomFichier=oArgs(0)

End If

Case Else

WScript.Echo "Too many parameters"

End Select

Set oArgs = Nothing



If NomFichier<>"" Then

Dim fso

Set fso=WScript.CreateObject("Scripting.FileSystemObject")

If fso.FileExists(NomFichier) Then

Dim fic,contenu

Set fic = fso.OpenTextFile(NomFichier, 1)

Contenu=fic.readAll

fic.close

Set fic=Nothing



Const TagInit="#@~^" '#@~^awQAAA==

Const TagFin="==^#~@" '& chr(0)

Dim DebutCode, FinCode

Do

FinCode=0

DebutCode=Instr(Contenu,TagInit)

If DebutCode>0 Then

If (Instr(DebutCode,Contenu,"==")-DebutCode)=10 Then 'If "==" follows the tag

FinCode=Instr(DebutCode,Contenu,TagFin)

If FinCode>0 Then

Contenu=Left(Contenu,DebutCode-1) & _

Decode(Mid(Contenu,DebutCode+12,FinCode-DebutCode-12-6)) & _

Mid(Contenu,FinCode+6)

End If

End If

End If

Loop Until FinCode=0

WScript.Echo Contenu

Else

WScript.Echo Nomfichier & " not found"

End If

Set fso=Nothing

Else

WScript.Echo "Please give a filename"

WScript.Echo "Usage : " & wscript.fullname  & " " & WScript.ScriptFullName & " <filename>"

End If



Function Decode(Chaine)

Dim se,i,c,j,index,ChaineTemp

Dim tDecode(127)

Const Combinaison="1231232332321323132311233213233211323231311231321323112331123132"



Set se=WSCript.CreateObject("Scripting.Encoder")

For i=9 to 127

tDecode(i)="JLA"

Next

For i=9 to 127

ChaineTemp=Mid(se.EncodeScriptFile(".vbs",string(3,i),0,""),13,3)

For j=1 to 3

c=Asc(Mid(ChaineTemp,j,1))

tDecode(c)=Left(tDecode(c),j-1) & chr(i) & Mid(tDecode(c),j+1)

Next

Next

'Next line we correct a bug, otherwise a ")" could be decoded to a ">"

tDecode(42)=Left(tDecode(42),1) & ")" & Right(tDecode(42),1)

Set se=Nothing



Chaine=Replace(Replace(Chaine,"@&",chr(10)),"@#",chr(13))

Chaine=Replace(Replace(Chaine,"@*",">"),"@!","<")

Chaine=Replace(Chaine,"@$","@")

index=-1

For i=1 to Len(Chaine)

c=asc(Mid(Chaine,i,1))

If c<128 Then index=index+1

If (c=9) or ((c>31) and (c<128)) Then

If (c<>60) and (c<>62) and (c<>64) Then

Chaine=Left(Chaine,i-1) & Mid(tDecode(c),Mid(Combinaison,(index mod 64)+1,1),1) & Mid(Chaine,i+1)

End If

End If

Next

Decode=Chaine

End Function



Function BrowseForFolder(ByVal pstrPrompt, ByVal pintBrowseType, ByVal pintLocation)

Dim ShellObject, pstrTempFolder, x

Set ShellObject=WScript.CreateObject("Shell.Application")

On Error Resume Next

Set pstrTempFolder=ShellObject.BrowseForFolder(&H0,pstrPrompt,pintBrowseType,pintLocation)

BrowseForFolder=pstrTempFolder.ParentFolder.ParseName(pstrTempFolder.Title).Path

If Err.Number<>0 Then BrowseForFolder=""

Set pstrTempFolder=Nothing

Set ShellObject=Nothing

End Function

+ Попроще:

Код:

Set objDialog = CreateObject("SAFRCFileDlg.FileOpen")

intResult = objDialog.OpenFileOpenDlg

WScript.Echo "Результат операции: " & CStr(intResult)

WScript.Echo "Выбран файл: " & objDialog.FileName

Наглядный пример циклов в VBS. Писал давно, что бы было интереснее сделал типа игры.

Код:

set WshShell = WScript.CreateObject("WScript.Shell")

Dim Res,Text,Title, MyValue, Response

Title="Dimi4 ©"

Randomize

Do Until Response = vbNo

   MyValue = Int((10 * Rnd) + 1)   

   strMenu="Я загадав число від нуля до десяти" & VbCrLf

strMenu=strMenu & "Спробуйте його відгадати " & VbCrLf

tb1=InputBox(strMenu,Title)

if tb1 = MyValue then

msgbox("Ви вгадали число")

end if

if tb1 <> MyValue then

MsgBox("Упс.... Ви не вгадали. ") & vbsrlf & ("Я загадав ") & MyValue

 Response = MsgBox ("Загадати ще раз? ", vbYesNo, Title)

 end if

Loop

Вот из-этого можно сделать корявенький мониторинг. Хз, может для кого-то из админов и пригодиться. Проверяет запущеный ли процесс.

Код:

Set Processes = GetObject("winmgmts://localhost") 

Set myProcEnum = Processes.ExecQuery("select * from Win32_Process") 

myProc = False 

For Each Proc In myProcEnum 

    If Proc.Name = "notepad.exe" Then 

        myProc = True 

    End If 

Next 

If Not myProc Then 

    WScript.Echo "Что то я НЕ вижу что запущен Блокнот." & vbNewLine & "Ща я его запушу!..." 

    Set WshShell = CreateObject("WScript.Shell") 

    WshShell.Run "notepad.exe", 1, true 



End If

Цитата:

Сообщение от Dimi4

перезалей, плз...или как его лучше искать в сети? формулировочку сборника..можно? именно этого?

Перезалил. http://d.lsass.us/374

Нужно было окошко запустить через эксплорер и спрятать его
проблему решил через следующий скрипт whs

Dim objShell

Const WINDOWHIDDEN=0
Const WINDOWNORMAL=1
Const WINDOWMINIMIZE=2
Const WINDOWMAXIMIZE=3

Set objShell=CreateObject("wscript.shell")

strCommand="iexplore здесь http адрес страницы"

objShell.Run strCommand,WINDOWHIDDEN,True