NIM

Nice post cygnus.. First of all, meaning of this forum is just as you said to help each other. It's very hard to enchain people to a new forum when there isn't much posts which could be useful to others. That's way I started with tutorials, tips and tricks threads which could help us draw some attention. In time I will put google ads and hope that with those funds I'll be able to cover site and board expenses. Until then, I have a lot of posting to do

I have changed the whole forum skin instead, takes less time and it looks better

'Changes Windows NT clients from using static IP address's to use DHCP. Could be called from the logon script. Combined with the use of the SU utility this could be added to a logon script to perform a hands off migration. 'All variables declared Option Explicit Dim oWSHShell Dim sNIC, sMan Dim iCount Set oWSHShell = Wscript.CreateObject("Wscript.Shell") ' Set the DCHP service to autostart oWSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\DHCP\Start", 2 ' Get Network card On Error Resume Next iCount = 1 Do sNIC = oWSHShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\" & iCount & "\ServiceName") sMan = oWSHShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\" & iCount & "\Manufacturer") ' Skip the Async and NDIS services If sMan <> "Microsoft" And Err.Number = 0 Then Call SetNIC End If iCount = iCount + 1 Loop Until Err.Number <> 0 ' Clear the error Err.Clear ' End of Script Sub SetNIC Dim iTest ' Set the NIC service to use DHCP sNIC = "HKLM\SYSTEM\CurrentControlSet\Services\" & sNIC &"\Parameters\TCPIP\" iTest = oWSHShell.RegRead(sNIC & "EnableDHCP") If iTest = 0 Then oWSHShell.RegWrite sNIC & "EnableDHCP", 1, "REG_DWORD" oWSHShell.RegWrite sNIC & "IPAddress", "0.0.0.0", "REG_MULTI_SZ" oWSHShell.RegWrite sNIC & "SubnetMask", "0.0.0.0", "REG_MULTI_SZ" End If End Sub

DomainName = InputBox("Enter domain name") ServerName = InputBox("Enter server name") ShareName = InputBox("Enter share name to be deleted") Set cont = GetObject("WinNT://"& DomainName &"/"& ServerName &"/LanmanServer,FileService") cont.Delete "FileShare", ""& ShareName &""

Dim oFSO, oFolder, oFiles, oFile Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder("C:\TEST") Set oFiles = oFolder.Files for each oFile in oFiles if oFile.DateLastModified > DateAdd("d", -14, Now()) then if MsgBox("Delete " & oFile.Path, vbYesNo) = vbYes then ' Omit 'True' in the next line if ReadOnly should be respected oFile.Delete True end if end if next

decNum = Inputbox("Enter the Decimal Value you want to convert:") hexNum = hex(decNum) MsgBox "Decimal Value You Entered: " & decNum & vbCRLF & "Hex Value Conversion: " & hexNum

Dim Container Dim ContainerName Dim User Dim NewUser ContainerName = InputBox("Enter the Domain Name:") Newuser = InputBox("Enter the new user name:") Set Container = GetObject("WinNT://" & ContainerName) Set User = Container.Create("User", NewUser) User.SetInfo

DomainName = InputBox("Enter domain name") ServerName = InputBox("Enter server name") ShareName = InputBox("Enter share name to be created") PathName = InputBox("Enter the full path of the new share") Set cont = GetObject("WinNT://"& DomainName &"/"& ServerName &"/LanmanServer,FileService") Set fs = cont.Create("FileShare", ""& ShareName &"") fs.Path = ""& PathName &"" fs.MaxUserCount = -1 fs.SetInfo

If err.number = 0 Then Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CreateTextFile "c:\MSO2000.TXT" Else End if

Set fso = CreateObject("Scripting.FileSystemObject") fso.copyFile "c:\mytext.txt" , "c:\temp\"

Dim UserName Dim UserDomain UserDomain = InputBox("Enter the user's login domain name") UserName = InputBox("Enter the user's login name") Set User = GetObject("WinNT://"& UserDomain &"/"& UserName &"",user) Dim NewPassword NewPassword = InputBox("Enter new password") Call User.SetPassword(NewPassword) If err.number = 0 Then Wscript.Echo "The password change was successful." Else Wscript.Echo "The password change failed!" End if

Set SNSet = GetObject("winmgmts:").InstancesOf ("Win32_BIOS") for each SN in SNSet MsgBox "The serial number for this PC is: " & SN.SerialNumber Next

Set SNSet = GetObject("winmgmts:").InstancesOf ("Win32_BIOS") for each SN in SNSet Wscript.Echo "BIOS Manufacturer of this computer is: " & SN.Manufacturer Wscript.Echo "BIOS Version of this computer is: " & SN.Version Wscript.Echo "BIOS Version date of this computer is: " & SN.ReleaseDate Wscript.Echo "SMBIOS Version of this computer is: " & SN.SMBIOSBIOSVersion Next

Dim p p = InputBox("Enter the network path to the printer you want to install:", "Add Printer", "\\Server\PrinterName") If p <> "" Then Dim cmd cmd = "rundll32 printui,PrintUIEntry /in /n" & p WScript.CreateObject("WScript.Shell").Run cmd End If

UserName = InputBox("Enter the user's login name that you want to unlock:") DomainName = InputBox("Enter the domain name in which the user account exists:") Set UserObj = GetObject("WinNT://"& DomainName &"/"& UserName &"") If UserObj.IsAccountLocked = -1 then UserObj.IsAccountLocked = 0 UserObj.SetInfo If err.number = 0 Then Wscript.Echo "The Account Unlock Failed. Check that the account is, in fact, locked-out." Else Wscript.Echo "The Account Unlock was Successful" End if

Option Explicit Dim NetworkAdapter, AdapterConfiguration 'Objects Dim IPAddress, SubnetMask, Gateway, DNS 'String Arrays Dim RetVal 'Integers For Each NetworkAdapter In GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapter") If NetworkAdapter.AdapterType = "Ethernet 802.3" Then For Each AdapterConfiguration In GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration") If UCase(AdapterConfiguration.ServiceName) = UCase(NetworkAdapter.ServiceName) Then IPAddress = Array("192.168.0.10") SubnetMask = Array("255.255.255.0") Gateway = Array("192.168.0.1") DNS = Array("35.8.2.41") RetVal = AdapterConfiguration.EnableStatic(IPAddress, SubnetMask) If Not RetVal = 0 Then WScript.Echo "Failure assigning IP/Subnetmask." End If RetVal = AdapterConfiguration.SetGateways(Gateway) If Not RetVal = 0 Then WScript.Echo "Failure assigning Gateway." End If RetVal = AdapterConfiguration.SetDnsServerSearchOrder(DNS) If Not RetVal = 0 Then WScript.Echo "Failure assinging DNS search order." End If End If Next End If Next

This guide will show how to launch an application with Administrative rights under a limited user account. This is very useful for people who want to use Limited User accounts but have some apps/games that do not work native in this environment. All you need is AutoIT (free) and the following code. Create a txt file and put this (make changes as necessary) inside: CODE ; Set the RunAs parameters to use local adminstrator account ; Run program as admin ; Reset user's permissions RunAsSet("username", "computername", "password") RunWait("C:\Program Files\Path\To.exe") RunAsSet() rename this file runas.au3 Now were just going to compile this as an exe so others cannot get the administrator password. Run Aut2Exe For Source choose the au3 file you just created. For Destiniation choose a name for the exe to be created. (Optional) Choose an Icon for the exe. Uncheck decompilation Finish by hitting Convert to create the exe! Easy Right!? The Secondary Logon service must be running! You can always manually run/(un)install programs while a Limited User by right clicking on a file and selecting runas. The administrator account needs to have a password for this to work. You can extract the icon from any file using XN Resource Editor (free/standalone). [TWEAK] Hide the Administrator Account on the XP Logon Screen. You can logon as Administrator by switching to the classic logon by hitting Ctrl+Alt+Del twice at the xp logon screen. CODE Windows Registry Editor Version 5.00[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList]"Administrator"=dword:00000000

Full specifications for 3Com Firewall PCI Card with 10/100 LAN - firewall Manufacturer: 3Com Corp. Part number: 3CRFW200B NetworkingData link protocol Ethernet, Fast Ethernet Data transfer rate 100 Mbps Features DHCP support, BOOTP support Networking standards IEEE 802.2, IEEE 802.3, IEEE 802.1Q, IEEE 802.3U GeneralDepth 5.3 in Width 2.1 in Software / System RequirementsOperating system Linux 2.4, Microsoft Windows 98, Microsoft Windows XP, Microsoft Windows 2000, Red Hat Linux 7.3 - 9.0, Microsoft Windows Server 2003, Microsoft Windows 98 Second Edition, Microsoft Windows NT 4.0 SP3 or later

LOL wow vs gw , nice video Click

As expected, Intel is dominating I wonder what answer AMD will have to offer, it seems that AMD has cut down it's processor prices and probably already working on the processor which would put Intel on it's knees :lol:

Pictures are irrelevant here mate, great tut !!

One has been a star for some time now, while the other is rising to stardom. The AMD Athlon 64 FX-62 and the Intel Core 2 Extreme are ready to duke it out for honors as the fastest of all x86 systems. Let's get on with our contest, and pitch the old champion against a new one. In this battle, performance is the only thing that counts. We'll explore the upper bounds of thermal stability for both of these top-of-the-line CPUs with standard retail components, the Intel versions of which have just hit store shelves. This occurred on July 24, the very same day that AMD introduced massive price cuts. Some of the tests: Performance comparison between both overclocked systems: the fastest x86 processors available in today's marketplace. ----------------------- Full tuning test can be found on Tom's Hardware Site

When you're through with this tutorial you'll have a picture like this: First we will create a document in pixels: 400x200. Type the text what you want on the doc, i used the font Arial for this, once you have done this, Duplicate the text layer (CTRL+J) and then CTRL+T to resize it and make it just abit bigger than the first layer and put it below the first text layer. You should have this: Select the first layer and do these blending effects: You should now have something like this: Go back to the other layer which is underneath the first layer and set the Opacity to 30. Repeat the same blending options as the first layer which are: Finally, you should get this:

Really nice tutorial, you're really quick

Here is the list of all Windows Key Combinations, I hope you'll find it usefull... This article lists keyboard shortcuts you can use with Windows. Windows system key combinations