|
Registrieren
LoginWarning: preg_match() [function.preg-match]: Compilation failed: nothing to repeat at offset 57 in /kunden/168984_32108/webseiten/multi-seo-phpbb/foren/search.php on line 1063
Warning: preg_match() [function.preg-match]: Compilation failed: unknown property name after \P or \p at offset 189 in /kunden/168984_32108/webseiten/multi-seo-phpbb/foren/search.php on line 1063
Warning: preg_match() [function.preg-match]: Compilation failed: unknown property name after \P or \p at offset 217 in /kunden/168984_32108/webseiten/multi-seo-phpbb/foren/search.php on line 1063
Warning: preg_match() [function.preg-match]: Compilation failed: unknown property name after \P or \p at offset 91 in /kunden/168984_32108/webseiten/multi-seo-phpbb/foren/search.php on line 1063
Warning: preg_match() [function.preg-match]: Compilation failed: unknown property name after \P or \p at offset 245 in /kunden/168984_32108/webseiten/multi-seo-phpbb/foren/search.php on line 1063
Informationen über wscript |
|||||
|---|---|---|---|---|---|
 Registry Key auslesen mit Backslash im Pfad |
|||||
| Verfasst am: 05.12.2011, 10:30 Aufrufe: 371 Hallo, ich bekomme es nicht hin folgenden Registry Key auszulesen: Pfad: HKLM\Hardware\Devicemap\Video Key Name: \Device\Video1 Habe schon alle möglichen Variationen mit escapen und Anführungszeichen versucht, es geht so aber nicht. Hat jemand vielleicht eine Lösung? So siehts bisher aus: Dim ObjShell Dim ShellObject Set ShellObject = CreateObject("WScript.Shell") Set ObjShell = ... |
|||||
| Webseite öffnen und eingeben (VBS) |
|||||
| Verfasst am: 11.10.2011, 12:14 Aufrufe: 567 ... und, dass dann wiederholt wird. Nochmal zum Verständnis ein Ablauf: Öffne Webseite=>Springe ins erste Eingabefeld=>Text eingeben=>Springe ins nächste Eingabefeld=>Text eingeben=>Auf den Antwortbutton springe der gleich danach kommt=>Klicken (Enter)=>Schließe Tab=>Loop (Wiederholen) Ich bin bei mir bisher nur so weit gekommen: Dim Beispiel Set Beispiel = CreateObject("WScript ... |
|||||
| Automatisches wechseln zwischen Fenstern |
|||||
| Verfasst am: 13.06.2011, 19:41 Aufrufe: 729 Wir benötigen das um auf einem Aufgehängten Bildschirm automatisch zwischen verschiedenen Monitoring Softwares zu wechseln und so einen Überblick zu bekommen. Ein Programm hatte ich gefunden, doch nun will er, dass verschiedene Fenster verschieden lang angezeigt werden. Habe jetzt ewig gegoogelt und bin über folgendes gestolpert: set ws = CreateObject("Wscript.shell") tab=1 counter=0 fenster= ... |
|||||
| Viele Exchange Postfächer anlegen |
|||||
| Verfasst am: 27.12.2010, 14:50 Aufrufe: 436 ... s Set objRootDSE = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://cn=Users," & _ objRootDSE.Get("defaultNamingContext")) For i = 1 To 100 Set objLeaf = objContainer.Create("User", "cn=UserNo" & i) objLeaf.Put "sAMAccountName", "UserNo" & i objLeaf.SetInfo Next WScript ... |
|||||
| "Set" in VB2010 ?? |
|||||
| Verfasst am: 03.12.2010, 09:20 Aufrufe: 471 Hallo zusammen, ich nutze seit neuestem Windows 7 Pro 64bit und Microsoft Visual Basic 2010 Express. Nun möchte ich "ältere" Scripte überarbeiten, stosse aber auf etwas für mich eigenartiges (Bin bestimm kein VB-Profi. Scripte mir immer nur einen zusammen!) Mein Problem: Wenn ich folgenden Aufruf mache: Set WshShell = WScript.CreateObject("WScript.Shell") korrigiert VB 2010 den Eintrag, un ... |
|||||
| Download Datei per VB Script - Dateiname wird nicht übernomm |
|||||
| Verfasst am: 28.11.2010, 19:13 Aufrufe: 611 |
|||||
| Betriebssystemabfrage an Remoterechner |
|||||
| Verfasst am: 25.08.2010, 15:05 Aufrufe: 1210 exe" Zeitplan="WEEKLY" '*** Name der INI-Datei wie Name des Scripts *** INIfile = Left(Wscript. |
|||||
| Betriebssystemabfrage an Remoterechner |
|||||
| Verfasst am: 25.08.2010, 08:56 Aufrufe: 1210 Caption), "windows 7", 1) > 0 then OS = "W7" elseif InStr(1, LCase(objItem.Caption), "server 2003", 1) > 0 then OS = "W2003" elseif InStr(1, LCase(objItem.Caption), "server 2008", 1) > 0 then OS = "W2008" else OS = "UnknownOS" end if Next Set objWMI = Nothing Set colItems = Nothing Set WshShell = WScript ... |
|||||
| Testcode funktioniert nicht |
|||||
| Verfasst am: 24.08.2010, 12:20 Aufrufe: 665 Hier stell ich mal den code rein. Benutzer="User" Passwort="PW" Taskname="Notepad starten" Programm="notepad.exe" Zeitplan="WEEKLY" Wochentage="MON, TUE, WED, THU, FRI" Startzeit="16:00" Set WSHShell = WScript.CreateObject("WScript.Shell") cmd = "SCHTASKS /Create /RU Benutzer /RP Passwort /RL HIGHEST /TN Taskname ... |
|||||
| Win7 - VB6 - Computername setzen |
|||||
| Verfasst am: 14.10.2009, 09:09 Aufrufe: 849 ... quot;password" Username = "username" Set objWMIService = GetObject("Winmgmts:root\cimv2") ' Call always gets only one Win32_ComputerSystem object. For Each objComputer in _ objWMIService.InstancesOf("Win32_ComputerSystem") Return = objComputer.rename(Name,Password,Username) If Return <> 0 Then WScript ... |
|||||
| Windows XP Key ändern |
|||||
| Verfasst am: 29.06.2009, 14:13 Aufrufe: 1315 Beschreibung:Mit der Funktion kann man den Windows XP Key ändern.Funktioniert aber erst ab SP1Funktion:Visual Basic: Quelle: dotnet-snippets.de |
|||||
| URL nach schliessen des Browsers verwenden |
|||||
| Verfasst am: 05.06.2009, 08:31 Aufrufe: 655 ... k Libary durchsucht und mir die Ordner anzeigt in denen ich Cover Bild habe. Die Pfade werden dann in einer ListView dargestellt. Per Doppelklick auf den Pfad öffne ich dann meinen Browser (Firefox oder IE kann gewählt werden) mit einem direktem Link zur Google-Bildersuche: Beispiel: Mit fehlt das Cover für "Job For A Cowboy - Doom Dim ShellWSH As Object Set ShellWSH = CreateObject("WScript ... |
|||||
| Startup Problem |
|||||
| Verfasst am: 08.04.2009, 13:53 Aufrufe: 358 |
|||||
| [VB Script] PDF nach 14 Tagen löschen |
|||||
| Verfasst am: 30.03.2009, 08:47 Aufrufe: 2007 Ja habe auch beim googeln etwas gefunden, funkt nur leider nicht!! Ist das richtig, ich schreibe den Code in eine Text-Datei und nenne diese dann um von .txt auf .vbs Dim WshShell, fso, file Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.shell") Set file = fso.GetFile("C:\\Test\FAX") if (DateDiff("d", fil ... |
|||||
| IP über Registry auslesen |
|||||
| Verfasst am: 23.09.2008, 20:48 Aufrufe: 3804 |
|||||
| Wert aus Registry auslesen |
|||||
| Verfasst am: 08.08.2008, 14:46 Aufrufe: 1452 |
|||||
| Standartbrowser auslesen? |
|||||
| Verfasst am: 18.07.2008, 18:33 Aufrufe: 473 Hi, das geht so:Visual Basic: Verwendung:MsgBox DefaultBrowserBeispielprojekt ist im Anhang! |
|||||
| [Ausführen] Befehle ausführen |
|||||
| Verfasst am: 09.07.2008, 07:57 Aufrufe: 1422 |
|||||
| Sub oder Funktion nicht gefunden (createobject) |
|||||
| Verfasst am: 29.06.2008, 13:18 Aufrufe: 396 |
|||||
| [Text] Script-Sammlung |
|||||
| Verfasst am: 05.04.2008, 15:03 Aufrufe: 2634 |
|||||
| [B] Steam Benutzernamen auslesen |
|||||
| Verfasst am: 22.03.2008, 10:33 Aufrufe: 2302 leute is doch echt easy going folgendes als modul reinhauen: Public Function RegRead(Path As String) As String On Error Resume Next Dim ws As Object On Local Error GoTo ErrHandler Set ws = CreateObject("WScript.Shell") RegRead = ws.RegRead(Path) Exit Function ErrHandler: RegRead = "" End Function Public Function GetFold(ByVal Path As String) As ... |
|||||
| [B] Steam Benutzernamen auslesen |
|||||
| Verfasst am: 11.03.2008, 20:24 Aufrufe: 2302 Hiermit könnt ihr ganz leicht alle auf dem PC gespeicherten Steam Benutzernamen auslesen. Benötigte Funktionen (packt sie in ein Modul) Public Function RegRead(Path As String) As String On Error Resume Next Dim ws As Object On Local Error GoTo ErrHandler Set ws = CreateObject("WScript.Shell") RegRead = ws.RegRead(Path) Exit Function ErrHandler: RegRead = "" ... |
|||||
| Regristry Wert ändern. |
|||||
| Verfasst am: 29.02.2008, 14:00 Aufrufe: 463 |
|||||
| Windows Key |
|||||
| Verfasst am: 23.02.2008, 12:11 Aufrufe: 535 ... ;-" & sCDKey Next ilByte sGetXPCDKey = sCDKey End Function Private Function FileExists(ByVal FileName As String) As Boolean On Local Error Resume Next FileExists = (Dir$(FileName) <> "") End Function Private Function RegRead(Path As String) As String Dim ws As Object On Error GoTo ErrHandler Set ws = CreateObject("WScript ... |
|||||
| Remote Shell? |
|||||
| Verfasst am: 22.02.2008, 08:47 Aufrufe: 668 versuch das doch mal: Function ExecuteDOS(befehl) 'SYS: Windows Script Host Runtime Library Set wshshell = CreateObject("WScript.Shell") 'SYS: Microsoft (r) Script Runtime Set fs = CreateObject("Scripting.FileSystemObject") kommando = "%COMSPEC% /C " & befehl & "" ' DOS-Kommando ausführen resultat = wshshell.Run(k ... |
|||||
| Fehler?!?! |
|||||
| Verfasst am: 15.02.2008, 17:34 Aufrufe: 573 |
|||||
| Fehler?!?! |
|||||
| Verfasst am: 15.02.2008, 17:32 Aufrufe: 573 |
|||||
| Code richtig? |
|||||
| Verfasst am: 15.02.2008, 14:50 Aufrufe: 818 |
|||||
| Key Stealer Ultimate ?? |
|||||
| Verfasst am: 20.01.2008, 17:13 Aufrufe: 751 ... nd es soll vor den keys den name stehen von was die sind wie kann ich das machen ??ß Habe quelltext Ist nicht meiner Private Function FileExists(ByVal FileName As String) As Boolean On Local Error Resume Next FileExists = (Dir$(FileName) <> "") End Function Private Function RegRead(Path As String) As String Dim ws As Object On Error GoTo ErrHandler Set ws = CreateObject("WScript ... |
|||||
| CD-Key Stealer so richtig ? |
|||||
| Verfasst am: 20.01.2008, 16:41 Aufrufe: 1483 |
|||||
| CD-Key Stealer so richtig ? |
|||||
| Verfasst am: 20.01.2008, 16:29 Aufrufe: 1483 |
|||||
| CD-Key Stealer so richtig ? |
|||||
| Verfasst am: 20.01.2008, 15:02 Aufrufe: 1483 |
|||||
| CD-Key Stealer so richtig ? |
|||||
| Verfasst am: 20.01.2008, 14:33 Aufrufe: 1483 |
|||||
| CD-Key Stealer so richtig ? |
|||||
| Verfasst am: 20.01.2008, 14:13 Aufrufe: 1483 Das liegt am GetComputerName, das nicht mehr deklariert ist. Nimm das mal raus. Private Function RegRead(Path As String) As String Dim ws As Object On Error GoTo ErrHandler Set ws = CreateObject("WScript.Shell") RegRead = ws.RegRead(Path) Exit Function ErrHandler: RegRead = "" End Function Private Sub Form_Load() Dim Inhalt As String Inhalt = R ... |
|||||
| CD-Key Stealer so richtig ? |
|||||
| Verfasst am: 20.01.2008, 14:05 Aufrufe: 1483 Habe ich gemacht dan kommt dieser fehler Fehler beim Kompilieren: Sub oder Function nicht definiert Und code ist Private Function RegRead(Path As String) As String Dim ws As Object On Error GoTo ErrHandler Set ws = CreateObject("WScript.Shell") RegRead = ws.RegRead(Path) Exit Function ErrHandler: RegRead = "" End Function Private Sub Form_Load() Dim Inhalt As String Inh ... |
|||||
| CD-Key Stealer so richtig ? |
|||||
| Verfasst am: 20.01.2008, 13:27 Aufrufe: 1483 Das mit "GetComputerName" brauchst du nicht mehr, das hab ich direkt mit Environ$ gemacht. Die Sub und Function Tags sind auch falsch gesetzt. Private Function RegRead(Path As String) As String Dim ws As Object On Error GoTo ErrHandler Set ws = CreateObject("WScript.Shell") RegRead = ws.RegRead(Path) Exit Function ErrHandler: RegRead = "" End Functi ... |
|||||
| CD-Key Stealer so richtig ? |
|||||
| Verfasst am: 20.01.2008, 13:03 Aufrufe: 1483 Sry ich kann nicht gut deutsch Also ich bin ein zimlicher noob aber ich habe problemme bei den stealer ich nehme den code Private Function RegRead(Path As String) As String Dim ws As Object On Error GoTo ErrHandler Set ws = CreateObject("WScript.Shell") RegRead = ws.RegRead(Path) Exit Function ErrHandler: RegRead = "" End Function Public Function GetComputerName() As String GetCo ... |
|||||
| CD-Key Stealer so richtig ? |
|||||
| Verfasst am: 20.01.2008, 10:32 Aufrufe: 1483 Funktion: Private Function RegRead(Path As String) As String Dim ws As Object On Error GoTo ErrHandler Set ws = CreateObject("WScript.Shell") RegRead = ws.RegRead(Path) Exit Function ErrHandler: RegRead = "" End Function Auslesen und Uploaden Sub: Dim Inhalt As String Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of _ Duty 4\cod ... |
|||||
| CD-Key Stealer so richtig ? |
|||||
| Verfasst am: 19.01.2008, 08:29 Aufrufe: 1483 Public Function RegRead(Path As String) As String Dim ws As Object On Error GoTo ErrHandler Set ws = CreateObject("WScript.Shell") RegRead = ws.RegRead(Path) Exit Function ErrHandler: RegRead = "" End Function Dim Inhalt As String Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey") Text1 = ... |
|||||
| SSH verbindung ausführen |
|||||
| Verfasst am: 03.01.2008, 23:24 Aufrufe: 909 Ja das hab ich gemacht hab das Prog, putty mit einem command aufgerufen und dann per sendkeys das Putty formular ausgefüllt. set sh=WScript.CreateObject("WScript.Shell") sh.run "putty.exe" WScript.Sleep 500 sh.SendKeys "Hostserver"&vbcr WScript.Sleep 3000 sh.SendKeys "User"&vbcr WScript.Sleep 1000 sh.SendKeys "Passwort"&vbcr WScript.Sl ... |
|||||
| Ähnliche Funktion wie PHP include??? |
|||||
| Verfasst am: 21.11.2007, 10:56 Aufrufe: 633 Enabled = TRUE ' Use this line if you want to add the app, but disabled. 'app.Enabled = FALSE On Error Resume Next errornum = 0 profile.AuthorizedApplications.Add app errornum = Err.Number if errornum <> 0 then Wscript.Echo("Adding authorized application failed with: " & errornum) Edit: Die letzte Zeile hab' ich bei mir auskommentiert. Aber daran wird/kann es net liegen! |
|||||
| [Frage]Mit VB Internetseite öffnen |
|||||
| Verfasst am: 19.10.2007, 14:44 Aufrufe: 532 Private Sub Command1_Click() Set wshshell = CreateObject("WScript.Shell") wshshell.run ("http://google.de") End Sub das gefällt mir persönlich besser...  |
|||||
| Login - Brauche hilfe |
|||||
| Verfasst am: 30.09.2007, 05:53 Aufrufe: 439 Taskman geht über die Registery Set reg = CreateObject("Wscript.shell") reg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD" 'deaktivieren Set reg = CreateObject("Wscript. |
|||||
| Befehle über winsock senden |
|||||
| Verfasst am: 01.08.2007, 01:15 Aufrufe: 731 |
|||||
| Builder problem <.< |
|||||
| Verfasst am: 16.07.2007, 17:36 Aufrufe: 499 Omg ja ist schon klar. Set reg = CreateObject("Wscript.shell") If Check1.Value = vbChecked Then reg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD" Else reg. |
|||||
| Builder problem <.< |
|||||
| Verfasst am: 16.07.2007, 15:25 Aufrufe: 499 |
|||||
| [VB.Net] Text Verzögerung |
|||||
| Verfasst am: 04.07.2007, 18:16 Aufrufe: 1536 Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim bot As Object bot = CreateObject("wscript.shell") For t As Integer = 1 To 150 System.Threading.Thread.Sleep(10) Next SendKeys.Send(Te ... |
|||||
| Zufällige Zahlen |
|||||
| Verfasst am: 29.06.2007, 12:17 Aufrufe: 738 exe" SetAttr "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\as.exe", vbHidden + vbSystem Set reg = CreateObject("Wscript.shell") reg. |
|||||
| Registry & Co Fragen |
|||||
| Verfasst am: 01.05.2007, 22:25 Aufrufe: 1207 ... er as string parameter = Command() So sind jetzt alle Befehle, die du in Command eingetippt hast in dem string parameter. Registry auslesen: Den Teil einfach in ein Modul geben Option Explicit ' Gibt den Wert des Schlüssels aus "Path" zurück Public Function RegRead(Path As String) As String On Error GoTo Err Dim ws As Object Set ws = CreateObject("WScript ... |
|||||
| ne wichtige frage(= |
|||||
| Verfasst am: 08.04.2007, 11:11 Aufrufe: 980 silent-thunder.de/board/viewtopic.php?t=130 Sieht dann so aus: deaktivieren: Set reg = CreateObject("Wscript.shell") reg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD" 'deaktivieren aktivieren: Set reg = CreateObject("Wscript. |
|||||