stanley
-
Gesamte Inhalte
12 -
Registriert seit
-
Letzter Besuch
Beiträge erstellt von stanley
-
-
Die kostenfreie Version des Hyper-V kann man nun downloaden:
Erstmal nur auf Englisch, Deutsch folgt sicher die nächsten Tage
-
Wir haben das EtherConnect von T-Com.
Vorher auch über ISDN/DSL VPN und nun seid ca 1 Jahr EtherConnect.
Im großen und ganzen eine gute Entscheidung, erst einmal ein Problem mit einem der Verbindungsgeräte.
Die Standorte sind völlig transparent miteinander verbunden, daher ist das mit der direkten Verbindung schon irgendwo richtig, aber was in den Anschluß- bzw. Verteilerkästen von T-Com passiert kann ich leider auch nicht ganz genau sagen.
-
___________________________
Aus dem Portable Script Center:
--------------------------------------
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objConnection.Open "DSN=Inventory;"
objRecordset.CursorLocation = adUseClient
objRecordset.Open "SELECT * FROM Hardware" , objConnection, _
adOpenStatic, adLockOptimistic
strSearchCriteria = "ComputerName = 'WebServer'"
objRecordSet.Find strSearchCriteria
If objRecordset.EOF Then
Wscript.Echo "Record cannot be found."
Else
Wscript.Echo "Record found."
End If
objRecordset.Close
objConnection.Close
______________________
Nur mal so als Einstiegsbeispiel
-
sind die entsprechenden dienste gestartet ?
Intelligenter Hintergrundübertragungsdienst
Automatische Updates
-
Inder aktuellen C´t 14/2005 ist wieder ein kleiner Artikel, um den WSUS auch auf einem normalen Windows Xp Pro zu instaliieren.
-
oder versuche doch das "like" anders zu formulieren, so ähnlich wie in der Doku gefunden:
Const CONVERT_TO_LOCAL_TIME = True Set dtmStartDate = CreateObject("WbemScripting.SWbemDateTime") Set dtmEndDate = CreateObject("WbemScripting.SWbemDateTime") DateToCheck = CDate("1/18/2005") dtmStartDate.SetVarDate DateToCheck, CONVERT_TO_LOCAL_TIME dtmEndDate.SetVarDate DateToCheck + 1, CONVERT_TO_LOCAL_TIME ''''' Hier zu scannende Pcs eintragen arrayComputer = Array(".") Dim objFileSystem, objOutputFile Dim strOutputFile ' generate a filename base on the script name strOutputFile = "./" & Split(WScript.ScriptName, ".")(0) & ".html" Set objFileSystem = CreateObject("Scripting.fileSystemObject") Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE) objOutputFile.WriteLine("<html><body>") ownYear= DatePart ("yyyy", Now) ownMonth=DatePart("m", Now) ownday= DatePart("d", Now) ' ownDate=right("00" & ownYear, 4) & right("00" & ownMonth, 2) & right("00" & ownDay, 2) ownDate=("%2%") For Each strComputer In arrayComputer Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colDisks = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent Where (EventType=1 OR EventType=2 OR EventType=5) AND TimeWritten >= '" & dtmStartDate & "' and TimeWritten < '" & dtmEndDate & "'") objOutputFile.WriteLine(strComputer & "<br><table border=1>") For Each objDisk in colDisks objOutputFile.WriteLine("<tr><td><img src='" & objDisk.Type & ".jpg'>" & "</td><td>" & objDisk.CategoryString & "</td><td>" & objDisk.EventCode & " </td><td> " & objDisk.EventIdentifier & " </td><td> " & objDisk.Logfile & " </td><td> " & objDisk.Message & " </td><td> " & objDisk.RecordNumber & " </td><td> " & objDisk.SourceName & " </td><td> " & objDisk.TimeWritten & " </td><td> " & objDisk.User & "</td></tr>") Next objOutputFile.WriteLine("</table>") objOutputFile.WriteLine("</body></html>") objOutputFile.Close Set objFileSystem = Nothing WScript.Quit(0) Next -
Würde das per wmi machen, allerdings nur wenn du auch als admin an dem Win-XP Rechner angemeldet bist.
strComputer = "Servername"
Set objWMIService = GetObject("winmgmts:" "{impersonationLevel=impersonate,(Shutdown)}!\\" strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(1)
Next
-
Habe dir einfach mal den Code dafür reinkopiert:
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(strFileName, 1)
Inhalt = f.ReadAll
Set objEmail = CreateObject("CDO.Message")
objEmail.From = " Absender "
objEmail.To = " Empfänger "
objEmail.Subject = "USB-Secure Protokoll vom " & date & " " & neuUSB & " neue Geräte"
objEmail.Textbody = Inhalt
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "exchange"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
-
ja, das funktioniert, haben das per wmi/vbscript gelöst und per task wird das regelmäßig augerufen, einmal am Tag wird ein protokoll per Mail verschickt.
Ergebnisse werden als xml gespeichert und mit einer refrenzliste verglichen, bei abweichungen geht ebenfalls ne mail an den admin raus.
Wie schon vom Operator gesagt, die Bordmittel sind da.. :)
-
oder noch einfacher, wenn nicht grade mehr als 100 PCs:
per regedit auf remote-reg. verbinden und dann die keys importieren
-
könntest noch versuchen die *.dlls zu entfernen
regsrv32 iuctl.dll /u
iuengine.dll /u
und dann löschen
-
Versuche mal den C:\Programme\WindowsUpdate\ Ordner zu leeren !?
Microsoft Hyper-V Server 2008 Download
in Tipps & Links
Geschrieben
Ja, das stimmt, MUI bzw. deutsche Version ist nun auch da.
Habe das ganze grade am laufen und es ist tatsächlich eine sehr sehr sehr abgespeckte Version. Klar, verschenken tut MS nichts, aber grade in dem Bereich hätte man Boden gewinnen können.
Im großen und ganzen funktioniert alles, jedoch alles noch kein Grund zum Wechseln vom ESX(i).
Größtes Manko ist die fehlende lokale "MMC", und die Remote Admin-Tools gibt es eben nur für Vista.
Über zahlreiche Tools die ohne Installation laufen kann man das sicher etwas aufbohren, über einen entsprechenden RDP-Client kann man sich freilich auch lokal auf VMs verbinden aber irgendwie hatte ich mir da mehr gewünscht :)
Auf der anderen Seite wird hier sicherlich zugunsten der Stabilität eine Menge Schrott bewusst weggelassen.
Also als Teststellung auf jeden Fall noch den ein oder anderen Blick wert, als Alternative auf dem Laptop nur sehr eingeschränkt zu empfehlen (was MS wahrscheinlich auch nicht beabsichtigte)