VBS: Add user to local Administrators Group
The following Script add's a given user to the local Administrators Group:
Dim DomainName
Dim UserAccount
Set net = WScript.CreateObject("WScript.Network")
local = net.ComputerName
DomainName = "YourDomain"
UserAccount = "YourUser"
set group = GetObject("WinNT://"& local &"/Administrators")
on error resume next
group.Add "WinNT://"& DomainName &"/"& UserAccount &""
VBS: Dateien nach X Tagen löschen
Mit dem folgenden Script können Dateien, welche vor X Tagen erstellt wurden, gelöscht werden.
Dim Fso
Dim Directory
Dim Modified
Dim Files
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Directory = Fso.GetFolder("C:\path_to_files")
Set Files = Directory.Files
For Each Modified in Files
If DateDiff("D", Modified.DateLastModified, Now) > 10 Then Modified.Delete
Next
'MsgBox "Completed Processing Files From: " & Directory & ""
Parameter:
Set Directory = Fso.GetFolder("C:\path_to_files") - Pfad zum Ordner, in dem Datein gelöscht werden sollen. z.B. "C:\Logs\WWWLOGS"
If DateDiff("D", Modified.DateLastModified, Now) > 10 Then Modified.Delete - 10 = Wenn eine Datei älter als 10 Tage ist, wird diese gelöscht.
VBS: Numlock aktivieren
Mit diesem VBS Script wird die Numlock Funktion auf einem Windows System eingeschaltet.
On Error Resume Next
Dim WSHShell, n, rK, itemtype, MyBox, vbdefaultbutton
Set WSHShell = WScript.CreateObject("WScript.Shell")
rK = "HKEY_CURRENT_USER\Control Panel\Keyboard\InitialKeyboardIndicators"
itemtype = "REG_SZ"
n = WSHShell.RegRead (rK)
errnum = Err.Number
If n = 0 Then
WshShell.RegWrite rK, 2, itemtype
End If
If n = 1 Then
WshShell.RegWrite rK, 2, itemtype
End If
Der Numlock wird bei der nächsten Anmeldung aktiviert sein.