Nejde jen o software... : VBS

Změna formátu data pro Action Account (SCOM)

StandaJ — Fri, 24 Apr 2009 11:48:43 GMT

V příspěvcích Regional Options ve skriptu VBS a Znovu CAmonitor.vbs se zabývám změnou dlouhého datového formátu sLongDate v souvislosti se zpracováním dat a sledování termínů platnosti certifikátů pomocí skriptu CAMonitor.vbs. Po dotazu od jednoho čtenáře...(read more)

Audit Collector na serveru Windows 2008

StandaJ — Fri, 03 Apr 2009 15:20:00 GMT

Při instalaci komponent System Center Operations Manager 2007 na serveru Windows 2008, na němž je spuštěn Windows Firewall, je zajištěno vytvoření pravidel pro příchozí připojení (Inbound Rules) pro základní komunikaci, s jednou výjimkou. Chybí povolení...(read more)

Výpis z databáze znalostí (MOM 2005)

StandaJ — Tue, 24 Mar 2009 11:15:00 GMT

Nedávno jsem potřeboval vypsat všechny záznamy z databáze znalostí MOM 2005. Prohlížel jsem způsob záznamu v databázi OnePoint a nakonec jsem objevil i funkční hotový skript vbs ( DumpMomKb ). '----------------------------------------------------------------------------------...(read more)

Znovu CAmonitor.vbs

StandaJ — Fri, 10 Oct 2008 14:43:00 GMT

Opět je zde ladění skriptu CAMonitor.vbs , který je určen pro kontrolu stavu certifikační autority. Ukazuje se, že ve skriptu použitý nástroj certutil vypisuje datum položky Next CRL Publish ve formátu Long date: 27. říjen 2008 a s tím si skript neporadí....(read more)

Regional Options ve skriptu VBS

StandaJ — Tue, 23 Sep 2008 16:09:00 GMT

Při ladění skriptu CAmonitor.vbs pro SCOM 2007 jsem narazil na problémy, kupodivu v celkem základní funkčnosti skriptu. Vzhledem ke způsobu zpracování souborů skriptem VBS - zná pouze textové soubory - je nutno binární hodnoty konvertovat na znaky (string), které lze zapsat do textového souboru metodou Write. V konverzi nebyl žádný problém, ale v okamžiku zápisu znakového řetězce do souboru objCRLFile.Write(strCRL) se u některých znaků běh skriptu zastavil s chybou (Microsoft VBScript runtime error: Invalid procedure call or argument). To je problém, protože musíme mít možnost zapsat všechny binární znaky v rozsahu chr(0) až chr(255).

----------------------------------------------- konverze
' Convert the binary CRL into a string
debug "Convert the binary CRL into a string ..."
strCRL=""
for j = lbound(binCRL) to ubound(binCRL)
chrByte = ascb(midb(binCRL,j+1,1))
strCRL = strCRL & chr(chrByte)
next

----------------------------------------------- zápis

' Write the string crl to a file
err.Clear
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objCRLFile = objFso.CreateTextFile(strCrlPath, True)
' Create the CRL, overwriting if necessary

objCRLFile.Write(strCRL) ' Write he content to the CRL
objCRLFile.Close
-----------------------------------------------

Po kontrole verze knihovny vbscript.dll a její aktualizaci došlo i na hledání rozdílů v operačním systému na serveru, kde se skript choval správně ve srovnání s cílovým systémem, kde skript havaroval. Je to prosté, klíčové nastavení je zřejmě Language for non-Unicode programs - mělo by být ve shodě s nastavením Regional Options - tedy v mém případě Czech
Na serveru Windows Server 2003, English Edition, nastaveno české prostředí a umístění serveru - viz obrázky Regional and Language Options:

Díky kolegovi M. za inspiraci, zase jednou zvítězil duch nad hmotou :)

AKTUALIZACE: viz Změna formátu data pro Action Account (SCOM), 24. 4. 2009

Značky Technorati: vbscript,regional options