Stephen's Space on the Web – Page 6 – This is my space on the internet. I got tired of writing scripts and/or code and then losing them. The code may be 100% mine or I might have found it on the internet.

Whatsup Gold public satus page

Here is a simple example of a WhatsUp Gold public status page to show to end users. It will show the status of devices without giving them extra information they do not need.



<% @LANGUAGE="VBScript"%>



<%

publicview = "Group To Show"
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DSN=WhatsUp"

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM DeviceGroup where sGroupName = '" & publicview & "';"

rs.open strSQL,adoCon
 groupid = rs("nDeviceGroupID")
rs.close

strSQL = "Select * from PivotDeviceToGroup where nDeviceGroupID = " & groupid

rs.open strSQL,adoCon

deviceswewant = ""

do while not rs.eof
 if  not deviceswewant = "" then
  deviceswewant = deviceswewant & " OR "
 end if
  deviceswewant = deviceswewant & "(nDeviceID=" & rs("nDeviceID") & ")"

 rs.movenext
loop
rs.close

strSQL = "select * from Device where " & deviceswewant & ";"
rs.open strSQL,adoCon

%>



<%
do while not rs.eof
 'accessing null data seems to corrupt the recordset. Put all your values into variabled before checking maintenacemode
 status = rs("sStatus")
 name = rs("sDisplayName")
 maintenancemode = rs("bManualMaintenanceMode")
 response.write ""
 response.write ""
 if not isnull(maintenancemode) then
  response.write ""
 elseif status = "" then
  response.write ""
 else
  response.write ""
 end if
 response.write ""
 
 rs.movenext
loop
rs.close
%>

name
status
" & name & " " & "Maintenace Mode :|" & " " &  "Happy Camper :)" & " " &  "Experiencing Problems :(" & "

name	status
" & name & "	" & "Maintenace Mode :\|" & "	" & "Happy Camper :)" & "	" & "Experiencing Problems :(" & "

Knowledgetree Command Line Drop Box in Perl

I needed an easy way to push documents to the KT implementation. After looking at how KT’s windows drop box software works I wrote something similar in Perl that works from the command line.

I plan to wrap an Automator action around this to upload documents easily.

#stephen

#www.stephenjc.com

#ktdrop.pl

#command line drop box

#usage: ./ktdrop.pl username password fullpath_to_file



use SOAP::Lite;

use Data::Dumper;

use LWP::UserAgent;

use HTTP::Request::Common;

use XML::Simple;



#username and password for KT

$username = $ARGV[0];

$password = $ARGV[1];



#prefix http or https

$serverPre = 'https://';



#full server url with port

$serverUrl = 'server.com:port/kt';



#document type for uploaded documents, make sure nothing is required because we will not send any metadata

$ktDocumenttype = 'default';



#if you have http basic leave this, otherwise change it to ''

$httpAuth = $username . ':' . $password . '@';

$fullUrl = $serverPre.$httpAuth.$serverUrl.'/ktwebservice/';

$session = SOAP::Lite->new(proxy => $fullUrl . 'webservice.php?wsdl');



$file = $ARGV[2];



#login

$r = $session->login($username,$password,'127.0.0.1');

$ktsessionid = $r->valueof('//message');



#dropbox folder id for user

$r = $session->get_folder_detail_by_name($ktsessionid,"DroppedDocuments/$username");

$dropboxid = $r->valueof('//id');



#upload document

$uploadRes = ktUpload();



#move file to dms

$r = $session->add_document($ktsessionid,$dropboxid,$uploadRes->{name},$uploadRes->{name},$ktDocumenttype,$uploadRes->{filename});

if ($r->valueof('//status_code') == 0)

{

$r = $session->logout($ktsessionid);

exit(0);

}

else

{

print "The upload did not work\n";

exit(1);

}



sub ktUpload

{

my $ua = LWP::UserAgent->new;

my $browser = HTTP::Request->new();

my $response = $ua->request(POST $fullUrl . 'upload.php', 

Content_Type => 'form-data', 

Content =>[

session_id => $ktsessionid, 

action => "A",

output => "xml",

file => [$file] 

]

);

my $uploadres = XMLin($response->content);

#print Dumper($uploadres->{upload_status}->{file});

return $uploadres->{upload_status}->{file};

}

Knowledgetree Document Management System on a WHS

I setup Knowledgetree on my WHS because I didn’t like other options and it was free. I didnt want to use the canned installation because I didn’t want Apache and openoffice running in the background taking up my ram.

KT = Knowledgetree
WHS = Windows Home Server

Setup a shared directory for kt with duplication, in my example I am going to use DMS you can use DMS$ if you want it hidden from browsing

Add the users that are going to use KT

Install the WHS PHP Extension

http://www.mediasmartserver.net/downloads/add-ins/WHSPHP_1.0.4.zip

Install WHS MySql Extension

http://www.mediasmartserver.net/downloads/add-ins/MySqlInstallerForWHS_0.0.8.zip
Change your mysql root password at http://localhost/pma

Enable curl in php.ini

Edit c:\php5\php.ini and add extension=php_curl.dll under the other extensions

Install SUN Java 1.6

http://www.java.com/en/download/manual.jsp

Download the KT Source Code its about 60mb, the Windows version.

http://www.knowledgetree.com/products/opensource/downloadopensource

Extract KT to d:\dms

Add full rights for the “Windows Home Server Users” group to d:\dms

Create a virtual directory under the default website in IIS called DMS and using d:\dms as the document root

Disable anonymous authentication and enabled basic authentication

Run the KT setup at http://localhost/dms
Setup the httpsso for single sign-on to your whs users.

http://forge.knowledgetree.com/gf/project/httpsso/
you must first manually make the matching user in KT first.

Scheduled Tasks

ktscheduler – runs internal tasks

Run: c:\php5\php.exe d:\dms\bin\scheduler.php
Start in: d:\dms\bin
Run As: NT AUTHORITY\SYSTEM
Run every 15 minutes for 24 hours

ktlucene

Run: “C:\Program Files\Java\jre6\bin\java.exe” -jar D:\DMS\bin\luceneserver\ktlucene.jar
Start in: D:\DMS\bin\luceneserver
Run As: NT AUTHORITY\SYSTEM
Run at system startup
Uncheck the stop the task if it runs for 72 hours

ktDbBackup

Run: C:\php5\php.exe d:\dms\ktdbbackup.php
Start In: d:\dms
Run As: Administrator (needs network access for backups)
Run every 12 hours for 24 hours


#stephen
#www.stephenjc.com
#kt backup for whs
#dump sql backup of kt to document root
#dump a quick csv to help convert files back to their original names

#ktconfig
$ktconfig = parse_ini_file("config/config.ini");

$mysqlLink = mysql_connect($ktconfig["dbHost"],$ktconfig["dbUser"],$ktconfig["dbPass"]);
if (!$mysqlLink) {
    echo "Unable to connect to DB: " . mysql_error();
    exit;
} 
if (!mysql_select_db($ktconfig["dbName"])) {
    echo "Unable to select mydbname: " . mysql_error();
    exit;
}

#get document location from db

$sql = 'SELECT * FROM `config_settings` WHERE item = \'documentRoot\'';
$result = mysql_query($sql);
if (!$result) {
    echo "Could not successfully run query ($sql) from DB: " . mysql_error();
    exit;
}
if (mysql_num_rows($result) == 0) {
    echo "No rows found, nothing to print so am exiting";
    exit;
}
$row = mysql_fetch_assoc($result);
$docHome = $row["value"];

#dump database to document root
system('mysqldump --user ' . $ktconfig["dbAdminUser"] . ' --password=' . $ktconfig["dbAdminPass"] . ' ' . $ktconfig["dbName"] . ' >' . $docHome . '\ktdbbackup.sql');



#create csv to restore original documents just in case

$sql = 'select * from documents, document_content_version, users where documents.status_id = 1 and document_content_version.document_id = documents.id and documents.creator_id = users.id';

$result = mysql_query($sql);

if (!$result) {

    echo "Could not successfully run query ($sql) from DB: " . mysql_error();

    exit;

}

if (mysql_num_rows($result) == 0) {

    echo "No rows found, nothing to print so am exiting";

    exit;

}



$mycsvBackup = $docHome . "\ktbackup.csv";

$fh = fopen($mycsvBackup, 'w');

fwrite($fh,"Original_Name,KT_StoragePath,Owner,md5hash\n");

while ($row = mysql_fetch_assoc($result)) {

    fwrite($fh,$row["filename"] . "," . $row["storage_path"] . "," . $row["username"] . "," . $row["md5hash"] . " \n");

}

fclose($fh);


?>

Create exchange accounts from Perl

I have not been able to create MS Exchange 2007 accounts from perl, the only method i have found that works is to call the PowerShell command to create the account. Below is an example.

system qq[PowerShell.exe -PSConsoleFile "C:\\Program Files\\Microsoft\\Exchange Server\\Bin\\ExShell.psc1" -Command ". {Enable-Mailbox -Identity fitsuny\\] . $adUser->samaccountname . qq[ -Alias ] . $adUser->samaccountname . qq[ -Database $database] . $value. qq[}"];

Error 403 when using a custom account for an Application Pool

Cscript adsutil.vbs set W3Svc/CreateProcessAsUser false

Wireless Mesh Network

If you need a large scale wireless deployment or just a public hotspot with out getting into proprietary hardware and software look at http://www.open-mesh.com/. Their hardware is resonably priced and you can expand your wireless coverage just by adding addtional APs.

Acer H340 WHS Recovery

The directions in the manual are wrong to recover the Acer H340.

Shut off your WHS
Hold the recovery button on the back and turn on your WHS.
Let go of the recovery button when the red i starts to blink
Wait about 5 to 10min until the recovery image boots and you get network link lights on the back of the unit
Run the recovery software from a Windows computer.
If your computer does not see your WHS still do the following.

Plug into the same switch
disable all other network cards including wireless
disable your firewall

Windows Log file compression in perl

This script will search the location for all .log files and compress them using NTFS.

#!perl
#Search osbLocations for *.log files and ntfs compress them.

use File::Find;
use Win32::OLE;

@osbLocations = (
  'E:/obs-win-mthosting2',
  'E:/obsr-win-mthosting3',
  );

$strComputer = '.';
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');


foreach (@osbLocations) 
{
 find(\&processFile, $_);
} 


sub processFile()
{
 if ( -f and /.log$/ )
 {
  $objFile = $objWMI->Get('Cim_Datafile=\'' . $File::Find::name . '\'');
  if ($objFile->Compressed != 1)
  {
   print $objFile->Name, "\n";
   $intRC = $objFile->Compress;
   # To uncompress change this to objFile.Uncompress
   if ($intRC != 0) {
       print 'There was an error compressing the file: ' . $intRC, "\n";
   }
   else {
       print "File compression successful\n";
   }
  }
 }
}

DKIM signing in perl

MT Hosting
#[email protected]
#Simple DKIM
#V0.1

use Mail::DKIM::Signer;
use Email::Simple;

@ARGV == 1 or die "Missing File Name";

$domain = "mysecureservice.com";
$key = "C:\\Ahsay\\CustomScripts\\$domain.priv";
$dkimsel = "dkim";
$dksel = "dk";
my $dkim = Mail::DKIM::Signer->new(
Algorithm => "rsa-sha1",
Method => "relaxed", 
Domain => $domain, 
Selector => $dkimsel, 
KeyFile => $key);

open(mail,"< $ARGV[0]");
$emailm = "";

while ()
{
chomp;
s/\015$//;
$dkim->PRINT("$_\015\012");
$emailm = "$emailm"."$_\n";
}
$dkim->CLOSE;
close mail;

my $email = Email::Simple->new($emailm);
$dkimsig = $dkim->signature->as_string();
$dkimsig =~ s/DKIM-Signature: //;

$email->header_set("DKIM-Signature", $dkimsig);


open (mail, "> $ARGV[0]");
$emailmsg = $email->as_string;
#$emailmsg =~ s/\015$//;
print mail $emailmsg;
close mail;

Server 2008 R2 Missing bootmgr

I was working on a 2008 r2 server, after resizing the C drive the system would not boot. After digging alot I found Dan’s blog that got everything working.

In short boot from the dvd, get to the command prompt and run x:\sources\recovery\StartRep.exe

Dan Stolts Blog