d.stegemann

Hallo Christian, das könnte evtl. mit UAC zusammenhängen... Vielleicht könntest du mal die detaillierte Fehlermeldung posten? Gruß Dirk

Hallo, schau einfach mal hier.... WMI and VBScript - Stop and Start Services with Win32_Service Du kannst deine Dienste per wmi steuern. Dies wäre die Ausgangsbasis für weitere Überlegungen... Gruß Dirk

Morgen buStN, afaik geht das mit nem Script nicht.... Du kannst das aber evtl. mit einer geschmeidigen Exe lösen... Guckst du hier.. ActiveVB - VB 5/6-Tipp 0156: Mausbewegungen und Mausklicks simulieren Gruß Dirk

Hallo, das könnte evtl. ein wenig weiterhelfen.... Bspaufruf... var = Drivemapper (sUser, sPassword, sClient) Function Drivemapper(user, password, Server) Dim share, datasource, usermap, passwordmap, drivemap Dim availDRVS, availInt, CheckDrive, DriveExists, intDrive Dim Logwrite, Loginst, drivemappable, driveletter Servername = Server datatarget = "B:" availDRVS ="BFHWY" usermap = Servername &"\" & user passwordmap = password drivemap = "\\" & Servername & "\C$" intAlpha = 0 intCount = 0 Set WshNetwork = CreateObject("WScript.Network") Set CheckDrive = WshNetwork.EnumNetworkDrives() On Error Resume Next DriveExists = False Do While intCount >= 1 And intCount <= 5 And DriveExists = True DriveExists = False For intDrive = 0 To CheckDrive.Count - 1 Step 2 If CheckDrive.Item(intDrive) = datatarget _ Then DriveExists = True Next intAlpha = intAlpha + 1 datatarget = Mid(availDRVS, intAlpha,1) & ":" intCount = intCount + 1 Loop If DriveExists = False Then WshNetwork.MapNetworkDrive ""& datatarget &"", ""& drivemap &"","True",""& usermap & "",""& passwordmap &"" Drivemapper = datatarget Else End If Err.Clear Set WshNetwork = Nothing Set CheckDrive = Nothing End Function Gruß Dirk

Morgen ddimkeit, du brauchst dafür die shell und network... Das folgende geht auf jeden Fall schonmal in die richtige Richtung CIS Department > Tutorials > Windows Script Host > Using WSH to Automate Tasks > Mapping a Network Drive and Starting an Application http://dieseyer.de/dse-wsh-scr-b.html Gruß Dirk

Als kleine Ergänzung zu Frank's Weg über den WinNT Provider eine Möglichkeit das per wmi zu machen... Dim objWMIService, colItems strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_Service",,48) For Each objItem in colItems If instr(objItem.Name, "Automatisches LiveUpdate - Scheduler") > 0 Then state = objItem.State b_found = True Exit For Else End if Next If b_found Then MsgBox "Service " & objItem.Name &" state "& state Else MsgBox "Service Not found" End If Gruß Dirk

Hallo, hat ein wenig länger gedauert, aber heute hatte ich auf der Zugfahrt ein wenig Zeit... wie wärs mit folgendem... 'Abfrage für welchen Bereich gerechnet werden soll OU = Inputbox ("Geben Sie an ob es sich um ein YYY oder XXX-Projekt handelt. Mögliche Eingaben sind: YYY oder XXX") 'Auswahl Select Case UCase(OU) Case "XXX" DateRestore = InputBox ("Geben Sie das gewünschte Restoredatum im Format DD.MM.YYYY ein") Today = Date 'Jetzt müssen wir erstmal das Restoredate verschieben, wenn es sich um einen Sa oder So handelt. Select Case Weekday(Daterestore, vbSaturday) Case 2 Daterestore = DateDiff("d", 3, Daterestore) Case 1 Daterestore = DateDiff("d", 2, Daterestore) Case Else End select Diff = DateDiff ("d", DateRestore, Today) 'msgbox cDate(DateRestore) DateRandom = Today 'Initialisiere Variablen SunSaturdays = Fix(Diff/7) * 2 ' Ganze Wochen enthalten immer einen Sa + So 'MsgBox SunSaturdays &" Sa +So durch komplette Wochen" Rest_Tage = Diff Mod 7 'Wie sieht es mit Sa +So in der nicht kompletten Woche aus 'MsgBox Rest_Tage &" Tage nach Modulo" Tag_heute = Weekday(DateRandom, vbSaturday) If Rest_Tage - Tag_heute >= 0 Then SunSaturdays = SunSaturdays + 2 FinalRestoreDate = diff - SunSaturdays Text = "Bitte sichern Sie den Stand sv.nightly." & FinalRestoreDate & " zurück" MsgBox text Case "YYY" DateRestore = InputBox ("Geben Sie das gewünschte Restoredatum im Format DD.MM.YYYY ein") Today = Now DateToday = FormatDateTime (Today, vbShortDate) Diff = DateDiff ("d", DateRestore, DateToday) nightly = (Diff) Text = "Bitte sichern Sie den Stand sv.nightly." & nightly & " zurück" MsgBox Text Case Else End Select Gruß Dirk

Hallo, vbs Beispiel hier... Microsoft Corporation Gruß Dirk

Hallo, als kleiner Denkanstoß könnte das folgende dienen.... Day of Week Function Gruß Dirk

Hallo, hier ein kleiner Auszug aus dem Technet.. --schnipp -- Specifies whether dsadd disables the user account for logon. The available values are yes or no. For example, the following command creates a Nicolettep user account in an enabled state: dsadd user CN=Nicolettep,CN=Users,DC=Widgets,DC=Contoso,DC=Com -pwd Password1 -disabled no --schnapp -- hmm... zu langsam Gruß Dirk

Hallo Jens, afaik kann AutoIT Fensterheader auslesen. Gruß Dirk

Hallo, vielleicht ist dieser Link noch funktionabel... JSI Tip 4705. Freeware app installs network components from a Windows 2000 (only) command line. http://windowsitpro.com/Files/16/76011/snetcfg.zip Habe leider kein MSDN. Daher auch keine Chance das zu kompilieren :-( Gruß Dirk

Hallo HPurger, ich kann seehas da nur vollkommen zustimmen... Wenn du Richtung CRM, MOSS oder so gehen möchtest wäre aber SQL besser ;-) Gruß Dirk

Reserviert schonmal ein Plätzchen für mich... Diesmal klappts.(Hoffentlich) Und den Pokal für die weiteste Anreise werde ich dann wohl auch bekommen ;-) Gruß Dirk

Hallo Marco, ich denke, dieses kleine Schnippselchen sollte den gewünschten Erfolg bringen... str_startfolder = "c:\test" str_inputfile = str_startfolder & "\namen.txt" subfolders = "offerten, rechnungen" arr_subfolders_to_create = Split(subfolders, ",") Set oFSO = CreateObject("Scripting.FileSystemObject") If oFSO.FileExists(str_inputfile) Then Set foldername_reader = oFSO.OpenTextFile(str_inputfile) Do Until foldername_reader.AtEndOfStream folder_create = str_startfolder & "\" & foldername_reader.ReadLine If Not oFSO.FolderExists(folder_create) Then oFSO.CreateFolder(folder_create) For x = LBound(arr_subfolders_to_create) To UBound(arr_subfolders_to_create) Step 1 If Not oFSO.FolderExists(folder_create & "\" & arr_subfolders_to_create(x)) Then oFSO.CreateFolder(folder_create & "\" & arr_subfolders_to_create(x)) End If Next Loop Else MsgBox "Kein Inputfile vorhanden" End If In str_startfolder ist das startverzeichnis anzugeben. Der Einfacheit halber muss die Datei namen.txt im startverzeichnis sein. subfolders enthält die zu kreierenden Unterverzeichnisse. Brauchst du noch mehr Verzeichnisse einfach hinten mit einem Komma getrennt dran... Gruß Dirk

Hallo Christian, bei mir ist schon ein wenig her (Januar) und gemacht hab ich sie in Englisch. Ich hatte in den Sims eher was zu Verwaltung (Trigger, Index, Rollen oder schauen welches Statement das korrekte ist) also nicht in Richtung Proggen. Hoffe das hilft ein wenig. Gruß Dirk

Hallo pastors, dies könnte auch noch hilfreich sein.. Need to know how to Enable File and Printer Sharing from VB script - microsoft.public.scripting.vbscript | Google Groups Gruß Dirk

Hallo Kevin, vielleicht verstehe ich dich nicht ganz richtig, aber wie wär's mit If strUser = "X" then Set WshNetwork = Wscript.CreateObject("Wscript.Network") WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\DruckerX" end if [/Code] Gruß Dirk

Sorry, aber bei der Distanz muss ich passen... Habe ja letzte Woche ein neus Projekt begonnen... Bei mir sind das grob 648km für die Anreise. Da müßte ich ja um 9:00 am Freitag losfahren :( und dann hinterher 134 km nach Hause. Das pack ich einfach nicht. Beim nächsten Mal bin ich aber dabei. Versprochen ;) Gruß Dirk

Morgen Braintee, vielleicht hilft es, wenn du beim delete einen force mitgibst... also in der Art fso.DeleteFile(file.Path) True Ich denke die beiden Links sollten dir weiterhelfen.... In speziellen Ordnern Dateien löschen - microsoft.public.de.german.scripting.wsh | Google Groups Dateien löschen, Exception - microsoft.public.de.german.scripting.wsh | Google Groups Gruß Dirk

Ich hab diese Woche ein neues Projekt angefangen in Konstanz :)... Muss mal schauen, das ich irgendwie hinbekomme. Aber prinzipiell ist das K2 schon OK, auch wenn ich Raucher bin. Gruß Dirk

Vor allem dieses: Green Hills Software INTEGRITY-178B Separation Kernel, comprising: INTEGRITY-178B Real Time Operating System (RTOS), version IN-ICR750-0101-GH01_Rel running on Compact PCI card, version CPN 944-2021-021 with PowerPC, version 750CXe sollte ja eigentlich jeder kennen :) Scheinbar eins der sichersten weltweit.

Morgen David, ich denke dieser Link könnte deine Frage beantworten... Microsoft SQL Server Support Blog : Tracking License Information in SQL 2005 Gruß Dirk

Als kleine Ausschmückung zu dippas Codeschnippsel wäre das folgende wahrscheinlich noch interessant... Ist zwar asp läßt sich aber mit wenig Aufwand passend biegen und dann mit dem Taskscheduler zeitgesteuert starten... Server.CreateObject("Wscript.Shell") - microsoft.public.scripting.wsh | Google Groups Gruß Dirk

Ich hab die Prüfung auf englisch gemacht. Aber die Fragen waren alle gut zu beantworten, wenn du die Konsole schon ein paar Mal offen hattest... Ging also nicht zu sehr in die Tiefe. (Wenn ich das noch richtig in Erinnerung habe) Gruß Dirk