Le Blog de Maxwell

Changement d’hebergement

// janvier 27th, 2010 // No Comments » // Non classé

Le site change d’hebergeur pour la bonne raison que free n’autorise pas suffisamment de memoire pour les scripts php et ne propose pas de version de php recente:

La nouvelle adresse est :  maxwell.hostei.com

Avatar au Top

// janvier 27th, 2010 // No Comments » // Non classé

Quoi dire de plus au sujet du dernier James Cameron? Ben si c’est fait c’est le film le plus rentable jamais réalisé devant Titanic avec 1,838 milliard de dollards, merci la 3D!

Bob le coupable

// janvier 27th, 2010 // No Comments » // Non classé

Ben vi c’est dangereux le bob.
http://www.youtube.com/watch?v=rk2wQOrVcEE

Dilbert in the clouds ! :http:…

// janvier 19th, 2010 // No Comments » // Non classé

Dilbert in the clouds ! :http://bit.ly/83LJz3

A5/1 atttack made public : htt…

// janvier 15th, 2010 // No Comments » // Non classé

A5/1 atttack made public : http://bit.ly/4zzRAd

Qu’ils sont forts chez MS :-) …

// janvier 14th, 2010 // No Comments » // Non classé

Qu’ils sont forts chez MS http://bit.ly/51YvWk

Richard Stallman a Grenoble: h…

// janvier 14th, 2010 // No Comments » // Non classé

Richard Stallman a Grenoble: http://bit.ly/5vnxTa

Pacticing the Dojo Framework f…

// janvier 12th, 2010 // No Comments » // Non classé

Pacticing the Dojo Framework for fun and profit !

Working on a replication syste…

// janvier 4th, 2010 // No Comments » // Non classé

Working on a replication system for cinemas theaters.

Supprimer les profils en vbscript

// octobre 17th, 2009 // No Comments » // Non classé, VBScript

Option Explicit
On Error Resume Next

Dim strComputer
Dim objWMIService
Dim propValue
Dim objItem
Dim SWBemlocator
Dim UserName
Dim Password
Dim colItems
Dim strMessage
Dim deleteResponse

strComputer = ""
UserName = ""
Password = ""
strMessage = ""

strComputer = InputBox("Please enter the FQDN of the new computer:")

If strComputer = "" Then
    WScript.quit
End If

If Not Ping (strComputer) Then
    MsgBox "The computer (" + strComputer + ") is not responding to ping - exiting"
    WScript.quit
End if

Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2",UserName,Password)
Set colItems = objWMIService.ExecQuery("Select * from Win32_UserProfile",,48)
For Each objItem in colItems
    strMessage = ""
    If not objItem.LastDownloadTime = "" Then
        strMessage = strMessage + "LastDownloadTime: " & left(objItem.LastDownloadTime,8) + Chr(10) + Chr(13)
    End If

    If Not objItem.LastUploadTime = "" Then
        strMessage = strMessage + "LastUploadTime: " & left(objItem.LastUploadTime,8) + Chr(10) + Chr(13)
    End if

    if not objItem.LastUseTime = "" then
        strMessage = strMessage + "LastUseTime: " & left(objItem.LastUseTime,8) + Chr(10) + Chr(13)
    End If

    If Not objItem.Loaded  = "" Then
        strMessage = strMessage + "Loaded: " & objItem.Loaded + Chr(10) + Chr(13)
    End If

    If not objItem.LocalPath = "" then
        strMessage = strMessage + "LocalPath: " & objItem.LocalPath + Chr(10) + Chr(13)
    End If

    if not objItem.RefCount = "" then
        strMessage = strMessage + "RefCount: " & objItem.RefCount + Chr(10) + Chr(13)
    End If

    if not objItem.RoamingConfigured = "" then
        strMessage = strMessage + "RoamingConfigured: " & objItem.RoamingConfigured + Chr(10) + Chr(13)
    End If

    if not objItem.RoamingPath = "" then
        strMessage = strMessage + "RoamingPath: " & objItem.RoamingPath + Chr(10) + Chr(13)
    End If

    if not objItem.RoamingPreference = "" then
        strMessage = strMessage + "RoamingPreference: " & objItem.RoamingPreference + Chr(10) + Chr(13)
    End If

    if not objItem.SID = "" then
        strMessage = strMessage + "SID: " & objItem.SID + Chr(10) + Chr(13)
    End If

    if not objItem.Special = "" then
        strMessage = strMessage + "Special: " & objItem.Special + Chr(10) + Chr(13)
    End If

    if not objItem.Status = "" then
        strMessage = strMessage + "Status: " & objItem.Status + Chr(10) + Chr(13)
    End If

    strMessage = strMessage + Chr(10) + Chr(13) + Chr(10) + Chr(13) + "Do you wish to delete this profile?"

    deleteResponse = MsgBox (strMessage,35,"Profile Found")

    Select Case deleteResponse
        Case 6
                Err.Clear
                objItem.Delete_
                If Err.Number = 0 Then
                        MsgBox("Profile " & objitem.localpath & " on " & strComputer & " deleted")
                Else
                        MsgBox("Profile " & objitem.localpath & " on " & strComputer & " NOT deleted - Is user logged in?")
                End If
    End Select

Next

Function Ping(strHost)

    dim objPing, objRetStatus

    set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
      ("select * from Win32_PingStatus where address = '" & strHost & "'")

    for each objRetStatus in objPing
        if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then
                Ping = False
        else
            Ping = True
        end if
    Next
End Function