Hallo Admin

Hi Claus,

zunächst mal herzlichen Dank für Deine Zuverlässigkeit 

Ich hatte mir vor Jahren das Buch "Windows Scripting - Der Einsteiger Workshop" gekauft, es dann aber aus beruflichen Gründen niemals lesen können. Jetzt habe ich soooo viel Zeit  und arbeite seit etwa 4 Wochen fast täglich mit diesem Buch. Macht so viel Spaß. Was alles möglich ist, ich hätt`s nie gedacht.

Na jedenfalls wird in diesem Buch noch der System Scripter 5.0 beschrieben. Unter anderem gab es hier die Möglichkeit den Scriptkopf (Bei 6.0: Region Description) mit persönlichen Daten auzufüllen und das Script dann unter %Userprofile%\Anwendungsdateien\SystemScripter\template.vbs zu speichern. Bei jedem neuen Script wurde dieser Scriptkopf dann lt. Buch automatisch eingefügt.

Da sagst Du mir aber was mit der automatischen Variablendeklaration Habe mir jetzt ne Lizenz für den 6.0 gekauft (dachte, der muss ja besser sein als 5.0) falsch gedacht

Powershell hab ich schon gehört und aktuell auch auf meinem Rechner. Habe mich damit aber noch nicht beschäftigt weil mir der Kopf zur Zeit von den ganzen vbs-Befehlen qualmt. Wenn die Powershell der Nachfolger von vbs ist, war meine Arbeit die letzten Wochen etwa umsonst? Oder kann ich meine Scripts auch in der Powershell nutzen?

Gruß Tom

Hallo,

wollte mich mal erkundigen, ob es mittlerweile die automatische Variablendeklaration im SystemScripter 6.0 gibt? Habe hier einige Einträge gesehen, dass diese Automatik im SC 6.0 noch nicht intigriert ist. Aber das war im Jahr 2006.

Außerdem bin ich noch auf der Suche nach dem automatischen Skriptkopf. Kann mir bitte jemand helfen?

Freundliche Grüße

Tom

Hallo Claus,

mein Beispiel mit dem Notepad war ein wenig unüberlegt  Natürlich ist Deine Lösung für Eingaben im Notepad die Sinnvollste. Ich möchte mit meinem Script das Programm O&O Defrag fernsteuern. Hierfür müssen einige Angaben im Prog gemacht werden und anschließend wird der Rechner defragmentiert. Durch eine eingefügte Batch-Datei schließt O&O nach der Defragmentierung automatisch. Erst dann soll das Script mit der nächsten Zeile fortfahren (nämlich den Dienst beenden) Aktuell sieht mein Script so aus:

' Const
Const BEFEHL = """c:\program files\oo software\defrag\oodcnt.exe"""

' EndConst

Set WshShell = WScript.CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer _
& "\root\cimv2:win32_service.name='OODefragAgent'")
objWMIService.StartService
DienstInfo = objWMIService.StartServic
If DienstInfo = 10 Then
     Set WshShell = CreateObject("WScript.Shell")
     Set oExec = WshShell.Exec(BEFEHL)
End If

WScript.Sleep 5000

'Suche noch eine Möglichkeit das Script solange zu                                                              pausieren, bis das Programm vollständig geladen ist.

If oExec.Status = 0 Then
   WshShell.SendKeys "{F10}"
   WScript.Sleep 500
   WshShell.SendKeys "{B}"
   WScript.Sleep 500
   WshShell.SendKeys "{A 2}"
   WScript.Sleep 500
   WshShell.SendKeys "Scriptdefragmetierung"
   WScript.Sleep 500
   WshShell.SendKeys "{Tab 7}"
   WScript.Sleep 500
   WshShell.SendKeys "{Right}"
   WScript.Sleep 500
   WshShell.SendKeys "{Tab 4}"
   WScript.Sleep 500
   Stunde = Hour(Now)
   WshShell.SendKeys Stunde
   WScript.Sleep 500
   WshShell.SendKeys "{right}"
   Minut = Minute(Now) + 1
   WScript.Sleep 500
   WshShell.SendKeys Minut
   WScript.Sleep 500
   WshShell.SendKeys "{Tab 5}"
   WScript.Sleep 500
   WshShell.SendKeys "{right}"
   WScript.Sleep 500
   WshShell.SendKeys "{Tab}"
   WScript.Sleep 500
   WshShell.SendKeys "{Down}"
   MsgBox "bitte unterhalb von Methode auf deaktiviert (links) klicken und dieses Fenster    schließen" , vbSystemModal
   WScript.Sleep 500
   WshShell.SendKeys "{tab 8}"
   WScript.Sleep 500
   WshShell.SendKeys "{right 4}"
   WScript.Sleep 500
   WshShell.SendKeys "{tab}"
   WScript.Sleep 500
   WshShell.SendKeys " "
   WScript.Sleep 500
   WshShell.SendKeys "{Enter}"
   WScript.Sleep 500
   WshShell.SendKeys "{tab}"
   WScript.Sleep 500
   WshShell.SendKeys "@echo off"
   WshShell.SendKeys "{enter}"
   WshShell.SendKeys "echo."
   WshShell.SendKeys "{enter}"
   WshShell.SendKeys "echo Text"
   WshShell.SendKeys "{enter}"
   WshShell.SendKeys "echo."
   WshShell.SendKeys "{enter}"
   WshShell.SendKeys "taskkill /IM oodcnt.exe"
   WScript.Sleep 500
   WshShell.SendKeys "{Tab}"
   WScript.Sleep 500
   WshShell.SendKeys "{Enter}" 
End If
Set objWMI = GetObject("winmgmts:")
Do Until oExec.Status = 1
    WScript.Sleep 2000
Loop
objWMIService.StopService

Es klappt soweit recht gut. Aber vielleicht gibt es hier und da noch Möglichkeiten Verbesserungen vorzunehmen? Insbesondere soll das Script warten, bis das Programm vollständig geladen ist.

Das Programm Autoit kannte ich bis jetzt noch gar nicht. Habe mich schonmal kurz informiert und denke, dass es sehr gut sein muss. Vielen Dank für diesen heißen Tip 

Wünsche schonmal einen erholsamen 1. Advent und sende viele Grüße

Tom

Habe das Problem nun mit einer Do...Loop Schleife gelöst:

Const Befehl = """%programfiles%\Notepad.exe"""
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(BEFEHL)
WshShell.SendKeys "Mein Script soll erst Aufgaben im Programm ausführen und dann warten bis es geschlossen ist."
Do Until oExec.Status = 1
    WScript.Sleep 2000
Loop

Das mit dem Notepad ist nur ein Beispiel. Das ganze möchte ich für ein Defragmetierungsprogramm nutzen und durch SendKeys eine neue Aufgabe erstellen. So klappt es sehr gut. Allerdings sollte das Script am Anfang warten, bis das Programm komplett gestartet ist. Mit if oExec.Status = 0 then... klappt es leider nicht. Hat hier vielleicht jemand eine Idee wie ich das realisieren kann?

Vielen Dank und freundliche Grüße

Tom

Hallo liebe Scripter,

mein Name ist Tom und bin ganz neu hier. Habe mir kürzlich den SystemScripter installiert (tolles Programm ) und bin seitdem kräftig am scripten...

Klappte bis hierher auch wunderbar und der Ordner füllt sich 

Nun bin ich aber auf ein Problem gestoßen, welches ich einfach nicht lösen kann:

Beispiel:

Editor = WshShell.run ("Notepad.exe", , true)      'wartet bis Notepad.exe geschlossen ist  

MSGBOX "Editor ist geschlossen"                      'nachdem Notepad.exe geschlossen wurde

Allerdings soll mein Script auch noch Eingaben im Editor machen:

Editor = WshShell.run ("Notepad.exe")

WshShell.SendKeys "Mein Script soll erst Aufgaben im Programm ausführen und dann warten bis es geschlossen ist."    

MSGBOX "Editor ist geschlossen"    

Freundliche Grüße

Tom

Guten Morgen,

zur Lösung der Aufgabe "Den Inhalt der Zwischenablage auslesen und in einer Msgbox darstellen" fand isch irgendwann 'mal irgendwo im www folgendes Scirptbeispiel:

set fs = createobject("htmlfile")
inhalt = fs.parentwindow.clipboarddata.getdata("text")
msgbox inhalt

Nur funktioniert die Sache nicht (selbstverständlich ist mir bekannt, daß Msgboxen natürlich nur Texte begrenzter Zeichenkettenlänge darstellen können). So trug ich versuchsweise in den normalen 'Notepad' (OS = Win XP Professional) einfach irgendein Wort, z. B. Testtext ein und brachte die paar Bytes mit [Strg + a]; [Strg + c] in die Zwischenablage. Sie waren auch tatsächlich dort (ließ sich durch erneutes Öffnen von notepad und [Strg + v] nachweisen) - jedoch, die Msgbox im obigen Beispiel bleibt immer leer. Eine Fehlermeldung des WSH tritt nicht auf.

Generelle Frage:
Wenn in der Zwischenablage irgendwelche Texte oder sonstige Daten gespeichert sind, wie ruft man diese in vbs ab, um sie z. B. in eine andere, neu zu bildendende Datei "fso.opentextfile(C:\...\"....")  ... write ..." einzuschreiben oder sonstwas damit zu machen, Arrays zu füllen (oder eben auch nur das obige Msgbox-Datstellungsbeispiel zum Laufen zu bringen)?

Gibt es ferner eine Möglichkeit, mit einem vbs-Befehel den Inhalt des "Clipboard" zu löschen, ähnlich wie man das mit (Tastenfolge) [Win + r]; clipbrd; {ENTER}; {Entf}; {Bestätigungsfrage mit j beantworten} vornehmen kann?

Beste Grüße und einen schönen Sonntag noch,
Susy

Description :

Identificateur de paramètres régionaux: 1036

Das müsste klappen mit einem sekundären Kommandozeileninterpreter, dessen Ein/Ausgabe kannst Du mit > und < umleiten:

objShell.run Chr(34) & "%COMSPEC% & chr(34) & " /c {Dein Programm + IO Umleitungen}"

Set objShell = CreateObject("WScript.Shell")

objShell.Run ("cat < c:\test\test_dos.txt > c:\test\test_ux.txt"),,True

'objShell.exec "c:\cmd\dos2unix.exe" & " < " & "c:\test\test_dos.txt " & " > " &" c:\test\test_ux.txt"

Ohhhhhh, habe den Fehler gefunden:

newace.AceFlags = ADS_ACEFLAG_INHERIT_ACE ' = 3

Diese Zeile fehlte....

Hallo.

Ich kann keine Benutzerrechte auf ein Verzeichnis setzen, auf eine Datei klappt sofort. Mein Code:

' Konstanten
Const ADS_PATH_FILE = 1

Const ADS_SD_FORMAT_IID = 1

Const ADS_ACETYPE_ACCESS_ALLOWED = 0

testOrdner = "D:\Test"

' ACEs auslesen, also alle User und Userrechte auslesen
Set IADsSecurityUtility = CreateObject("ADsSecurityUtility")
Set SD = IADsSecurityUtility.GetSecurityDescriptor(testOrdner, ADS_PATH_FILE, ADS_SD_FORMAT_IID)

Set DACL = SD.DiscretionaryACL

' neue ACE anlegen
Set newace = CreateObject("AccessControlEntry")
newace.AccessMask = -1 'FULLACCESS
newace.AceType = ADS_ACETYPE_ACCESS_ALLOWED
newace.Trustee = "hier kommt der neue Benutzername hin"
' neue ACE in DACL einfügen
DACL.AddAce newace

' zurückschreiben
' irgendwas fehlt aber noch
' User wird angelegt, Rechte sind aber leer!
retval = IADsSecurityUtility.SetSecurityDescriptor(testOrdner, ADS_PATH_FILE, SD, ADS_SD_FORMAT_IID)
MsgBox "Rechte geändert"

Der schon vorhandene Foreneintrag im ADSI (Benutzerrechte auf bestimmte Verzeichnisse) hilft mir hier nicht weiter.

Hat jemand eine Idee/Vorschlag ....

arPrinter(x,0) = objRecordSet.Fields.Item("IP")
arPrinter(x,1) = objRecordSet.Fields.Item("Modell")
arPrinter(x,2) = objRecordSet.Fields.Item("Standort")
arPrinter(x,3) = objRecordSet.Fields.Item("Etage")
arPrinter(x,4) = objRecordSet.Fields.Item("Raum")

x = x + 1
objRecordSet.MoveNext

Set objRecip = objUser

bIsFound = False

vProxyAddresses = objRecip.ProxyAddresses

nProxyAddresses = UBound(vProxyAddresses)

i = 0

Do While i <= nProxyAddresses

If vProxyAddresses(i) = sProxy Then

bIsFound = True

Exit Do

End If

i = i + 1

Loop

If Not bIsFound Then

ReDim Preserve vProxyAddresses(nProxyAddresses + 1)

vProxyAddresses(nProxyAddresses + 1) = sProxy

objRecip.ProxyAddresses = vProxyAddresses

objUser.SetInfo

End If

End Function