Coding – BAFM

VBscript & Active Directory and printers ? (continued)

October 25, 2007August 16, 2014 Christian 1 Comment

As I posted earlier, I tried working around some limitations in Microsoft’s Active Directory by teaching the script some intelligence.

But, since we recently started using Thin Clients, all the stuff I did with the fancy vbs was just a waste-of-time. Turns out, Windows XP Embedded doesn’t work quite the same as a “normal” Windows XP (that’s where I tested the script on), and it simply dies when running the WMI Query. Bollocks.

So I switched back, utilizing a shortcut in Startup, but pointing to the shortened vbs (see below) instead of the ugly batch file someone wrote.

Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection "\nas.barfoo.orgKyocera FS-9100DN KX"
' Set the default printer to something useful
WshNetwork.SetDefaultPrinter "\nas.barfoo.orgKyocera FS-9120DN KX"

Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection "\nas.barfoo.orgKyocera FS-9100DN KX"

' Set the default printer to something useful

WshNetwork.SetDefaultPrinter "\nas.barfoo.orgKyocera FS-9120DN KX"

But even that doesn’t work all the time, I still have to figure out why.

VBscript & Active Directory and printers ?

October 13, 2007June 21, 2013 Christian 1 Comment

Well, since our current solution for mapping printers is an ugly batch file, which needs to be put into Startup, I today poked at doing it in VBscript (I know, but it’s less ugly than the batch script, trust me).

As some of you know, printers are only applicable to users (as in you can’t put a startup script onto an OU, which is going to map the printers). So as we store users and the computes in different OU’s in our Active Directory (we do have about 15.000 students), I can’t apply the printer.vbs to the users OU directly either, unless I implement some intelligence into the script itself.

And that’s basically what I did. Since different pools at the university have different DNS suffixes (like pools.rz.barfoo.org, that our or pools.fmz.barfoo.org) and we only want them students to have our printers when they logon at our pool, I just made the script to get the DNS DomainName of the current active interface and compare it against a given pattern.

&#039; The problem is, if you apply something like this the users get the printers regardless whether they
&#039; are at our location or a different one. So we either need to look up the current AD object (this computer),
&#039; or just compare our current DNS suffix/DomainName against a known pattern.

&#039; Now, lets get the DomainName from the WMI-Interface
strComputer = &quot;.&quot;
Set objWMIService = GetObject(&quot;winmgmts:{impersonationLevel=impersonate}!\.rootcimv2&quot;)
Set colNicConfigs = objWMIService.ExecQuery (&quot;SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True&quot;)

For Each objNicConfig In colNicConfigs
strDNSDomain = objNicConfig.DNSDomain
Next

&#039; Apply some regexp foo, to see if we&#039;re at the computing center or not!
Dim regexp
Set regexp = New RegExp
regexp.Pattern = &quot;pools.rz.barfoo.org&quot;

if regexp.Test(strDNSDomain) Then
&#039;If so, then lets just connect the printers we need!
Set WshNetwork = CreateObject(&quot;WScript.Network&quot;)

WshNetwork.AddWindowsPrinterConnection &quot;\nas.barfoo.orgKyocera Mita FS-9100DN KX&quot;

&#039; Set the default printer to something useful
WshNetwork.SetDefaultPrinter &quot;\nas.barfoo.orgKyocera Mita FS-9100DN KX&quot;
End If

' The problem is, if you apply something like this the users get the printers regardless whether they

' are at our location or a different one. So we either need to look up the current AD object (this computer),

' or just compare our current DNS suffix/DomainName against a known pattern.

' Now, lets get the DomainName from the WMI-Interface

strComputer = "."

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\.rootcimv2")

Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objNicConfig In colNicConfigs

strDNSDomain = objNicConfig.DNSDomain

' Apply some regexp foo, to see if we're at the computing center or not!

Dim regexp

Set regexp = New RegExp

regexp.Pattern = "pools.rz.barfoo.org"

if regexp.Test(strDNSDomain) Then

'If so, then lets just connect the printers we need!

Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection "\nas.barfoo.orgKyocera Mita FS-9100DN KX"

' Set the default printer to something useful

WshNetwork.SetDefaultPrinter "\nas.barfoo.orgKyocera Mita FS-9100DN KX"

End If

Nagios & plugins

October 6, 2007August 16, 2014 Christian Leave a comment

Since we started utilizing Nagios‘s power two months ago, I finally came up with a C-based ram-plugin for nagios. The biggest problem I had with the python and perl based plugins, that some distributions (yes, SLES and Debian) don’t install either Python or Perl.

Since I wanted a manageable setup (as in unified code base across all distributions), I wanted it to work without installing too much. So I took the swap plugin and basically removed what wasn’t necessary and voila!

Here we go, yay ME!

Only thing I need to finish sometime soon, is getting the NSClient++ work on my Windows boxen (which I do have quite a few, the domain controllers, nas-cluster, …)

TYPO3 and MySQL replication

September 8, 2007June 21, 2013 Christian Leave a comment

Apparently the TYPO3 version we are using, doesn’t play too nice with the MySQL MasterMaster replication.

Sometimes, something like this is going to happen:

070826  0:44:32 [ERROR] Slave: Error &#039;Duplicate entry &#039;75-222419149&#039; for key 1&#039; on query. Default database: &#039;t3nb&#039;. Query: &#039;INSERT INTO cache_pagesection
070826  0:44:32 [ERROR] Error running query, slave SQL thread aborted. Fix the problem, and restart the slave SQL thread with &quot;SLAVE START&quot;. We stopped at log &#039;dbc-mysql1.000192&#039; position 611861372

070826 0:44:32 [ERROR] Slave: Error 'Duplicate entry '75-222419149' for key 1' on query. Default database: 't3nb'. Query: 'INSERT INTO cache_pagesection

070826 0:44:32 [ERROR] Error running query, slave SQL thread aborted. Fix the problem, and restart the slave SQL thread with "SLAVE START". We stopped at log 'dbc-mysql1.000192' position 611861372

Well, as you can see from the last line in the log, the Slave-SQL thread found a duplicate entry and thought it is smart to just turn off the thread instead of disregarding the just made entry. So from now on, both databases drift since there ain’t no replication anymore until someone kick starts the replication again (someone being me).

Anyway, I think I finally traced the fucker down, supposedly one of the problematic cases is located in t3lib/class.t3lib_tstemplate.php on line 362.

$GLOBALS[&#039;TYPO3_DB&#039;]-&gt;exec_DELETEquery(&#039;cache_pagesection&#039;, &#039;page_id=&#039;.intval($GLOBALS[&#039;TSFE&#039;]-&gt;id).&#039; AND mpvar_hash=&#039;.t3lib_div::md5int($GLOBALS[&#039;TSFE&#039;]-&gt;MP));
$GLOBALS[&#039;TYPO3_DB&#039;]-&gt;exec_INSERTquery(&#039;cache_pagesection&#039;, $insertFields);

1 2	$GLOBALS['TYPO3_DB']->exec_DELETEquery('cache_pagesection', 'page_id='.intval($GLOBALS['TSFE']->id).' AND mpvar_hash='.t3lib_div::md5int($GLOBALS['TSFE']->MP)); $GLOBALS['TYPO3_DB']->exec_INSERTquery('cache_pagesection', $insertFields);

Basically what TYPO3 is doing is a DELETE and an INSERT right afterwards. But apparently, it doesn’t check whether the DELETE even succeeded. I hacked it for now, simply adding this:

-                               $GLOBALS[&#039;TYPO3_DB&#039;]-&gt;exec_INSERTquery(&#039;cache_pagesection&#039;, $insertFields);
+                               // Only insert a new cache entry with the same value, if the DELETE succeeded
+                               if ($GLOBALS[&#039;TYPO3_DB&#039;]-&gt;sql_affected_rows() == 1)
+                                       $GLOBALS[&#039;TYPO3_DB&#039;]-&gt;exec_INSERTquery(&#039;cache_pagesection&#039;, $insertFields);
+

- $GLOBALS['TYPO3_DB']->exec_INSERTquery('cache_pagesection', $insertFields);

+ // Only insert a new cache entry with the same value, if the DELETE succeeded

+ if ($GLOBALS['TYPO3_DB']->sql_affected_rows() == 1)

+ $GLOBALS['TYPO3_DB']->exec_INSERTquery('cache_pagesection', $insertFields);

Sadly, this looks more and more like a race-condition between the two boxes (as in the replication / UPDATE being too slow), when users visit a edited site, that hasn’t had it’s cache regenerated yet. Problem is, it ain’t just this single spot, but also the search indexing, image cache and the whole page cache. For now we switched the cluster to active/passive load balancing, till we have a chance to see if a newer TYPO3 fixes those issues.

Handling files/directories with spaces in `for’-loops

July 7, 2007July 7, 2007 Christian 2 Comments

So I have one or the other file, that needs to be extracted to a directory. And why not name it as the archive itself .. Only problem with it is the handling of variables with bash …

Try it yourself, stuff some directories with a space in inside a variables, and use something like this:

epimetheus tmp [0] $ mkdir files
epimetheus tmp [0] $ touch files/"I hate directories.archive" files/"Me luuv you looong time.archive"
epimetheus tmp [0] $ for i in $( /bin/ls --color=none files/ ); do mkdir "${i/.archive/}"; done

epimetheus tmp [0] $ mkdir files

epimetheus tmp [0] $ touch files/"I hate directories.archive" files/"Me luuv you looong time.archive"

epimetheus tmp [0] $ for i in $( /bin/ls --color=none files/ ); do mkdir "${i/.archive/}"; done

And now take a look at the output of that ..

epimetheus tmp [0] $ ls
I/  Me/  directories/  files/  hate/  looong/  luuv/  time/  you/

1 2	epimetheus tmp [0] $ ls I/ Me/ directories/ files/ hate/ looong/ luuv/ time/ you/

Means, the mkdir' created a directory for every entry in the ls‘ output that was separated by a space char … and I’ve no frickin clue on how to get that thing right … 😡

Update:
Thanks to Roy I know how one handles such things … 😳 It’s rather simple *g*

epimetheus tmp [0] $ for i in files/*; do mkdir "$( basename "${i/.archive/}" )"; done

1	epimetheus tmp [0] $ for i in files/*; do mkdir "$( basename "${i/.archive/}" )"; done

That should give you the desired effect ❗