Dim strFolder Dim arrServers Dim strProfile strProfile = inputbox(“Enter path to file to check I.E: c$program filesinternex exploreriexplore.exe”,”File Check”) arrComputers = Array(“server1″,”server2”) Set objFSO = CreateObject(“Scripting.FileSystemObject”) sOutput=”Script Results for:” & strprofile & vbcrlf & vbcrlf For EACH strComputer in arrComputers […]
Set WshShell = WScript.CreateObject(“WScript.Shell”)‘ Acceleration Levels go from 0 to 5. 0=full, 5=noneintAccelLevel = 0strInputString = WScript.StdIn.ReadLineintStartLocation = instr(1, strInputString,”SystemCurrentControlSet”)strPartKey = right(strInputString, len(strInputString) – intStartLocation +1)strNewKey = strPartKey & “Acceleration.Level”WshShell.RegWrite strNewKey, intAccelLevel,”REG_DWORD”
‘ Change the Computers SNMP DescriptionstrSNMPMod = inputbox(“Enter a Computers SNMP Location”,””)oshell.RegWrite “HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesSNMPParametersRFC1156AgentsysLocation”, strSNMPMod , “REG_SZ”set oshell=nothing
‘ Section to interrogate the servers Serial number, trim the spaces then call dnscmd.exe to add the ilo%servername% as an alias to ilo%serialnumber% strComputer = “.” Set objWMIService = GetObject(“winmgmts:” _ & “{impersonationLevel=impersonate}!\” & strComputer & “rootcimv2”) Set colBIOS = objWMIService.ExecQuery _ (“Select * from Win32_BIOS”) For each objBIOS in colBIOS strSerial = objBIOS.SerialNumber Next […]
The below script will find the adapter called “Local Area Connection” and give is a dnssearchsuffix of mydomainname.com ‘Change the Computers DNS Search Suffix DNSDomain = “mydomainname.com” NetConnName = “Local Area Connection” strComputer = “.” Set objWMIService = GetObject(“winmgmts:” _ & “{impersonationLevel=impersonate}!\” & strComputer & “rootcimv2”) Set colItems = objWMIService.ExecQuery _ (“Select […]
‘ Change the Computers Current Computer Description Set oShell = CreateObject(“Wscript.Shell”)strDescriptionMod = inputbox(“Enter a New Computer Description”,””)oshell.RegWrite “HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServiceslanmanserverparameterssrvcomment”, strDescriptionMod, “REG_SZ”
Description: reoccuring outlook calendar entry corrupt, trying to open it promts with “Can’t Open item” Resolution: A number of solutions on the web, none of which worked. Clear the forms cache in outlook removing outlook add-ins delete the frmcache.dat file (this was terminal server) and no other users had the problem Final solution was to […]
Server: Windows 2008 and mandatory user profiles. Error: An Internal error occured. Either the user profile is not accessible or the private key that you are importing might require cryptographic service provider that is not installed on your system. Solution: Mandatory profiles do NOT allow the import of user certificates – users must be roaming […]
check out http://www.jamesscanlonmusic.com/ for an eclectic collection of free music, poetry and other music related items.
Resolution: Install MSVCPlus from here URL Reference: http://www.microsoft.com/downloads/details.aspx?familyid=200b2fd9-ae1a-4a14-984d-389c36f85647&displaylang=en http://forums.citrix.com/thread.jspa?threadID=239891&tstart=0