TFEA38
-
Gesamte Inhalte
34 -
Registriert seit
-
Letzter Besuch
Beiträge erstellt von TFEA38
-
-
Hi, ich hab hier ne w2k-Kiste mit Problemen.
Nach dem ich das Board wechseln musste hab ich viele doppelte Geräte z.B." Bus-Master IDE Controller" etc. im Gerätemanager und jeweils einer davon ist mit dem Ausrufezeichen versehen.
Hab schon viel probiert z.B. das doppelte Gerät zu löschen oder sogar beide Einträge entfernt. Leider hat es nichts gebracht.
Nach einem Reboot sind wieder die doppelten Einträge vorhanden.
Weiss jemand Rat?
Viele Grüße
Thomas
-
Der Script-Host hat grundsätlich nur das Modul Wscript zur Verfügung:
z.B. Wscript.echo "ich lerne vb"
Wenn du nun Zugriff auf Informationen des ADS benötigst (wie z.B. Computernamen) musst du das Modul erst "einklinken" In diesem Fall:
Set wshnet = CreateObject("WScript.Network").
Gleiches gilt für Wscript.Shell
Im WSH ist alles Modularaufgebaut, damit nach Einbindung einer anderen Scriptsprache z.B. Java (jscript.dll) diese auch auf die Module zugreifen können und nicht das Rad zweimal erfinden müssen.
Wenn du mehr lernen willst empfehle ich dir das Buch:
Windows Scripting - Der Einsteiger-Workshop von Tobias Weltner, kostet 25 Euronen.
Grüße
Thomas
-
Hi Blade,
Dim Meldung
Set wshnet = CreateObject("WScript.Network")
Meldung = "Rechnername: " & wshnet.ComputerName
' hier muss noch die Variable für die IP hin die kenn ich aber nicht
Abfrage = MsgBox (Meldung, vbYesNoCancel + vbInformation + vbDefaultButton1 + vbApplicationModal)
If Abfrage = vbCancel Then
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.PopUp " . . . Abbruch durch Dummkopf!", , WScript.Scriptname
' WSHShell ist kein Grundmodul von Wscript und muss deshalb erst mit Set definiert werden
WSCript.Quit ' WScript.Quit beendet das Script
ElseIf Abfrage = vbYes Then
msgbox "Yes funktioniert!"
Else
MsgBox "Aendern"
End If
Grüße
Thomas
-
Hey ich hab´s!!!!
so klappts:
Rechnertyp = InputBox(MsgInput, "Blabla")
Dim Meldung
Meldung = " " & Rechnertyp
MsgBox Meldung, vbYesNoCancel + vbInformation + vbDefaultButton1 + vbApplicationModal
Ich hoffe diesmal hilfts dir
Grüße
Thomas
-
Hey ich hab´s!!!!
so klappts:
Rechnertyp = InputBox(MsgInput, "Blabla")
Dim Meldung
Meldung = " " & Rechnertyp
MsgBox Meldung, vbYesNoCancel + vbInformation + vbDefaultButton1 + vbApplicationModal
Ich hoffe diesmal hilfts dir
Grüße
Thomas
-
Hey ich hab´s!!!!
so klappts:
Rechnertyp = InputBox(MsgInput, "Blabla")
Dim Meldung
Meldung = " " & Rechnertyp
MsgBox Meldung, vbYesNoCancel + vbInformation + vbDefaultButton1 + vbApplicationModal
Ich hoffe diesmal hilfts dir
Grüße
Thomas
-
Rechnertyp = InputBox(MsgInput, "Blabla")
wscript.echo Rechnertyp
kombinere doch mal diese Methode mit deinem Script!
Grüße
Thomas
-
Meldung = msgbox("Rechnertyp", vbYesNoCancel + vbInformation + vbDefaultButton1 + vbApplicationModal, "Rechnertyp")
probiers mal so!
Grüße
Thomas
-
Hi Blade..
vieleicht meinst du dass hier:
Du kannst den Tekt als auch den Zustand als Variable definieren und in dein Script einbauen.., darüber hinaus kannst du mit einer if funktion Bedingungen für die Schaltflächen einbauen....
vorangegangener Code...
..................................................................
msg = "Kurzbeschreibung:" & vbCr & "Dieses Programm startet bllablaa." & vbCr & vbCr & "Möchten Sie die Quelldatei (Zip-Datei) jetzt angeben?"
antwort = MsgBox(msg, vbYesNo + vbQuestion+ vbDefaultButton1, "Zentrum für bla")
if antwort = vbNo then
MsgBox "Mit OK beenden Sie das Programm !", vbExclamation, "Zentrum für bla"
WScript.Quit
end If
................................................................................
weiterer Code.....
Grüße
Thomas
-
Lade Dir mal diesen Helpfile runter
http://www.neusob.de/scripting/scripting.chm
Unter der Prämisse "Helferlein" kannst Du dir Input und Messageboxen erstellen, der Code wird dann angezeigt und du kannst ihn in dein Script kopieren.
Für Anfänger ziemlich genial wie ich finde (bin nämlich selber einer)
Grüße
Thomas
-
Hallo,
ich habe ein kleines Problem:
diese kleine Script liest mir Informationen aus einem Logfile aus.
Allerdings versuche ich es so hinzubiegen, dass es nur die letzten zwei Zeilen ausliest.
weis jemand wie ich das anstellen muss?
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Asst\Debug\15.log", _
ForReading)
Do While objTextFile.AtEndOfStream <> True
strLinetoParse = objTextFile.ReadLine
dtmEventDate = Mid(strLinetoParse, 1, 6)
dtmEventTime = Mid(strLinetoParse, 7, 9)
strEventDescription = Mid(strLinetoParse, 16)
Wscript.Echo "Date: " & dtmEventDate
Wscript.Echo "Time: " & dtmEventTime
Wscript.Echo "Description: " & strEventDescription & VbCrLf
Loop
objFSO.Close
Der Hammer wäre wenn man mir noch zeigt, wie ich es anstellen muss, dass es den Dateinamen (hier 15.log) selber wählt und zwar die höchste Zahl die im Verzeichnis vorliegt (dadurch wäre gewährleistet, das das jüngste logfile ausgewertet wird).
Thomas
-
Oh man, danke Thorgood,
es ist noch zu früh am Morgen:
Wenn ich filespec als Variable definiere sollte ich nicht erwarten dass es funktioniert wenn ich an anderer Stelle Import verwende.
Danke
nun klappts
Ich schätze für mich muss noch eine spezielle intelligente scriptsprache entworfen werden :)
Grüße
Thomas
-
Hallo Thorgood,
danke für deine Hilfe, leider klappts immer noch nicht.
Mit folgender Datei bekomme ich immer den "Else Fall" ausgegeben, egal ob die Datei vorhanden ist oder nicht.
filespec = "c:\His\Export\import.bat"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(import)) Then
wscript.echo "File wird importiert"
Else
wscript.echo "Die von Ihnen angegebene Datei existiert nicht"
End If
Grüße
Thomas
-
Hallo Ernst007,
schau mal unter diesem Link nach,
allerdings würde ich dir auch davon abraten, es sei denn es ist eh nur ne daddel-Kiste.
Bei einem Produktiv-Sserver würde ich das nicht machen.
Das größte Problem dürfte der Chipsatz machen, Der wird nicht erkannt und es kommt ein Bluescreen mit der meldung - Inaccessible Boot Device -.
Es gibt ein paar Tricks dies zu umgehen indem du deinen Server vor der Imageerstellung preparierst.
Ich weiss aber nicht mehr genau wie, musste mal hinterhergoogeln.
Grüße
Thomas
http://support.microsoft.com/default.aspx?scid=kb;en-us;249694
-
Hi,
nachdem ich hier heute schon einmal Hilfe bekommen habe hoffe ich, dass das nochmal klappt:
Ich möchte in einem VB-Script u.a. die Existenz einer Datei überprüfen. Der folgende Auszug funktioniert leider nicht, ich bekomme gar keine Meldung oder Fehkler mit denen ich nix anfangen kann :-((.
Ich bin für jede Hilfe sehr dankbar:
Dim OBJ_Shell
Set OBJ_Shell = WScript.CreateObject("Wscript.Shell")
Zip = InputBox("Bitte geben Sie den Namen der Zip-Datei an" & vbCr & vbCr & "Vergewissern Sie sich, dass die Datei sich in C:\His\Export\... befindet" )
filespec = "c:\His\Export\import.bat"
'Set fso = Server.CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(import)) Then
msg = import & " exists."
Else
msg = import & " doesn't exist."
End If
Wscript.echo msg
Viele Grüße
Thomas
-
Hi Steven,
so aus der Hüfte geschossen:
Hast du mal die Bildschirmauflösung am Client PC genauer betrachtet.
Ich könnte mir vorstellen, dass die Auflösung während einer SMS-Remote-Session auf einen kleineren Wert geändert wird um die Übertragungsrate klein zu halten.
Nach beenden der Sitzung wird wieder der default Wert des Clients wieder eingestellt.
Vieleicht sind die Bilder in Excel mit der Clientauflösung nicht korrekt darstellbar aber bei einer geringeren Auflösung (SMS (Terminal)-Sitzung) passt es.
Also ich würde einfach beim PC mal mit der Auflösung und Farbtiefe rumexperimentieren :-)
Grüße
Thomas
-
Suuper,
vielen Dank flexxxen
Grüße
Thomas
-
Hallo,
hast Du mal Überlegt die Ordnerumleitung zu nutzen?
Es bringt sehr viel, den Desktop, Eigene Dateien und den Ordner Anwendungsdaten per GPO auf den Lokalen Computer umzuleiten.
Allerdings muss gerade beim Ordner Desktop die Datensicherungsstrategie berücksichtigt werden.
Grüße
Thomas
-
Hallo,
weiß irgendjemand wie ich in der letzten Zeile die Variable (Zip) angeben muss damit VbScript sie auch als Variable übernimmt?
So wie es unten aufgeführt ist, interpretiert VB die Übergabe wörtlich als Zip, obwohl in der Echo Abfrage der korrekte Wert aus der Inputbox wiedergegeben wird.
Dim OBJ_Shell
Set OBJ_Shell = WScript.CreateObject("Wscript.Shell")
Zip = InputBox("Bitte geben Sie den Namen der Zip-Datei an")
wscript.echo Zip
OBJ_Shell.run ("%SystemDrive%\HIS\Export\import.bat Zip")
Für Hilfe bin ich sehr dankbar
Thomas
-
Nutzt du die Computerkonfiguration oder die Benutzerkonfiguration?
Die Verteilung von Anmeldescripts klappen nur über die Benutzerkonfiguration.
Aber das die Datei gelöscht wird verstehe ich ja ma grad gar nit ??
Grüße
Thomas
-
Wenn ich nicht irre, setzt ein Verteilen von Scripts per Group Policie ein Active Directory, also letztlich auch einen W2k-Server oder höher voraus.
Deshalb verwirrt mich Peer to Peer ein wenig.
Falls ein AD-Server vorhanden, dann schlage ich vor, die Datei im Netlogon-Verzeichnis zu plazieren.
Grüße
Thomas
-
Hallo,
weiß jemand über ein Tool, mit dem ich Installationsvorgänge mitloggen kann.
Wichtig ist mir vor allem das ich die Veränderungen in der Registry sehe.
Mein Problem:
Mit dem neuen Citrix WebClient 8.0 flackert der Desktophintergrund in den Serverapplikationen häufig durch. Mit dem 7er Client aber nicht.
Nun versuche ich herauszufinden welche Änderung zwischen den Versionen dafür verantwortlich ist.
Bin für jeden Tipp sehr dankbar :) ,
viele Grüße
Thomas
-
Hi,
ich weiss zwar nicht genau was du meinst, aber entferne mal das Häkchen " Einfache Dateifreigabe (empfohlen) " im Arbeitsplatz unter Extras >>Ordneroptionen>>Ansicht
-
Hallo such doch im Netz mal nach dem Tool " Newgina.dll " , es ersetzt die gina.dll.
Ich meine mich zu erinnern, dass damit auch Scripts bei abmeldung möglich waren.
(Nt ist halt lange her :-)))
Grüße
Thomas
doppelte Einträge im Gerätemanager
in Windows Forum — Allgemein
Geschrieben
Hallo Patrick
ja, das Board ist ein anderes mit einem anderen Chipsatz. Vorher Intel jetzt Via.
Allerdings habe ich schon viele male Erfolg dabei gehabt, indem ich vorm Tausch die Boardtreiber zurücksetzte.
Nach dem Boardtausch erkennt 2k alles per Plug and Play und gut.....
Aber diesmal hakts halt mit dem doppelten Einträgen.
Ich verstehe nicht warum ich die nicht rausgeschmissen bekomme.
Gruß
Thomas