Užitečné funkce

Zde jsou nejrůznější užitečné funkce zejména pro VBScript. Bez jakéhokoli řazení, tak jak jsem je napsal, tak jsou tady uloženy :-)

function getDNParam(aData,aParam)
cParamPos=InStr(aData,aParam&":")
if cParamPos>0 then
cParamEnd=InStr(cParamPos,aData,";")
if cParamEnd>0 then
getDNParam=Mid(aData,cParamPos+Len(aParam)+1,cParamEnd-(cParamPos+Len(aParam)+1))
end if
end if
end function

Function GetHTTPFile(strURL)
Dim objXML
Dim strHTTPResponse
Set objXML = CreateObject("Msxml2.ServerXMLHTTP.6.0")
objXML.setTimeouts 10000, 10000, 10000, 120000
Call objXML.Open("GET", strURL, False)
Call objXML.Send()
strHTTPResponse = objXML.responseText
Set objXML = Nothing
GetHTTPFile = strHTTPResponse
End Function

Function AlmostUniqueID()
Randomize
for iCtr = 1 to 10
sChar = Chr(Int((90 - 65 + 1) * Rnd) + 65)
sID = sID & sChar
Next
sID = sID & Month(Now) & Day(Now) & Year(Now) & Hour(Now) _
& Minute(Now) & Second(Now)
AlmostUniqueID = sID
End Function

function CurrentDir
Set WshShell = CreateObject("WScript.Shell")
CurrentDir = WshShell.CurrentDirectory
Set WshShell = Nothing
end function

function localComputerName
Set WshNetwork = CreateObject("WScript.Network")
localComputerName=WshNetwork.ComputerName
Set WshNetwork = nothing
end function

function localComputerDescription
HKLM = &H80000002
key = "SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters"
ValueName = "srvcomment"
Set reg = GetObject("winmgmts:\\.\root\default:StdRegProv")
reg.GetStringValue HKLM, key, ValueName, value
if VarType(value) = vbNull Then value = "[empty]"
localComputerDescription=value
Set reg = nothing
end function

function getParam(aI,aT)
DIM tA
tA=Split(aT&" "," ")
if aI<=UBOUND(tA) then getParam=tA(aI-1) else getParam="" end if end function function ReadAndDeleteFirstLineFromFile(aFileName) set cFSO=CreateObject("Scripting.FileSystemObject") set cFile=cFSO.OpenTextFile(aFileName, 1, false) if not cFile.AtEndOfStream then ReadAndDeleteFirstLineFromFile=cFile.ReadLine set cNewFile=cFSO.CreateTextFile(aFileName&".new", 1, false) while not cFile.AtEndOfStream cNewFile.WriteLine cFile.ReadLine wend cNewFile.Close : set setNewFile = Nothing cFile.close : set cFile=Nothing cFSO.DeleteFile aFileName cFSO.MoveFile aFileName&".new",aFileName else cFile.close : set cFile=Nothing ReadAndDeleteFirstLineFromFile="" end if set cFSO=Nothing end function

Označeno v ASP, VBScript, Ostatní

Napsat komentář

Vaše emailová adresa nebude zveřejněna. Vyžadované informace jsou označeny *

*