Antworten / Aufrufe | Themen mit dem Stichwort objwmiservice | |
---|---|---|
![]() |
8 Antworten 10182 Aufrufe |
erstelltest Sidebar Gadget wird nicht angezeigt Begonnen von zinnsoldat08468
29. November 2008, 12:38:38 ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
![]() |
3 Antworten 6318 Aufrufe |
VBS-Skript "listhotfixes.vbs" funktioniert nicht Begonnen von PC-Freak
10. Februar 2008, 19:24:58 Ich hab im Internet folgendes Skript gefunden, es listet die installierten Updates auf. aber leider funktioniert es nicht. [code] strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2") Set colQuickFixes = objWMIService.ExecQuery _ ("Select * from Win32_QuickFixEngineering") For Each objQuickFix in colQuickFixes Wscript.Echo "Computer: " & objQuickFix.CSName Wscript.Echo "Beschreibung: " & objQuickFix.Description Wscript.Echo "Hotfix ID: " & objQuickFix.HotFixID Wscript.Echo "Installationsdatum: " & objQuickFix.InstallDate Wscript.Echo "Installiert von: " & objQuickFix.InstalledBy Next [/code] Es kommt die Fehlermeldung im Anhang |
ich möchte ein Gadget für die Sidebar erstellen, und habe zum test erstmal nur ein einfaches gemacht.
Das Problem es wird nicht angezeigt, weder bei Neuinstallierte noch sonst wo.
Ich habe den Ordner Test.Gadget erstellt und in die Ordner geschoben.
C:\Users\Ich\AppData\Local\Microsoft\Windows Sidebar\Gadgets
und
C:\Program Files\Windows Sidebar\Gadgets
Meine Datein sehen so aus.
Gadget.xml
[quote]<?xml version="1.0" encoding="utf-8" ?>
<gadget>
<name>test</name>
<author>ich</author>
<copyright>2008 ich</copyright>
<description>Dieses Gadget ist ein test.</description>
<icons>
<icon>icon.png</icon>
</icons>
<version value="1.0.0.0" MinPlatformVersion="0.1"></version>
<sidebar>
<type>html</type>
<permissions>full</permissions>
<code>test.htm</code>
<website>www.test.de</website>
</sidebar>
</gadget>[/quote]
test.htm
[quote]<html>
<head>
<title>Test Gadget</title>
<style>
body{width:120;height:160}
</style>
</head>
<script language="VBScript">
Sub RunSub
strComputer = "."
Set objLocator = CreateObject("WbemScripting.SwbemLocator")
Set objWMIService = objLocator.ConnectServer(strComputer, "root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_OperatingSystem")
For Each objItem in colItems
Msgbox objItem.Caption
Next
End Sub
</script>
<body>
<input type="button" value="Run" name="run_button" onClick="RunSub">
</body>
</html>
[/quote]
und dann habe ich noch eine icon.png
Hat jemand eine Idee warum das nicht funktioniert?
Bitte helft mir.
MFG Zinni