-BOG-_Zero

Nö eigentlich nicht einfach in die Domäne bringen fertig

Tach welche Version von Vista hast du? Willst du Vista in eine Domäne bringen? Wenn du Vista in eine Domäne bringen willst geht dies erst ab Business und Ultimate sprich wenn du Home Basic oder Home Premium hast musst du upgraden . Home Basic und Premium haben auch nicht direkt den Administrator Account den kann man aber mit einem Trick sich holen. Ich habe eine Server 2003 und Ultimate und keine Probleme mit meiner Domäne

Hallo, ich soll herausfinden welche Prgramme alle auf einem Server 2008 laufen zu folgenden konnte ich noch nichts finden. - Skype Bei Skype habe ich ein Workaround gefunden gibt es keine Version die läuft? - Trillian - StarMoney Business 3.0 - DPD Delisprint weiß jemand ob irgendwas nicht läuft oder läuft? Danke

Hi Leute habs hinbekommen falls wer braucht: Option Explicit ' Flags for the options parameter Const BIF_returnonlyfsdirs = &H0001 Const BIF_dontgobelowdomain = &H0002 Const BIF_statustext = &H0004 Const BIF_returnfsancestors = &H0008 Const BIF_editbox = &H0010 Const BIF_validate = &H0020 Const BIF_browseforcomputer = &H1000 Const BIF_browseforprinter = &H2000 Const BIF_browseincludefiles = &H4000 Dim file, FSO, Verzeichnis, UnterVerzeichnis, Datei, Eingabe, Dateimb, Ordnermb, shell, AuswahlTitel, StartOrdner Set FSO = CreateObject ("Scripting.FileSystemObject") file = BrowseForFolder( _ "Select a file or folder to copy", _ BIF_returnonlyfsdirs + BIF_browseincludefiles, _ "") If file = "-5" Then WScript.Echo "Sie können kein Hauptverzeichnis auswählen" Else If file = "-1" Then WScript.Echo "Kein Objekt ausgewählt"+ vbcrlf + vbcrlf + "Hinweiß: Sie können nicht das Hauptverzeichnis(C:) durchsuchen!" Else Set Verzeichnis = FSO.GetFolder(file) Wscript.Echo vbcrlf Wscript.Echo vbcrlf Wscript.Echo "Ausgewählter Ordner: "+file WScript.Echo vbcrlf + "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" + vbcrlf + "Dateien:" + vbcrlf For Each Datei In Verzeichnis.Files Dateimb = Datei.Size/1024 WScript.Echo Datei.Name + " | " & Dateimb & " KB" Next WScript.Echo vbcrlf + "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" + vbcrlf + "Ordner:" + vbcrlf For Each Unterverzeichnis In Verzeichnis.SubFolders Ordnermb= Unterverzeichnis.Size/1048576 WScript.Echo Unterverzeichnis.Name + " | " & Ordnermb & " MB" Next WScript.Echo "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" Wscript.Stdin.Readline End If End If ' Using the shell's BrowseForFolder method to ' return the full path to the selected object ' title = Text shown in the dialog box ' flag = One of the values for controlling the ' BrowseForFolder behavior ' dir = Preselected directory (can be "") Function BrowseForFolder(title, flag, dir) On Error Resume Next Dim oShell, oItem, tmp ' Create WshShell object. Set oShell = WScript.CreateObject("Shell.Application") ' Invoke Browse For Folder dialog box. Set oItem = oShell.BrowseForFolder(&H0, title, flag, dir) If Err.Number <> 0 Then If Err.Number = 5 Then BrowseForFolder= "-5" Err.Clear Set oShell = Nothing Set oItem = Nothing Exit Function End If End If ' Now we try to retrieve the full path. BrowseForFolder = oItem.ParentFolder.ParseName(oItem.Title).Path ' Handling: Cancel button and selecting a drive If Err<> 0 Then If Err.Number = 424 Then ' Handle Cancel button. BrowseForFolder = "-1" Else Err.Clear ' Handle situation in which user selects a drive. ' Extract drive letter from the title--first search ' for a colon (. tmp = InStr(1, oItem.Title, ":") If tmp > 0 Then ' A : is found; use two ' characters and add \. BrowseForFolder = _ Mid(oItem.Title, (tmp - 1), 2) & "\" End If End If End If Set oShell = Nothing Set oItem = Nothing On Error GoTo 0 End Function

Hi Amstelchen ich habe jetzt was gefunden was mir schon ein bisschen weiter geholfen hat. Habe jetzt meine open file dialog box. vielleicht hatte ich mich auch falsch ausgedrückt. Starte das Skript mal dann siehst du was ich meine mit open file dialog box. HAbe jetzt nur das Prolbem das ich den Ordner auswählen kann aber die Box mir nur den Ordner Namen zurück gibt und nicht den kompletten Pfad. Hast du das vlt. eine Idee wie ich den kompletten Pfad bekomme? Zum Skript selber es soll ein Pfad ausgewählt und alle Dateien und Ordern die in diesem Pfad vorhanden sind sollen dann ausgegeben werden die Datei sollen mit KB und die Ordern mit MB ausgegeben werden. Skript: Option Explicit Dim FSO, Verzeichnis, UnterVerzeichnis, Datei, Eingabe, Dateimb, Ordnermb, shell, AuswahlTitel, StartOrdner set shell = CreateObject("Shell.Application") AuswahlTitel = "Ordner auswählen" StartOrdner = "C:\" Set Eingabe = shell.BrowseForFolder(0,AuswahlTitel, 16384,StartOrdner) Wscript.Echo Eingabe Wscript.Stdin.Readline Set FSO = CreateObject ("Scripting.FileSystemObject") Set Verzeichnis = FSO.GetFolder(Eingabe) WScript.Echo vbcrlf + "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" + vbcrlf + "Dateien:" + vbcrlf For Each Datei In Verzeichnis.Files Dateimb = Datei.Size/1024 WScript.Echo Datei.Name + " | " & Dateimb & " KB" Next WScript.Echo vbcrlf + "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" + vbcrlf + "Ordner:" + vbcrlf For Each Unterverzeichnis In Verzeichnis.SubFolders Ordnermb= Unterverzeichnis.Size/1048576 WScript.Echo Unterverzeichnis.Name + " | " & Ordnermb & " MB" Next WScript.Echo "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" Wscript.Stdin.Readline

Hallo Leute, meine erste frage ist ob es probleme mit VBS und Vista gibt ist euch das was bekannt? Zu meiner Programmier frage. Wie kann ich das Open File Dialog Box in meinen Script integrieren so das ich nicht den Pfad manuell eintippen sondern mir den Pfad klicken kann? Im englischen heißt das open file dialog box nur leider ist mein englisch nicht mehr so gut :old

Hallo Leute kennt einer den befehl wie ich eine button in die inoutbox einbaue? und vlt. dann noch am besten den Durchsuchen Button ?

hmm gibt es das echt nicht? Ich habe Skript geschrieben welches mir ausgibt welche Dateien mit Größe und welche Ordner mit Größe ausgibt. Ich möchte jetzt die Größe ganz rehcts im in der Konsole haben. Mit Leerzeichen kann man dies nicht machen da die Namen ja immer unterschiedlich lang sind.

Hallo ich möchte bei einem Skript eine Variable immer gan rechts ausgeben lassen. Welchen befehl muss ich dafür benutzen? thx für schnelle Antworten

hab es doch mit formatnumber hinbekommen hatte zuerst falsche parameter übergeben hier das skript: wie es funktioniert: Option Explicit Dim FSO, Verzeichnis, UnterVerzeichnis, Datei, Eingabe Eingabe = InputBox("Bitte geben Sie den Ordnerpfad an" + vbcrlf + vbcrlf + vbcrlf + vbcrlf + "Beispiel:" + vbcrlf + "C:\Users\Andre\Desktop" , "Ordner auslesen Beta 1 ||| powered by IT2Go") Set FSO = CreateObject ("Scripting.FileSystemObject") Set Verzeichnis = FSO.GetFolder(Eingabe) WScript.Echo vbcrlf + "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" + vbcrlf + "Dateien:" + vbcrlf For Each Datei In Verzeichnis.Files WScript.Echo Datei.Name + " | " & FormatNumber(Datei.Size,0,-2,-2,-1) & " bytes" Next WScript.Echo vbcrlf + "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" + vbcrlf + "Ordner:" + vbcrlf For Each Unterverzeichnis In Verzeichnis.SubFolders WScript.Echo Unterverzeichnis.Name + " | " & FormatNumber(Unterverzeichnis.Size,0,-2,-2,-1) & " bytes" Next WScript.Echo "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" Wscript.Stdin.Readline

danke für deine hilfe ich habe es mal mit FormatNumber ausprobiert funktioniert aber nicht. Ich glaube es liegt daran das Unterverzeichnis.Size und Datei.Size nicht einfach so formatieren kann oder?

Hi Leute kann mit jemand sagen wie ich Zahlen formatieren kann in VBS oder hat vlt. jemand eine andere Lösung? Es geht um das unten stehende Skript. Die Datei.Size und Unterverzeichnis.Size werden jeweils in Bytes angezeigt d.h. wenn ich einen großen Ordner oder Datei haben ist diese schwer zu entziffern wie groß diese ist. Kann mir da jemand weiterhelfen? Ich suche noch im Netz weiter und im meinem schlauen Buch Hier das Skript: Option Explicit Dim FSO, Verzeichnis, UnterVerzeichnis, Datei, Eingabe Eingabe = InputBox("Bitte geben Sie den Ordnerpfad an" + vbcrlf + "Bsp. C:\Users\Andre\Desktop" , "Ordner auslesen Beta 1 ||| ") Set FSO = CreateObject ("Scripting.FileSystemObject") Set Verzeichnis = FSO.GetFolder(Eingabe) WScript.Echo "-- Dateien:" For Each Datei In Verzeichnis.Files WScript.Echo Datei.Name + " " & Datei.Size Next WScript.Echo "-- Ordner:" For Each Unterverzeichnis In Verzeichnis.SubFolders WScript.Echo Unterverzeichnis.Name + " " & Unterverzeichnis.Size Next Wscript.Stdin.Readline Für Programmier Verbesserungen bin ich dankbar. Fang gerade an VBS zu Programmieren

Danke Jungs:):) Funst jetzt mit 123 wenn es interrresiert oder vlt. weiterhilft hier das fertige Skript: Option Explicit Dim Name(6), FSO, I, Namen Name(1) = "Hans" Name(2) = "Peter" Name(3) = "Otto" For I=1 to 3 Namen=Name(I) Set FSO= CreateObject("Scripting.FileSystemObject") FSO.CreateFolder(Namen) Next

Hallo Leute kann mir jemand verraten warum das "I" hier immer um zwei erhöht wird? anstatt 123456? ist nämlich doof so funktioniert zwar das skript aber ist trotzdem sch.... Skript: Option Explicit Dim Name(6), FSO, I, Namen Name(2) = "Hans" Name(4) = "Peter" Name(6) = "Otto" For I=0 to 4 I=I+1 Namen=Name(1+I) Set FSO= CreateObject("Scripting.FileSystemObject") WScript.Echo I FSO.CreateFolder(Namen) Next

Ich habe nur mal irgendwo gehört das MS die Daten sich holt die irgendwo auf einem Server von MS abgleicht und wenn diese unstimmig sind wird das Vista deaktiviert bzw. dann muss man es neu aktivieren. Habe jetzt was gefunden das die Hardware in Punkte aufgeteillt werden Bsp. Mainboard 11 Punkte, Festplatte+SN 10 Punkte, Graka 2 Punkte, Netzwerkarte 2 Punkte und das man halt mindestens 26 Punkte haben muss wenn man irgend eine Hardware ändert werden diese abgezogen z.B. ich habe 34 Punkte im Rechner wechsel dann mein Mainboard so komme ich unter die 26 Punkte und muss VIsta neu aktivieren wenn ich aber nur die Netzwerkkarte ändere werden nur 2 Punkte angezogen und ich habe noch 32 und muss VIsta nicht neu aktivieren. Nur werden die Daten auf dem PC gespeichert oder auf einem MS-Server?

Hallo Leute, kann mit jemand verraten mit Quelle wie sich Windows aktiviert oder erkennt das neue Hardware erkannt wurde. Wird da was an Windows gesendet? Oder wird das alles im Rechner gespeichert und irgendwie in ein ID geschrieben? mfg André

tach auch habe mal meinenm laptop von home premium auf Ultimate upgedradet ohne problem und datenverlust. aber runter kannst du danach nicht mehr nur mit einer neuinstallation

Hat sich schon erledigt hab es mit EasyBCD gefixt bekommen

Danke jetzt kann ich wieder mit Vista arbeiten aber nicht mehr mit XP das auswahlmenü kommt am Start nicht. Ich kann nur mit Vista starten. Kann mir da auch jemand helfen?

Windows XP habe ich gestern installiert und Vista ist schon länger her. Also XP wurde später installiert. Da muss es doch aber auch eine möglichkeit geben das zu fixen oder?

Ich habe gestern abend WIn Xp auf eine Festplatte install. weil WoW auf Vista immmer ab****t aber das ist eine anderes Thema. Also ich habe auf eine Festplatte WIn Xp installiert und auf einer anderen Win Vista Ultimate installiert gehabt. Nach der Xp INstallation bekomme ich nicht das auswahlmenü ob ich Win Xp oder Win Vista booten möchte. Wo kann ich das einstellen das ich Vista booten kann? Win Xp ist installiert auf einer IDE Platte und Vista auf eine SATA ist auch im Bios eingestellt das ich beide nutzen kann also das ich IDE PLatte und SATA nutzen kann. Wenn in XP drin bin kann ich auch auf alle Daten der Vista platte zugreifen. Das ist bestimmt wieder nur ein häkchen oder so kann mir das jemand helfen? Falls noch irgendwas fehlt einfach fragen

ah cool danke

Hallo Leute kann mir vlt. jemand sagen wie viel 1x Blu-Ray und 1x HD-DVD liest ich finde immer unterhschidlichewerte bitte mit Quelle angeben. Danke

Hat sich schon selbst gelöst das Problem

Hi Leute ich bins wieder nachdem mir beim letzten mal so gut weiter geholfen wurde habe ich mir überlegt ob Ihr mir auch hierbei weiterhelfen könnt. Ich will eine Text Datei erstellen die vorher von einer anderen Datei ausgelesen wurden und jetzt neu formatiert werden soll. Wenn ich eine Textdatei erstelle schreibt VBS es mir die Datei immer in eine einzelne Zeile ich aber z.B. das ich aus einem Array z.B. Array(0) dahinter das Array(8) steht was dann in der Textdatei wie folgt aussehen soll Name: Peter wobei dann Name: Array(0) ist und Peter Array(8) Danke für schnelle Antworten