Hope This Helps

Problem :

Der Name des Druckservers hat sich verändert und soll jetzt automatisch beim anmelden der user in den verbundenen Drucker korrigiert werden.
Getestet mit Win 2000 / XP / 7

Lösung :

Ich hab mich ran gesetzt und eine neue Version ohne speichern auf File System Ebene geschrieben.

Hier die möglichen Parameter :

-o:[Servername] or /o:[Servername] = old print server
-n:[Servername] or /n:[Servername] = new print server
-l:[Logfile] or /l:[Logfile] = create an Logfile (path:filename)
-? or /? = shows this help

replace [Servername] with the hostname / ip-adress without [ and ]

Beispielaufruf sieht dann so aus :

Move_Printer.exe -o:ALTSERVER -n:NEUSERVER -l:C:\Logfile.txt

Download Tool : Move_Printer.exe (freier Download)

Hier der download des Source Codes : Source Code (nur für registrierte Mitglieder)

Problem:
Hier noch die Ermittlung der letzten Zeile/Spalte unter VBS in Excel

Lösung:

VBS
'letzte Zeile in "A" suchen
Zeilenanzahl = objXLS.Cells(objXLS.Rows.Count, 1).End(xlUp).Row

'letzte Spalte in Zeile 1 suchen
Spaltenanzahl = LZ = objXLS.Cells(objXLS.Columns.Count, 1).End(xlUp).Column

Selbstverständlich benötigen wir hierzu noch das entsprechende Objekt und eine Excel Workbook:

'Excel-Objekt und Workbook erstellen
set objXLS = CreateObject("Excel.Application")
set objWB = objXLS.Workbooks
objWB.Add

Problem:

Man möchte den einen Fortschrittsbalken in VBS anzeigen , leider bringt VBS diese Funktion nicht mit dadurch muss man den Internet Explorer verwenden

Lösung :

North Atlanta Web Design hat eine Super Klasse dafür geschrieben, so umgeht man den Weg über HTA

hier gehts zum Code : VBS Class ProgressBar

Funktion zur Ermittlung der ungelesenen Nachrichten im Posteingang von Outlook.
Outlook muß installiert sein!
Läuft auch unter Outlook 2010.

Function unread_mails()
'Funktion zum überprüfen auf neue Mails im Ordner "Posteingang"
'In Variable "u" wird die Anzahl der ungelesenen Nachrichten übergeben

Dim unread_items, mapi, inbox, mail

Set outObj = CreateObject("Outlook.Application")

u = 0 'Zähler ungelesene Nachrichten zurücksetzen
    
Set mapi = outObj.GetNamespace("MAPI")
Set inbox = mapi.GetDefaultFolder(6) 'Zeiger auf Posteingang setzten - Posteingang = Folder(6)

For Each mail In inbox.Items 'überprüfen auf ungelesene Mails
	If mail.unread Then unread_items = unread_items + 1
Next

'Ausgabe als Msgbox
MsgBox "Sie haben " & unread_items & " ungelesene Mails in Ihrem Posteingang", vbOKOnly, "Posteingang überprüft"

End Function

Hier eine kleine Funktion die überprüft ob ein Prozess läuft oder nicht , sie baut auf VBS / WSH und WMI auf und liefert TRUE oder FALSE zurück.

Funktion :

Function CheckProcess(name)
'------------------ check for running process
	Dim ObjProcess
	Set ObjProcess = OBJWMI.ExecQuery("select * from win32_process where name='" & name & "' ")
	If ObjProcess.Count <> 0 Then
		CheckProcess = True
	Else
		CheckProcess = False
	End If
	Set ObjProcess = Nothing
End Function

diese Funktion kann z.B. so eingebunden werden

Beispiel :

Do
     BoolCkProc = CheckProcess("notepad.exe")
     WScript.Sleep 5000
Loop Until BoolCkProc = False

Benötigt wird natürlich das WMI interface

Dim StrComputer : StrComputer = "." '-- lokaler Rechner
Dim OBJWMI : Set OBJWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & StrComputer & "\root\cimv2")

Problem:
Weil ich es mir nicht merken kann...hier die Ermittlung der letzten Zeile/Spalte unter VBA in Excel

Lösung:

VBA
'letzte Zeile in "A" suchen
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

'letzte Spalte in Zeile 1 suchen
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

Quelle: schmittis-page.de: Letzte Zeile/Spalte eines Datenbereiches finden