← All posts tagged скрипт

Gem
Windows script скрипт vbs Где я накосячил ?
Dim oFSO, oApp, oFolderCopy, oShell
Dim strFontsPath, strScriptPath
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
Set oApp = CreateObject("Shell.Application")
WinDir = oShell.ExpandEnvironmentStrings ("%windir%")
Const HKEY_LOCAL_MACHINE = &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"
Set oFolderCopy = oApp.Namespace("\\server\path_to_ront")
If oFSO.FileExists(WinDir & "\Fonts\fontname.ttf") = True Then
oFSO.DeleteFile WinDir & "\fonts\fontname.ttf",True
strValueName = "FontName (TrueType)"
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName
End If
For Each oFont In oFolderCopy.Items
oApp.Namespace(20).CopyHere oFont
Next
Set oFolderCopy = Nothing
Set oApp = Nothing
Set oShell = Nothing

c:\PDFs\fonts.vbs(10, 1) (null): Неопознанная ошибка
Gem
скрипт #!/bin/sh
# A slightly complex but actually useful example
inotifywait -mrq --timefmt '%d/%m/%y %H:%M' --format '%T %f' \
-e close_write /home/billy | while read date time file; do
rsync /home/billy/${file} rsync://billy@example.com/backup/${file} && \
echo "At ${time} on ${date}, file ${file} was backed up via rsync"
done

Взято с inotify-tools.sourceforge.net
Gem
Windows AD скрипт Нужен скрипт для WinXP
1. удаления всех принтеров и портов и драйверов
2 установки умолчательного принтера (или подсказка как сделать это средствами AD)
Устанавливаю принтеры с помощью PushPrinterConnections.exe и политики MS AD
Пробовал это admin.vlady.ru
не совсем то и не сработало :-(
Gem
ping скрипт tomcat ~ # cat test_connect
#!/bin/bash

ping -c3 -q google.com > /dev/null 2>&1

if [ $? != 0 ]
then /etc/init.d/xl2tpd restart
fi

Все это дело кидаем в cron и наслаждаемся, заменив предварительно /etc/init.d/xl2tpd restart на команду перезапуска