Jump to content

Das Urmel

Abgemeldet
  • Gesamte Inhalte

    2.656
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von Das Urmel

  1. Hab ich dir extra Strings und Substrings mit auf den Weg gegeben, nunja.

    Das ist übrigends ein KIX-Script obiges, aber wenn du damit nicht zufrieden bist, dann machen wir das halt mit VBS.

    ------ Los gehts -------

     

    strComputer = "."

     

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Set objWMIInstance = objWMIService.ExecQuery("Select * from Win32_DiskDrive")

    For Each item In objWMIInstance

    WScript.Echo "Size Bytes :", item.Size

    WScript.Echo "Size Dezimal :", fFormatNum(item.Size, False)

    WScript.Echo "Size gerundet :", fFormatNum(item.Size, True)

    Next

     

    Wscript.quit

    ' die Funktion dazu

    Private Function fFormatNum(num, DropDecimal)

    Dim bytes

    Dim lngSize

    If IsNumeric(num) Then

    If Len(num) < 5 Then

    lngSize = FormatNumber((num /1024), 2, vbTrue, vbTrue, vbUseDefault)

    bytes = " Gb"

    Elseif Len(num) < 7 Then

    lngSize = FormatNumber((num / 1024), 2, vbTrue, vbTrue, vbUseDefault)

    bytes = " Kb"

    Elseif Len(num) < 10 Then

    lngSize = FormatNumber((num / 1024 ^ 2), 2, vbTrue, vbTrue, vbUseDefault)

    bytes = " Mb"

    Elseif Len(num) < 13 Then

    lngSize = FormatNumber((num / 1024 ^ 3), 2, vbTrue, vbTrue, vbUseDefault)

    bytes = " Gb"

    Elseif Len(num) < 16 Then

    lngSize = FormatNumber((num / 1024 ^ 4), 2, vbTrue, vbTrue, vbUseDefault)

    bytes = " Tb"

    Elseif Len(num) >= 16 Then

    lngSize = FormatNumber((num / 1024 ^ 5), 2, vbTrue, vbTrue, vbUseDefault)

    bytes = " Pb"

    End If

    If DropDecimal Or Right(lngSize, 2) = "00" Then

    fFormatNum = CStr(Round(lngSize, 0)) & bytes

    Else

    fFormatNum = CStr(lngSize) & bytes

    End If

    Else

    fFormatNum = num

    End If

    End Function

     

    ------ ende Scripting ----

    Nun must du aber völlig zufrieden sein :D

  2. Nunja, Paulchen - es ist gerade Sommerzeit, das Loch muss also gefüllt werden. :cry:

    Vielleicht würde ich auch in Erwägung ziehen ein gesamten Firmennetz auf Firefox zu migrieren... wenn:

     

    - Ich ein Firefox Administration Kit hätte wie IEAK

    - Wenn ich Firefox per Gruppenrichtlinie administrieren könnte

    - Wenn ich Firefox automatisch updaten könnte und zentrale Berichte erhalten würde

    - Wenn Firefox als MSI ausgeliefert würde und es per Policy verteilt werden könnte.

     

    Die sind dabei, keine Panik, haben den Ruf gehört. ;)

  3. Mal ganz frech behauptet

    Die Prüfungen lehnen sich an die Unternehmensphilosophie, ob nun MS, Cisco, Novell, Suse oder sonstwer, die damit verbunden Blickweisen zur Lösung auch.

     

    Aber mich interessiert der Halbe Account mehr. :)

    Ist der an der Größe festgemacht - alles unter 160cm isn halber.

    Und wieviel Pageviews produziert der so?

    Tja, das sind Fragen die die Welt bewegen :D

  4. Nuja, dann halt basteln - in etwa so

    ; ---- Check space on C --------------

    $UsrDrive = GETDISKSPACE("C:\")

    $szDrive = "" + $UsrDrive

    $flen = Len($szDrive)-1

    $dSize = ""

    select

    CASE $flen = 8

    ; 100Gb

    $dSize = SUBSTR($szDrive,1,3)+"," + SUBSTR($szDrive,1,2)

    $Unit= "GByte"

    CASE $flen = 7

    ; 10GB

    $dSize = SUBSTR($szDrive,1,2)+"," + SUBSTR($szDrive,1,2)

    $Unit= "GByte"

    CASE $flen = 6

    ; 1GB

    $dSize = SUBSTR($szDrive,1,1)+"," + SUBSTR($szDrive,1,2)

    $Unit= "GByte"

    CASE $flen = 5

    ; 100MB

    $dSize = SUBSTR($szDrive,1,3)+"," + SUBSTR($szDrive,1,2)

    $Unit= "MByte"

    CASE $flen = 4

    ; 10MB

    $dSize = SUBSTR($szDrive,1,2)+"," + SUBSTR($szDrive,1,2)

    $Unit= "MByte"

    CASE $flen = 3

    $dSize = SUBSTR($szDrive,1,$flen)

    $Unit = "KByte"

    endselect

    $X = "Platz auf C:" $Y="$dSize $Unit" GOSUB DISP

     

    Muste halt probieren :)

  5. Der Key ist per Default nicht in der Reg vorhanden, das besagt der Fehler, scheint aber nicht das Problem zu sein

    Es bleibt dir nix anderes übrig als die Logs zu vergleichen.

    Möglicherweise must du das Spielchen auch noch mit Filemon - gleiche Seite wie Regmon, durchspielen.

     

    Zu beneiden bist du nicht. :)

×
×
  • Neu erstellen...