Sunday, November 2, 2014

Games with MongoDB and PowerShell

To play with MongoDB need to have any kind of data - random one of the best things to fulfill our collection with data:

Add-Type -Path E:\mongo\driver\MongoDB.Driver.dll
Add-Type -Path E:\mongo\driver\MongoDB.Bson.dll
$db = [MongoDB.Driver.MongoDatabase]::Create('mongodb://127.0.0.1:27017/darius')
$collection = $db['labas']
$i = 0
while ($i -le 1000)
{
    $a1 = ([char](Get-Random -InputObject (65..75))).ToString()+(Get-Random -Count 1 -InputObject (1..3)).ToString()+([char](Get-Random -InputObject (65..75))).ToString()+([char](Get-Random -InputObject (65..75))).ToString()+([char](Get-Random -InputObject (65..75))).ToString()+([char](Get-Random -InputObject (65..75))).ToString()
    $b1 = ([char](Get-Random -InputObject (65..75))).ToString()+([char](Get-Random -InputObject (65..75))).ToString()+(Get-Random -Count 1 -InputObject (1..3)).ToString()+([char](Get-Random -InputObject (65..75))).ToString()+([char](Get-Random -InputObject (65..75))).ToString()+([char](Get-Random -InputObject (65..75))).ToString()
    $c1 = ([char](Get-Random -InputObject (65..75))).ToString()+([char](Get-Random -InputObject (65..75))).ToString()+([char](Get-Random -InputObject (65..75))).ToString()+(Get-Random -Count 1 -InputObject (1..3)).ToString()+([char](Get-Random -InputObject (65..75))).ToString()+([char](Get-Random -InputObject (65..75))).ToString()
    $c2 = ([char](Get-Random -InputObject (65..75))).ToString()+([char](Get-Random -InputObject (65..75))).ToString()+([char](Get-Random -InputObject (65..75))).ToString()+([char](Get-Random -InputObject (65..75))).ToString()+(Get-Random -Count 1 -InputObject (1..3)).ToString()+([char](Get-Random -InputObject (65..75))).ToString()
    [MongoDB.Bson.BsonDocument] $doc1 = @{
    "_id"= [MongoDB.Bson.ObjectId]::GenerateNewId()
    "a1"= "$a1"
    "b1"= "$b1"
    "c"= [MongoDB.Bson.BsonDocument]@{
        'c1'= $c1
        'c2'= $c2
                                      }
                                         }
    $collection.Insert($doc1)
    $i++
}