8 Dinge die ich an Google Drive ändern würde

Posted on by
Reply

Vor einigen Tagen wurde Google Drive veröffentlicht.
Seither benutzte ich es fleissig.
Nun habe ich 8 Vorschläge die Google Drive noch besser machen würden.

1. Streaming auf das Smartphone
Ich habe bemerkt dass alle Files die auf dem Drive liegen vom Handy aus zuerst gedownloadet werden müssen, was bei z.B. einem Filmen, Musik, Bildern etc. mühsam sein kann. Ich würde gerne eine Funktion sehen bei der man z.B. Filme streamen kann.

2. Andere Programmendungen einbinden
Am liebsten wäre mir eigentlich eine Online Desktop Umgebung, also z.B. dass man eine RAR Datei entpacken kann im Drive selbst, eine Art Online Explorer der mit Chrome Extensions angepasst werden kann.

3. App: Dateihandling
Was ich auch bemerkt habe, im Android App kann man keine Dateien verschieben, Ordner erstellen oder Ordner verschieben. Das wären Funktionen die mir noch wichtig wären.

4. Google Music einstellen und hier integrieren
Dieser Vorstoss ist ähnlich wie Punkt 1, es geht mir darum, man könnte seine Musik online, unterwegs überall streamen oder evtl. auch im WLAN downloaden und im 3G einfach offline hören und somit das ganze Google Music wieder vergessen.

5. Bessere Formatierung Übernahme Funktion
Momentan kann man ja schon seine docx, xlsx etc. Files konvertieren, aber machen würde ich es nie, weil nachher die ganze Formatierung im Eimer ist.

6. Abspeichern von Anhängen aus Gmail in Google Drive
Es gibt zwar schon eine Alternative Chrome Erweiterung, aber wäre trotzdem ganz nett. Wenn man seine Gmailanhänge direkt da ablegen könnte.

7. Einbindung als Laufwerk
Was ich auch ganz nützlich finden würde, wäre die Funktion den Google Drive als Laufwerk einbinden zu können.

8. App: Sofortsync im WLAN
Damit man nicht jedes File downloaden muss könnte man auch alle Files wenn man im WLAN ist downloaden lassen und dann ohne Wartezeit nutzen.

Kommentiert doch eure Vorschläge wie Google Drive besser sein könnte…

Lansweeper Report: Computers over 5 years old

Posted on by
Reply

In dieser neuen Rubrik werde ich neu Reports/Scripts etc. posten die ich selbst im Lansweeper erarbeitet oder gefunden habe und nun einsetzte posten.

Den Anfang mache ich mit einem Report der alle PCs ausgibt die älter sind als 5 Jahre, also abgeschrieben sind und ersetzt werden sollten. (Wichtig: Geht von der letzten Installation des Betriebssystems aus, also nicht das Feld Purchase Date, da wir das nicht nutzten)

SELECT Top 1000000 tblComputers.Computername, tblComputers.ComputerUnique,
  tblComputers.Domain, Web40OSName.OSname, Web40OSName.Compimage AS icon,
  tblOperatingsystem.InstallDate
FROM tblComputers INNER JOIN
  web40ActiveComputers ON tblComputers.Computername =
    web40ActiveComputers.Computername INNER JOIN
  Web40OSName ON Web40OSName.Computername = tblComputers.Computername INNER JOIN
  tblOperatingsystem ON tblComputers.Computername =
    tblOperatingsystem.Computername
WHERE tblOperatingsystem.InstallDate < DateAdd(day, -1825, GetDate())
ORDER BY tblOperatingsystem.InstallDate DESC, dbo.tblComputers.Computer

Feedback

Posted on by
Reply

Hey alle

Ich führe ja nun den Blog eine kurze Weile. Gerne würde ich besser werden, die Seite optimieren, angenehmer machen…

Dazu brauche ich euch!
Was passt euch momentan nicht an der Seite oder an meinen Artikeln?
Schreibt direkt hier in die Kommentare, was gut oder was schlecht ist.

Danke euch allen schon im Voraus

Dienste verwalten mit VBS

Posted on by
Reply

Kleine Hilfen um Dienste zu verwalten via VBS:

Passwort des hinterlegten Benutzers ändern

Wechselt das Passwort für alle Dienste die den Benutzer Netsvc nutzten.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service")
For Each objservice in colServiceList
    If objService.Startname = ".\netsvc" Then
        errReturn = objService.Change( , , , , , , , "password")
    End If
Next

 

Manuelle Dienste die gestartet sind automatisieren

Definiert bei allen Manuellen Diensten die gerade laufen dass Sie von nun an automatisch starten sollten.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
 ("Select * from Win32_Service Where State = 'Running' and StartMode = " _
     & "'Manual'")
For Each objService in colListOfServices
    objService.ChangeStartMode("Automatic")
Next

 

Automatische Dienste (die nicht laufen) starten

Startet alle Dienste die den Status beendet haben aber Automatisch starten sollten.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
 ("Select * from Win32_Service Where State = 'Stopped' and StartMode = " _
     & "'Auto'")
For Each objService in colListOfServices
    objService.StartService()
Next

 

Dienst und die abhängigen Dienste davon starten

Startet den NetDDE Dienst und alle abhängigen Dienste.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name='NetDDE'")
For each objService in colServiceList
    errReturn = objService.StartService()
Next
Wscript.Sleep 20000
Set colServiceList = objWMIService.ExecQuery("Associators of " _
   & "{Win32_Service.Name='NetDDE'} Where " _
        & "AssocClass=Win32_DependentService " & "Role=Dependent" )
For each objService in colServiceList
    objService.StartService()
Next

 

Dienst und alle abhängigen Dienste stoppen

Stoppt den NetDDE Dienst und alle abhängigen Dienste.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " _
   & "{Win32_Service.Name='NetDDE'} Where " _
        & "AssocClass=Win32_DependentService " & "Role=Antecedent" )
For each objService in colServiceList
    objService.StopService()
Next
Wscript.Sleep 20000
Set colServiceList = objWMIService.ExecQuery _
        ("Select * from Win32_Service where Name='NetDDE'")
For each objService in colServiceList
    errReturn = objService.StopService()
Next

Quellen:
http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/services/#StartService.htm
http://myitforum.com/cs2/blogs/dhite/archive/2008/07/06/vbs-script-to-set-a-service-start-mode-to-automatic-and-start-it.aspx