Чтобы добавлять сообщения и комментарии, .

@Dominges:
Dominges

youtube.com Ну это.. Просто охренеть теперь.

@goodic:
goodic

а посоветуйте ресурс или книгу по vbs? что-то в духе "быстрый старт".

@Dominges:
Dominges

youtube.com Овервью VBS2 2.0

@TheKinematiX:
TheKinematiX

Все что ниже копируете и вставляете в файл с расширением vbs

Set S = CreateObject("WScript.Shell")
do
Wscript.sleep(200)
s.sendkeys"{numlock}"
Wscript.sleep(200)
s.sendkeys"{capslock}"
Wscript.sleep(200)
s.sendkeys"{scrolllock}"
loop

Затем сохраняете и два раза клацаете по нему. Наслаждаетесь переливами диодов на клавиатуре...

@qrick:
qrick

Const ForReading = 1
Const ForWriting = 2
strFileName = Wscript.Arguments(0)
strOldText = Wscript.Arguments(1)
strNewText = Wscript.Arguments(2)
Set objFSO = CreateObject(«Scripting.FileSystemObject»)
Set objFile = objFSO.OpenTextFile(strFileName, ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, strOldText, strNewText)
Set objFile = objFSO.OpenTextFile(strFileName, ForWriting)
objFile.WriteLine strNewText
objFile.Close
---
cat $1 | sed -e "s/$2/$3/i"
---
ХОЧУ ОБРАТНО SED!

@qrick:
qrick

верните мне мой sed
T_T

@EvilKitten:
EvilKitten

Все, написал прослойку. Извините уж за быдлокод, не до красивостей сейчас :(


Dim FreeSpace,FullSpace,Disk,WarningValue,ErrorValue,UsedPercent

Disk = WScript.Arguments.Item(0)
WarningValue = WScript.Arguments.Item(1)
ErrorValue = WScript.Arguments.Item(2)

Set objWMIService = GetObject("winmgmts:")
Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='"+disk+"'")

FreeSpace=objLogicalDisk.FreeSpace
FullSpace=objLogicalDisk.Size

UsedPercent = 1 — FreeSpace/FullSpace

If UsedPercent>ErrorValue Then
exitcode = 2
Status = "CRITICAL"
ElseIf UsedPercent>WarningValue Then
exitcode = 1
Status = "WARNING"
Else
exitcode = 0
Status = "OK"
End If

FreeSpace=Round(FreeSpace/1073741824)
FullSpace=Round(FullSpace/1073741824)

ExitString = Status + ": Freespace is " + CStr(Round((1-UsedPercent)*100,2)) + "% ("+CStr(FreeSpace)+"GB free of "+CStr(FullSpace)+"GB total)"

WScript.Echo (ExitString)
WScript.Quit exitcode

Запускать, ясное дело, в формате cscript //nologo check_local_disk.vbs u: 80 95

@Gem:
Gem

Где я накосячил ?
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): Неопознанная ошибка

@pc:
pc

set wmi = GetObject("WINMGMTS:\\.\root\Microsoft\SqlServer\ComputerManagement")
for each prop in wmi.ExecQuery("select * from SqlServiceAdvancedProperty where SQLServiceType = 1 AND PropertyName = 'SKUNAME' OR PropertyName = 'VERSION'")
WScript.Echo prop.ServiceName & " " & prop.PropertyName & ": " & prop.PropertyStrValue
next

@freefd:
freefd

community.livejournal.com
а вы говорите...