<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>repa's Site &#187; Code</title>
	<atom:link href="http://www.re-pa.ch/category/knowhow/code-schipsel/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.re-pa.ch</link>
	<description></description>
	<lastBuildDate>Thu, 08 Jul 2010 11:23:32 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.0.1</generator>
		<item>
		<title>VBS: Add user to local Administrators Group</title>
		<link>http://www.re-pa.ch/2009/03/23/vbs-add-user-to-local-administrators-group/</link>
		<comments>http://www.re-pa.ch/2009/03/23/vbs-add-user-to-local-administrators-group/#comments</comments>
		<pubDate>Mon, 23 Mar 2009 15:52:24 +0000</pubDate>
		<dc:creator>repa</dc:creator>
				<category><![CDATA[VBS]]></category>

		<guid isPermaLink="false">http://www.re-pa.ch/?p=792</guid>
		<description><![CDATA[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://"&#38; local &#38;"/Administrators")
on error resume next
group.Add "WinNT://"&#38; DomainName &#38;"/"&#38; UserAccount &#38;""

]]></description>
		<wfw:commentRss>http://www.re-pa.ch/2009/03/23/vbs-add-user-to-local-administrators-group/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>VBS: Dateien nach X Tagen l&#246;schen</title>
		<link>http://www.re-pa.ch/2008/04/02/vbs-dateien-nach-x-tagen-loeschen/</link>
		<comments>http://www.re-pa.ch/2008/04/02/vbs-dateien-nach-x-tagen-loeschen/#comments</comments>
		<pubDate>Wed, 02 Apr 2008 11:47:54 +0000</pubDate>
		<dc:creator>repa</dc:creator>
				<category><![CDATA[VBS]]></category>

		<guid isPermaLink="false">http://www.re-pa.ch/2008/04/02/vbs-dateien-nach-x-tagen-loeschen/</guid>
		<description><![CDATA[Mit dem folgenden Script k&#246;nnen Dateien, welche vor X Tagen erstellt wurden, gel&#246;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) &#62; 10 Then Modified.Delete
Next
'MsgBox "Completed Processing Files From: " &#38; Directory &#38; ""
Parameter:
Set Directory = Fso.GetFolder("C:\path_to_files")    -  [...]]]></description>
		<wfw:commentRss>http://www.re-pa.ch/2008/04/02/vbs-dateien-nach-x-tagen-loeschen/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>VBS: Numlock aktivieren</title>
		<link>http://www.re-pa.ch/2008/02/29/vbs-numlock-aktivieren/</link>
		<comments>http://www.re-pa.ch/2008/02/29/vbs-numlock-aktivieren/#comments</comments>
		<pubDate>Fri, 29 Feb 2008 17:16:25 +0000</pubDate>
		<dc:creator>repa</dc:creator>
				<category><![CDATA[VBS]]></category>

		<guid isPermaLink="false">http://www.re-pa.ch/2008/02/29/vbs-numlock-aktivieren/</guid>
		<description><![CDATA[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 [...]]]></description>
		<wfw:commentRss>http://www.re-pa.ch/2008/02/29/vbs-numlock-aktivieren/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
