dim objShell
set objShell = CreateObject("Shell.Application")
objShell.ControlPanelItem("desk.cpl")20 sie 2009
Kategoria: VBSCRIPT
2 kwi 2009
Sprawdzenie u uruchamianie GG w Vbs
Dim fso, stream, str, re, name
Dim wsh, oExec
Set wsh = CreateObject("WScript.Shell")
Set oExec = wsh.Exec("cmd /c " & "tasklist | find " & Chr(34) & "gg.exe" & Chr(34))
wynik = oExec.StdOut.ReadAll
'msgbox wynik
Dim valid
Set objRegEx = CreateObject("VBScript.RegExp")
valid = False
objRegEx.Pattern = "^gg.exe"
valid = objRegEx.test(wynik)
If valid = True Then
''MsgBox(wynik)
Else
wsh.Run Chr(34) & "C:\\Program Files\\Gadu-Gadu\\gg.exe" & Chr(34)
Set wsh = Nothing
End if28 lis 2008
Obsługa daty w VBScript
<head>
<script language="VBScript">
sub ustaw()
form1.date1.value = date()
form1.date2.value = dateadd("m",-1,date())
end sub
</script>
</head>
<body>
<form name="form1" method="post">
<input type="button" value="Ustaw date" name="buttonname" onclick="ustaw"/>
data
<input id="date1" type="text" name="datefrom" size="20"/>
data: miesiac -1
<input id="date2" type="text" name="dateto" size="20"/>
</form>
</body>
</html>25 lip 2008
Kopiowanie katalogów i podkatlogów
Dim oFS
Set oFS=CreateObject("Scripting.FileSystemObject")
oFS.CopyFolder "d:\temp\*", "E:\tmp\"
Set oFS=Nothing25 lip 2008
Kopiowanie katalogów
dir = "d:\tmp\"
dir2 = "e:\temp\"
Set fso = CreateObject("Scripting.FileSystemObject")
czas = Now()
ex = Year(czas) & Month(czas) & Day(czas) & Hour(czas) & Minute(czas) & Second(czas)
dir_ex = dir2 & ex
fso.CreateFolder(dir_ex)
fso.CopyFolder dir & "*", dir_ex
set fso = nothing