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 &""
written by repa
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.
written by repa
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.
Download VBS Datei
written by repa
