Script to control/allow access to the Internet but allow Intranet

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - can't get nbtstat to work using shell script in WINXP I found a script on this site to get the users MAC address using nbtstat. Here's the script: Function GetMACAddress(ByVal strIP) As String Dim net = CreateObject("wscript.network") Dim sh = Server.CreateObject("wscript.shell") sh.run("%comspec% /c nbtstat -A " & strIP & " > c:\inetpub\wwwroot\test\mac\" & strIP & ".txt", 0, True) sh = Nothing Dim fso = CreateObject("scripting.filesystemobject") Dim ts = fso.opentextfile("c:\inetpub\wwwroot\test\mac\" & strIP & ".txt") Dim MacAddress As String Dim Data As String Do While Not ts.AtEndOfStream Data = UCase(Trim(ts.readline)) If InStr(Data, "MAC ADDRESS") Then MacAddress = Trim(Split(Data, "=")(1)) Exit Do End If Loop ts.close() ts = Nothing fso.deletefile("c:\inetpub\wwwroot\test\mac\" & strIP & ".txt") fso = Nothing GetMACAddress = MacAddress End Function My problem is that the file created is 0kb. I can't figure out why the script doesn't run properly. I tried replacing the nbtstat command with a dir command, and that works fine. Any ideas?It only happens in WINXP.The script works in win2000.Is there any permission issue? Thanks! Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171555
  - 2
    - sql is this a right place to ask question about interfacing vbscript and ms-sqlserver scheduled jobs? i'd like to use external vbscript task to check [running] status of scheduled jobs on sql database, to see is particular job running, and may it be forced to start or stop. do i need some special component or is all allready bilt in into sql server? thanks for comments. Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171547
  - 3
    - Script for Folder View Customization - Beta This is a multi-part message in MIME format. ------=_NextPart_000_01A3_01C526AA.CB4F12E0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi all, I've written this script to allow users to customize a view for a = folder and then apply to all the subfolders. I thought I'd post it here = first for comments and suggestions. It's not very robust with error = handling :). It will hang if it runs into a folder with access denied. = Can the gurus here take a look and help me tweak it before posting to = the customize and music folk? I'm especially wondering about how to = handle the timing in the OpenAndCloseSubfolders function. The loop I = have now seems to be faster than using a sleep statement. I've left in = a msgbox reporting execution time for the function which I plan to take = out before the big rollout :) Thanks to all , Keith P.S. I know some people hate it, but I'm attaching the file as text as = well because of line-wrapping concerns. ########################################################## Const conBagMRUPath =3D = "HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\BagMRU" Const conBagsPath =3D = "HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags" Const conFolderStreams =3D = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults= \{F3364BA0-65B9-11CE-A9BA-00AA0=AD04AE837}" Const ForReading =3D 1 dim oAppShell, oScriptShell, oFso, oFolder dim VPathCollection () dim sIntroMsg, sScriptTitle, sIntro2, sSetView 'Instructions & Warnings InitMsgStrs If (msgbox(sIntroMsg, vbYesNo, sScriptTitle) <> vbYes) Then WScript.Quit End If If (msgbox(sIntro2, vbYesNo + vbCritical, sScriptTitle) <> vbYes) Then WScript.Quit End If 'Assign objects Set oAppShell =3D CreateObject("Shell.Application") Set oScriptShell =3D CreateObject("WScript.Shell")=20 Set oFSO =3D CreateObject("Scripting.FileSystemObject") 'Verify other windows are closed Do While oAppShell.windows.count <> 0 If (msgbox(oAppShell.windows.count & " Explorer/I.E. windows are = still open!", _ vbRetryCancel + vbCritical, sScriptTitle) <> vbReTry) Then WScript.Quit End If Loop 'Back up the Registry Keys Call RegExport(conBagMRUPath, "BagMRU Backup.reg") Call RegExport(conBagsPath, "Bags Backup.reg") DeleteBagsAndIncreaseLimit 'If conFolderStreams exists,it screws up the ' default columns for detail view of special folders. So... On Error Resume Next oScriptShell.RegDelete conFolderStreams Err.Clear On Error Goto 0 iNewBagCount =3D 0 bContinue =3D True iLoopCount =3D 0 Do While bContinue '*** The Fun Starts Here *** iLoopCount =3D iLoopCount + 1 set oFolder =3D oAppShell.BrowseForFolder(0, "Choose a Folder", 0) oAppShell.Open oFolder WScript.Sleep 1000 msgbox sSetView,,oFolder.title & " - Script Paused..." oAppShell.windows.item.quit iNewBagCount =3D iNewBagCount + 1 ReDim Preserve VPathCollection(iLoopCount - 1) VPathCollection(iLoopCount - 1) =3D VPath(oFolder) sFolderTemplateFile =3D MakeFolderTemplate(iNewBagCount) RegImport sFolderTemplateFile sStart =3D Now iNewBagCount =3D iNewBagCount + OpenAndCloseSubfolders(oFolder) MsgBox "Finished in " & DateDiff("s", sStart, Now) & " seconds", _=20 vbSystemModal, "OpenAndCloseSubfolders" oFso.GetFile(sFolderTemplateFile).Delete oScriptShell.RegDelete(conBagsPath & "\AllFolders\Shell\") oScriptShell.RegDelete(conBagsPath & "\AllFolders\") msg =3D "You have saved views for the following folder(s):" & vbCrLf For each sPath in VPathCollection msg =3D msg & vbTab & sPath & vbCrLf Next msg =3D msg & "You have saved views for " & iNewBagCount & " folders = (8000 max)" & vbCrLf msg =3D msg & vbCrLf & "Would you like to do another folder?" bcontinue =3D msgbox (msg, vbYesNo) =3D vbYes Loop Set oAppShell =3D Nothing Set oScriptShell =3D Nothing Set oFSO =3D Nothing '---------------------------------------End------------------------------= ----- Function MakeFolderTemplate (iBagNum) Dim sTemplateRegPath, sTemplateFileName, sFolderTemplate, ts sTemplateRegPath =3D conBagsPath & "\" & iBagNum sTemplateFileName =3D "Folder Template" & iBagNum & ".reg" sFolderTemplate =3D RegExport (sTemplateRegPath, sTemplateFileName) 'msgbox sFolderTemplate Set ts =3D oFso.OpenTextFile(sFolderTemplate, ForReading) sTemplateInfo =3D ts.ReadAll ts.close sSearch =3D "Bags\" & iNewBagCount sReplace =3D "Bags\AllFolders" sTemplateInfo =3D Replace (sTemplateInfo, sSearch, sReplace, 1, 2) sTemplateInfo =3D Replace (sTemplateInfo, "My", "") Set ts =3D oFso.CreateTextFile (sFolderTemplate, true) ts.Write sTemplateInfo ts.Close Set ts =3D Nothing MakeFolderTemplate =3D sFolderTemplate =20 End Function '---------------------------------------- Function OpenAndCloseSubfolders (oFolder) Dim iCount iCount=3D0 For Each oItem in oFolder.Items If oItem.IsFolder Then If NotZipped(oItem) and NotAlreadySaved(oItem) Then 'Do Until oAppshell.windows.count =3D 0 ' WScript.Sleep 100 'Loop oAppshell.open oItem.GetFolder 'WScript.Sleep 1000 On Error Resume Next Do Err.Clear oAppshell.windows.item.quit Loop Until Err.Number =3D 0 iCount =3D iCount + 1 iCount =3D iCount + = OpenAndCloseSubfolders(oItem.GetFolder) End If End If Next OpenAndCloseSubfolders =3D iCount End Function '----------------------------------------- Sub DeleteBagsAndIncreaseLimit () Dim tFolder, tName, tFile, tString Const TemporaryFolder =3D 2 Set tFolder =3D oFso.GetSpecialFolder(TemporaryFolder) tName =3D oFso.GetTempName =20 Set tFile =3D tFolder.CreateTextFile(tName) tString =3D _ "REGEDIT4" & vbCrLf & vbCrLf & _ "[-HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\BagMRU]" = & vbCrLf & _ "[-HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags]" & = vbCrLf & vbCrLf & _ "[HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell]" & vbCrLf & _ """BagMRU Size""=3Ddword:00001f40" & vbCrLf & vbCrLf & _ "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam]" & = vbCrLf & _ """BagMRU Size""=3Ddword:00001f40" & vbCrLf & vbCrLf & _ = "[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Ex= plorer]" & vbCrLf & _ """NoSaveSettings""=3Ddword:00000000" & vbCrLf & vbCrLf tFile.write (tString) tFile.close RegImport (tFolder.Path & "\" & tName) oFso.GetFile(tFolder.Path & "\" & tName).Delete End Sub =20 '----------------------------------------- Sub RegImport (sFileName) Dim sCmd sCmd =3D "regedit.exe /s """ & sFileName & """" oScriptShell.Run sCmd, 0, True End Sub '----------------------------------------- Function RegExport (sRegPath, sFileName) Dim sCmd, sTemp sTemp =3D oScriptShell.SpecialFolders("Desktop") & "\" & sFileName sCmd =3D "regedit.exe /A """ & sTemp & """ " & """" & sRegPath & = """" oScriptShell.Run sCmd, 0, True RegExport =3D sTemp End Function '----------------------------------------- Function NotZipped (oFolder) NotZipped =3D Not (CBool (InStr (oFolder.type, "zipped"))) End Function '----------------------------------------- Function VPath (oFolder) on error resume next sTemp =3D oFolder.ParentFolder.title If Err.Number =3D 0 then=20 VPath =3D VPath (oFolder.ParentFolder) & "\" & oFolder.title Else VPath =3D oFolder.title Err.Clear End If End Function '----------------------------------------- Function NotAlreadySaved (oFolder) Dim sVPath NotAlreadySaved =3D True sVPath =3D VPath (oFolder.GetFolder) For Each s in VPathCollection If s =3D sVPath Then NotAlreadySaved =3D False Exit For End If Next End Function '----------------------------------------- Sub InitMsgStrs () sIntroMsg =3D "This script will allow you to customize the view for = a folder and " & _ "then have that view applied to all of the folder's subfolders. = " & _ "All previously saved views will be lost. Your old settings " & = _ "will be saved in two .reg files placed on the desktop that can = be " & _ "merged to restore your old settings." & vbCrLf & vbCrLf & _ "Work your way up from lower-level folders to higher-level " & _ "folders -- i.e. do My Music and My Pictures before doing My = Documents. " & _ "If a sub-folder has already had a view saved, It will not be = affected by " & _ "applying a different view to its parent folder." & vbCrLf & = vbCrLf & _ "Also, different views are saved for 'My Documents' and its " & = _ "subfolders, depending on how they are accessed:" & vbCrLf & = vbCrLf & _ vbTab & "'Desktop\My Documents'" & vbCrLf & vbTab & "'My = Computer\My Documents'" & _ vbCrLf & vbTab & "'C:\Docs and Settings\<username>\My = Documents'" & vbCrLf & _ vbCrLf & "are seperate and unique as far as views are concerned. = You may want " & _ "to take a minute to verify which way you access these folders = by opening one " & _ "and viewing the folder pane to determine the path." & vbCrLf & = vbCrLf & _ "Do you wish to continue?" sScriptTitle =3D "Customize Folder Views" sIntro2 =3D "This script will be opening and closing explorer = windows in order to " & _ "apply the views. It is recommended you close other = applications to run " & _ "this Script. To function properly, It is IMPERATIVE that you = not have " & _ "any Explorer or I.E. windows open. If you have any open, = please close " & _ "them before clicking 'OK'" & vbCrLf & vbCrLf & "Do you wish to = continue?" sSetView =3D "Alt+Tab to the Folder window now open and set all view = options to your " & _ "liking. DO NOT CLOSE THE FOLDER YOURSELF! When you are done, = Alt+Tab back to this window & click 'OK'."=20 End Sub ------=_NextPart_000_01A3_01C526AA.CB4F12E0 Content-Type: text/plain; name="FolderViewSave.txt" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="FolderViewSave.txt" Const conBagMRUPath =3D = "HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\BagMRU" Const conBagsPath =3D = "HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags" Const conFolderStreams =3D = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults= \{F3364BA0-65B9-11CE-A9BA-00AA0=AD04AE837}" Const ForReading =3D 1 dim oAppShell, oScriptShell, oFso, oFolder dim VPathCollection () dim sIntroMsg, sScriptTitle, sIntro2, sSetView 'Instructions & Warnings InitMsgStrs If (msgbox(sIntroMsg, vbYesNo, sScriptTitle) <> vbYes) Then WScript.Quit End If If (msgbox(sIntro2, vbYesNo + vbCritical, sScriptTitle) <> vbYes) Then WScript.Quit End If 'Assign objects Set oAppShell =3D CreateObject("Shell.Application") Set oScriptShell =3D CreateObject("WScript.Shell")=20 Set oFSO =3D CreateObject("Scripting.FileSystemObject") 'Verify other windows are closed Do While oAppShell.windows.count <> 0 If (msgbox(oAppShell.windows.count & " Explorer/I.E. windows are = still open!", _ vbRetryCancel + vbCritical, sScriptTitle) <> vbReTry) Then WScript.Quit End If Loop =20 'Back up the Registry Keys Call RegExport(conBagMRUPath, "BagMRU Backup.reg") Call RegExport(conBagsPath, "Bags Backup.reg") DeleteBagsAndIncreaseLimit 'If conFolderStreams exists,it screws up the ' default columns for detail view of special folders. So... On Error Resume Next oScriptShell.RegDelete conFolderStreams Err.Clear On Error Goto 0 iNewBagCount =3D 0 bContinue =3D True iLoopCount =3D 0 Do While bContinue '*** The Fun Starts Here *** iLoopCount =3D iLoopCount + 1 set oFolder =3D oAppShell.BrowseForFolder(0, "Choose a Folder", 0) oAppShell.Open oFolder WScript.Sleep 1000 msgbox sSetView,,oFolder.title & " - Script Paused..." oAppShell.windows.item.quit iNewBagCount =3D iNewBagCount + 1 ReDim Preserve VPathCollection(iLoopCount - 1) VPathCollection(iLoopCount - 1) =3D VPath(oFolder) sFolderTemplateFile =3D MakeFolderTemplate(iNewBagCount) RegImport sFolderTemplateFile sStart =3D Now iNewBagCount =3D iNewBagCount + OpenAndCloseSubfolders(oFolder) MsgBox "Finished in " & DateDiff("s", sStart, Now) & " seconds", _=20 vbSystemModal, "OpenAndCloseSubfolders" oFso.GetFile(sFolderTemplateFile).Delete oScriptShell.RegDelete(conBagsPath & "\AllFolders\Shell\") oScriptShell.RegDelete(conBagsPath & "\AllFolders\") msg =3D "You have saved views for the following folder(s):" & vbCrLf For each sPath in VPathCollection msg =3D msg & vbTab & sPath & vbCrLf Next msg =3D msg & "You have saved views for " & iNewBagCount & " folders = (8000 max)" & vbCrLf msg =3D msg & vbCrLf & "Would you like to do another folder?" bcontinue =3D msgbox (msg, vbYesNo) =3D vbYes Loop Set oAppShell =3D Nothing Set oScriptShell =3D Nothing Set oFSO =3D Nothing '---------------------------------------End------------------------------= ----------- Function MakeFolderTemplate (iBagNum) Dim sTemplateRegPath, sTemplateFileName, sFolderTemplate, ts sTemplateRegPath =3D conBagsPath & "\" & iBagNum sTemplateFileName =3D "Folder Template" & iBagNum & ".reg" sFolderTemplate =3D RegExport (sTemplateRegPath, sTemplateFileName) 'msgbox sFolderTemplate Set ts =3D oFso.OpenTextFile(sFolderTemplate, ForReading) sTemplateInfo =3D ts.ReadAll ts.close sSearch =3D "Bags\" & iNewBagCount sReplace =3D "Bags\AllFolders" sTemplateInfo =3D Replace (sTemplateInfo, sSearch, sReplace, 1, 2) sTemplateInfo =3D Replace (sTemplateInfo, "My", "") Set ts =3D oFso.CreateTextFile (sFolderTemplate, true) ts.Write sTemplateInfo ts.Close Set ts =3D Nothing MakeFolderTemplate =3D sFolderTemplate =20 End Function '---------------------------------------- Function OpenAndCloseSubfolders (oFolder) Dim iCount iCount=3D0 For Each oItem in oFolder.Items If oItem.IsFolder Then If NotZipped(oItem) and NotAlreadySaved(oItem) Then 'Do Until oAppshell.windows.count =3D 0 ' WScript.Sleep 100 'Loop oAppshell.open oItem.GetFolder 'WScript.Sleep 1000 On Error Resume Next Do Err.Clear oAppshell.windows.item.quit Loop Until Err.Number =3D 0 iCount =3D iCount + 1 iCount =3D iCount + = OpenAndCloseSubfolders(oItem.GetFolder) End If End If Next OpenAndCloseSubfolders =3D iCount End Function '----------------------------------------- Sub DeleteBagsAndIncreaseLimit () Dim tFolder, tName, tFile, tString Const TemporaryFolder =3D 2 Set tFolder =3D oFso.GetSpecialFolder(TemporaryFolder) tName =3D oFso.GetTempName =20 Set tFile =3D tFolder.CreateTextFile(tName) tString =3D _ "REGEDIT4" & vbCrLf & vbCrLf & _ "[-HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\BagMRU]" = & vbCrLf & _ "[-HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags]" & = vbCrLf & vbCrLf & _ "[HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell]" & vbCrLf & _ """BagMRU Size""=3Ddword:00001f40" & vbCrLf & vbCrLf & _ "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam]" & = vbCrLf & _ """BagMRU Size""=3Ddword:00001f40" & vbCrLf & vbCrLf & _ = "[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Ex= plorer]" & vbCrLf & _ """NoSaveSettings""=3Ddword:00000000" & vbCrLf & vbCrLf tFile.write (tString) tFile.close RegImport (tFolder.Path & "\" & tName) oFso.GetFile(tFolder.Path & "\" & tName).Delete End Sub =20 '----------------------------------------- Sub RegImport (sFileName) Dim sCmd sCmd =3D "regedit.exe /s """ & sFileName & """" oScriptShell.Run sCmd, 0, True End Sub '----------------------------------------- Function RegExport (sRegPath, sFileName) Dim sCmd, sTemp sTemp =3D oScriptShell.SpecialFolders("Desktop") & "\" & sFileName sCmd =3D "regedit.exe /A """ & sTemp & """ " & """" & sRegPath & = """" oScriptShell.Run sCmd, 0, True RegExport =3D sTemp End Function '----------------------------------------- Function NotZipped (oFolder) NotZipped =3D Not (CBool (InStr (oFolder.type, "zipped"))) End Function '----------------------------------------- Function VPath (oFolder) on error resume next sTemp =3D oFolder.ParentFolder.title If Err.Number =3D 0 then=20 VPath =3D VPath (oFolder.ParentFolder) & "\" & oFolder.title Else VPath =3D oFolder.title Err.Clear End If End Function '----------------------------------------- Function NotAlreadySaved (oFolder) Dim sVPath NotAlreadySaved =3D True sVPath =3D VPath (oFolder.GetFolder) For Each s in VPathCollection If s =3D sVPath Then NotAlreadySaved =3D False Exit For End If Next =20 End Function '----------------------------------------- Sub InitMsgStrs () sIntroMsg =3D "This script will allow you to customize the view for = a folder and " & _ "then have that view applied to all of the folder's subfolders. = " & _ "All previously saved views will be lost. Your old settings " & = _ "will be saved in two .reg files placed on the desktop that can = be " & _ "merged to restore your old settings." & vbCrLf & vbCrLf & _ "Work your way up from lower-level folders to higher-level " & _ "folders -- i.e. do My Music and My Pictures before doing My = Documents. " & _ "If a sub-folder has already had a view saved, It will not be = affected by " & _ "applying a different view to its parent folder." & vbCrLf & = vbCrLf & _ "Also, different views are saved for 'My Documents' and its " & = _ "subfolders, depending on how they are accessed:" & vbCrLf & = vbCrLf & _ vbTab & "'Desktop\My Documents'" & vbCrLf & vbTab & "'My = Computer\My Documents'" & _ vbCrLf & vbTab & "'C:\Docs and Settings\<username>\My = Documents'" & vbCrLf & _ vbCrLf & "are seperate and unique as far as views are concerned. = You may want " & _ "to take a minute to verify which way you access these folders = by opening one " & _ "and viewing the folder pane to determine the path." & vbCrLf & = vbCrLf & _ "Do you wish to continue?" sScriptTitle =3D "Customize Folder Views" sIntro2 =3D "This script will be opening and closing explorer = windows in order to " & _ "apply the views. It is recommended you close other = applications to run " & _ "this Script. To function properly, It is IMPERATIVE that you = not have " & _ "any Explorer or I.E. windows open. If you have any open, = please close " & _ "them before clicking 'OK'" & vbCrLf & vbCrLf & "Do you wish to = continue?" sSetView =3D "Alt+Tab to the Folder window now open and set all view = options to your " & _ "liking. DO NOT CLOSE THE FOLDER YOURSELF! When you are done, = Alt+Tab back to this window & click 'OK'."=20 End Sub ------=_NextPart_000_01A3_01C526AA.CB4F12E0-- Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171541
  - 4
    - On Error Goto ErrorHandler Hi All, I am a newbie as far as VB scripting goes. Would anybody be able to help me with error handling in vb script? The following statement gives an error, though "ErrHandler:" tag exists in the same routine on error goto ErrHandler kd Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171539
  - 5
    - Using WScript in VB Script Hi All, Can "WScript" be used in VB Script? Thanks. kd Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171538
  - 6
    - round a number in vbs This is a multi-part message in MIME format. ------=_NextPart_000_0026_01C52707.3F3947A0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, How to I format the output of a number in VBS, eg: if the output is 1794, I want it to be 1790 if the output is 1795, I want it to be 1800 I was looking at FormatNumber and Round function, but neither seem to do = what I want. Here is the script to query CPU speed: Set objWMIService =3D GetObject("winmgmts:" & = "{impersonationLevel=3Dimpersonate}!\\" _ & strComputer & "\root\cimv2") Set colProcessors =3D objWMIService.ExecQuery("SELECT * FROM = Win32_Processor", "WQL", _ wbemFlagReturnImmediately + = wbemFlagForwardOnly) For Each objProcessor In colProcessors strProcessorName =3D objProcessor.Name strCurrentClockSpeed =3D objProcessor.CurrentClockSpeed Next Wscript.Echo "CPU speed: " & strCurrentClockSpeed & "Mhz" Thanks Frank ------=_NextPart_000_0026_01C52707.3F3947A0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1491" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>How to I format the output of a number = in VBS,=20 eg:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>if the output is 1794, I want it to be=20 1790</FONT></DIV> <DIV><FONT face=3DArial size=3D2>if the output is 1795, I want it to be=20 1800</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV>I was looking at FormatNumber and Round function, but neither seem = to do=20 what I want.</DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Here is the script to query CPU = speed:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2> Set objWMIService =3D = GetObject("winmgmts:"=20 & "{impersonationLevel=3Dimpersonate}!\\" _<BR>   =20             &= nbsp;    =20 & strComputer & "\root\cimv2")</FONT></DIV> <DIV><FONT face=3DArial size=3D2> Set colProcessors =3D=20 objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL",=20 _<BR>           &n= bsp;           &nb= sp;           &nbs= p;     =20 wbemFlagReturnImmediately + wbemFlagForwardOnly)<BR> For Each = objProcessor=20 In colProcessors<BR>     strProcessorName =3D=20 objProcessor.Name<BR>     strCurrentClockSpeed =3D=20 objProcessor.CurrentClockSpeed<BR> Next<BR></FONT></DIV> <DIV><FONT face=3DArial size=3D2> Wscript.Echo "CPU speed: " &=20 strCurrentClockSpeed & "Mhz"</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Frank</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2> </DIV></FONT></BODY></HTML> ------=_NextPart_000_0026_01C52707.3F3947A0-- Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171536
  - 7
    - Determine if Remote Parnet Share is shared out but not the childen Hi I need a quick Idea: I need to determine on a remote file server if a users shared parent folder (Ex ACCT ID in the following location c:\data\users\Acct ID)is properly shared out as a hidden share. Now I now how to reset it to a hidden share remotely when creating the folder, but what I need is a vbs script that will run on the server 24 / 7 and once an hour verify that all of the user shares (But not the subfolders of the parent) are still shared out? Is there a way of limiting the verification to just the parent folder and then loop through all of the parent folders in the share? Thanks!!! Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171530
  - 8
    - Newbie asking for a script on automatic files management Hi, I'm trying to come up with a script that does the following in vbscript: 1) User drag and drop a folder 2) Process all files in dropped folder 3) For all files Add a timestamp of last accessed to the end of the filename move each file to the correct subfolder for eg Allthisfile.xls is moved to the A subfolder eg 12345.doc is moved to the 1 subfolder Does anyone have a sample script that i can refer to? Thanks Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171529
  - 9
    - MsgBox to display while processing Hopefully there is a simple solution to my dilemma. I have a script as follows: 1. A MsgBox is displayed to ask user if they want to proceed. 2. After they click Yes, the MsgBox disappears and the script begins processing. 3. Processing takes about 30 seconds to complete. 4. After the processing has completed, a MsgBox is displayed to inform the user the process has completed. I'd like to have a MsgBox display during the 30 seconds of processing to tell the user to "Please wait." I don't need a progress bar or anything fancy like that - just a simple message so the user doesn't think the script has hung. Is this possible? Thanks! Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171526
  - 10
    - scheduling a VBScript I cannot for the life of me, schedule a VBScript to execute at X time of day on a server... I even tried seting up a SQL job to execute the script but that didn't work either... likely because I have no idea what I'm doing. Any ideas on how to schedule a VBScript to run at a specified interval? thanks in advance, this is very frustrating! Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171521
  - 11
    - Scan an image to fit I know how to display an image from vbscript using IE from an earlier posting Option Explicit Const cIMG = "<img src='c:\windows\space.bmp' border='0'>" Dim objIEA Set objIEA = CreateObject("InternetExplorer.Application") objIEA.ToolBar = 0 objIEA.StatusBar = 0 objIEA.Width = 330 objIEA.Height = 180 objIEA.Left = 0 objIEA.Top = 0 objIEA.Visible = True objIEA.Navigate "about:blank" While objIEA.Busy wscript.Sleep 100 Wend objIEA.Document.Body.InnerHTML = cIMG Is there some way to modify this so that the image is automatically scaled to fit in the window as is done when you select the option Tools -> Internet Options -> Advanced -> Enable Automatic Image Resizing Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171519
  - 12
    - INI Files I need a way to read/write an INI file from a .vbs file without using ActiveX. Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171516
  - 13
    - Searching XML files Hi All, I have around 1500 xml file in a folder and want to search for keywords in the file. Please help me how to do this. Can it be done using Microsoft index server ?? I am new to xml ....Please help thanks, Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171513
  - 14
    - setting a data type in excel I am using code to put passwords into excel. I found that if a password is all numbers that excel will save it as a number instead of as text. Is there a way to programatically set some property so the cell will be text instead of a number? *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171512
  - 15
    - Copy an image Hi I want to create an Excel instance, copy a picture from my html page and paste it into the Excel instance. Is this possible? Se example below of what I'm trying to do (the copy part doesn't work though): Dim xlApp Dim xlW Dim xlS Set xlApp = CreateObject( "Excel.Application" ) Set xlW = xlApp.Workbooks.Add Set xlS = xlW.Worksheets.Add myPicture.Copy xlS.Paste Regards PO Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171511
  - 16
    - Unlock Is there a way to run a VBS script when someone unlocks there computer? For example, if someone leaves for lunch, they typically will lock their computer screen. Is there a way to run a script when the computer screen becomes unlocked? Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171508
  - 17
    - Identifying a USB drive by letter How can I tell if a drive letter refers to a USB drive? I need to differentiate between the kinds of removable drives (USB memory stick, PCMCIA card, etc.). -- Your email is being returned due to insufficient voltage. Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171506
  - 18
    - VBscript Search and Replace conundrum I have an application where the INI files are "dumb" and always write the path c:\ to a couple of INI files. "vwcmim.ini" and "vwgsmm.ini" in the windows directory. I want to list drives (like xternal), check them for data directory, and if it's found replace c:\ with <drive:\> in the INI files. I've got to the point where it does process the files but instead of putting in the drive letter it just erases the old drive letter c: with a null string. I am wondering what I'm doing wrong, or if anybody's got a better idea for simple file text search/replace. VBscript code follows. It has to run from a command prompt using cscript <scriptname> ' This script finds and replaces the drive C: with the correct drive letter in the ' INI see below (see SubFolder) ' This allows vACBI to run even where the data drive letter is not c: ' Owen Gilmore - owen.gilmore@united.com ' aogilmore@sbcglobal.net ' 7:20 AM 1/10/2005 Option Explicit Dim WshProcessEnvironment Set WshShell = WScript.CreateObject("WScript.Shell") Set WshProcessEnvironment = WshShell.Environment("Process") 'Define Object Variables Dim FSys Dim xFolder Dim xFiles Dim xFile Dim tFile Dim wshShell 'On Error Resume Next Dim strComputer Dim objWMIService Dim colItems Dim objFSO Dim objShell Dim strmsg Dim u_Drv Dim u_MedPath Dim objItem Dim EnvWinDir ' Define Working Variables Dim SubFolder Dim FileText 'Get some necessary environment variables EnvWinDir = WshProcessEnvironment("windir") 'Define Constants CONST U_File1 = "vwcmim.ini" CONST U_File2 = "vwgsmm.ini" Const ForReading = 1 Const ForWriting = 2 Const TristateUseDefault = -2 'On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") u_MedPath = "\United\VWCMI\DATA" For Each objItem in colItems strmsg=strmsg&"DeviceID: " & objItem.DeviceID&vbcrlf If objFSO.FolderExists(objItem.DeviceID & u_MedPath) Then u_Drv = objItem.DeviceID End If SubFolder = EnvWinDir 'Verify that the script runs in console mode If UCase(Right(WScript.FullName, Len(WScript.FullName)-InStrRev(WScript.FullName,"\"))) <> "CSCRIPT.EXE" Then Set wshShell = WScript.CreateObject("WScript.Shell") wshShell.Run "CSCRIPT.EXE " & WScript.ScriptFullName, 1, False Set wshShell = Nothing WScript.Quit End If 'Set Objects Set FSys = WScript.CreateObject("Scripting.FileSystemObject") Set xFolder = FSys.GetFolder(SubFolder) Set xFiles = xFolder.Files WScript.Echo SubFolder WScript.Echo "Directive to process " & xFiles.Count & " files." 'Parse Each file and perform replacements For Each xFile in xFiles if xFile.Name = u_File1 OR xFile.Name = u_File2 Then WScript.Echo " --> " & xFile.Name WScript.Echo " Reading in contents" WScript.Echo u_Drv Set tFile = xFile.OpenAsTextStream(ForReading, TristateUseDefault) FileText = tFile.ReadAll tFile.Close WScript.Echo " Performing Replacement" & FileText & " with " & u_Drv FileText = REPLACE(FileText, "C:", u_Drv) WScript.Echo " Saving new file" Set tFile = xFile.OpenAsTextStream(ForWriting, TristateUseDefault) tFile.Write FileText tFile.Close Else WScript.Echo " --> " & xFile.Name & " NOT APPLICABLE" ' FileText = "" End If Next Next 'Clean Environment and exit On Error Resume Next Set tFile = Nothing Set xFolder = Nothing Set xFiles = Nothing Set xFile = Nothing Set FSys = Nothing -- MSI packaging Scripting Deployments Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171501
  - 19
    - vbscript comit changes to active directory I need to know how to make a change in a field and comit it back into active directory. This is code that I am using. I def NEED to have the userPrincipalName to get the current logon user in the query, and change just his profile path. Any ideas??? Thanks '----------------------------------------------------------------- Option Explicit Const ADS_SCOPE_SUBTREE = 2 'these next 4 strings aren't very necessary but it makes it look cleaner 'towards the end Dim strName Dim strProfile Dim strHomeDrive Dim strHomeDirectory Dim strDistinguishedName Dim strlogon 'strprofile will error on a null value so I am Dim rs Dim cnn Dim cmd Dim objuser Set cnn = CreateObject("ADODB.Connection") Set cmd = CreateObject("ADODB.Command") ' Open the connection. cnn.Provider = "ADsDSOObject" ' This is the ADSI OLE-DB provider name cnn.Open "Active Directory Provider" ' Create a command object for this connection. Set cmd.ActiveConnection = cnn ' Compose a search string and replace DC=YourDomain, DC=COM cmd.CommandText = "select name, distinguishedname, profilepath, homedrive, homedirectory, userPrincipalName" _ & " from 'LDAP:// OU= NY, DC=FFHSJ, DC=COM' WHERE objectCategory='user' And objectCategory='person' and userPrincipalName='wahidta@ffhsj.com'" cmd.Properties("Page Size") = 1000 cmd.Properties("Timeout") = 30 cmd.Properties("Searchscope") = ADS_SCOPE_SUBTREE 'search all containers cmd.Properties("Cache Results") = False Set rs = cmd.Execute '------------------------------------------------------------------------------ Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171499
  - 20
    - Import Access DB Can VBScript be used to import data into MS Access? I have searched the web and have not been able to find anything. If someone could point me in the right direction, I would appreciate it. Thanks Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171498
  - 21
    - vbscript help OK im trying to update the user profile of people that are logged on to the machine. I was hoping to use something like the logon_user = Request.ServerVariables("LOGON_USER") that we can use in .NET but if not thats not a problem I know i can get it from registry. But if anyone knows how can you please give me an example. Now Im using the following code to query a perticular user in active directory. But I need to modify the user profile '--------------------------------------------------------------------------------------- Option Explicit Const ADS_SCOPE_SUBTREE = 2 Dim strName Dim strTSProfile Dim strTSHomeDrive Dim strProfile Dim rs Dim cnn Dim cmd Dim objuser Set cnn = CreateObject("ADODB.Connection") Set cmd = CreateObject("ADODB.Command") ' Open the connection. cnn.Provider = "ADsDSOObject" ' This is the ADSI OLE-DB provider name cnn.Open "Active Directory Provider" ' Create a command object for this connection. Set cmd.ActiveConnection = cnn ' Compose a search string and replace DC=YourDomain, DC=COM cmd.CommandText = "select name, distinguishedname, profilepath, homedrive, homedirectory, userPrincipalName" _ & " from 'LDAP:// OU= NY, DC=FFHSJ, DC=COM' WHERE objectCategory='user' And objectCategory='person' and userPrincipalName='wahidta@ffhsj.com'" cmd.Properties("Page Size") = 1000 cmd.Properties("Timeout") = 30 cmd.Properties("Searchscope") = ADS_SCOPE_SUBTREE 'search all containers cmd.Properties("Cache Results") = False Set rs = cmd.Execute MsgBox "done" '------------------------------------------------------------------------------------- How can I use the recordset to make a change on that field and comit it back to active directory?? Thanks. Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171497
  - 22
    - How to seach for a text inside a file Hi All, I' trying to find an specific word inside a file .I'd like to give my script a wild card(*.txt) and a word or phrase in the file (exactly like what widows dose) and find the files on my computer.Is it possible to do it in vb script? Thanks Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171495
  - 23
    - LDAP query help I'm trying to get the user logon name out with a query from Active Directory. Whats the field name. I cant find it anywhere. I tried logon, logonname, userlogon, login, loginname, etc. cmd.CommandText = "select name, distinguishedname, profilepath, homedrive, homedirectory, xxx" _ & " from 'LDAP:// OU= NY, DC=FFHSJ, DC=COM' WHERE objectCategory='user'" Can someone help me out with what to put in the xxx to get the user logon field from active directory? Thanks. Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171490
  - 24
    - ADO-Security Warnings accessing Datasource Hi, Im writing an asp site using vbscript. It accesses my SQL-Server through an ODBC-Datasource that is defined on the IIS. The code is set Conn = CreateObject("ADODB.Connection") Conn.open "DSN=XXX;UID=YYY;pwd=ZZZ" Set RS = CreateObject("ADODB.Recordset") sql = "SELECT * FROM tblMyTab WHERE Col1='Test'" RS.open sql, conn msgbox RS.fields("Col2") RS.close I'm using this code twice: (1) Once in the main procedure that is executed everytime the page ist displayed and a second time (2) in a sub that is called by an on_click event. In both cases it works correctly, but: Only in case (2) there come up two messages (translated): "ADO-Security Warning: This website uses an dataprovider who is prabably not secure. If you trust the website, click OK, otherwiese click cancel." and thereafter "ADO-Security Warning: This website is using your identity while accessing a datasource. If you trust the website, click OK, otherwiese click cancel." Does anyone know how to prevent this messages? Why do they only come up in (2)? Thank you in advance! Marco Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171486
  - 25
    - Programmatically adding a footer and toc to word document using vbscript Is it possible to programmatically add (using vbscript) a footer & toc to a word document once it has been created and saved? Can anyone give me some example code please? Ta. Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171480
- Next
  - 1
    - Digitally signing macros Hi! I've created a couple of macros that I'd like to digitally sign. I just want to issue a certificate myself and use that so the security level can remain at "High". I've used selfcert.exe to create a certificate but when I sign the macro and save my template I get an error: "There was a problem with the digital certificate. The VBA project could not be signed. The signature will be discarded." How can I solve this?? Thanks in advance. Morten Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171474
  - 2
    - Counting Files In A Folder Hi I need to count the number of iles in a folder. I have amended a script I found: This is fine but it will not do subdirectories Please can someone assist? strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService. _ ExecQuery("Select * from CIM_DataFile where Path = '\\currency\\'") For Each objFile in colFiles 'Wscript.Echo objFile.Name count1 = count1 + 1 'Wscript.Echo count1 Next Wscript.Echo count1 Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171473
  - 3
    - How to close Internet Explorer ? I am running this script (from a .vbs file) to reboot a router using the web interface... Set g_shell = CreateObject("WScript.Shell") g_shell.Run "iexplore http://admin:my_password@123.123.123.123/setup.cgi?todo=reboot" It works, but how do I close IE afterwards ? Thanks, Craig Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171472
  - 4
    - VBscript and Visual Basic I only know a little about both VBscript and Visual Basic. I have written a few vbscripts that i would like to add a gui to. Can any one tell me if i can simply make up a visual basic window (form) and run the script with some text boxes and buttons. thanks in advance *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171471
  - 5
    - Exchange Name Change Exchange server name on outlook 2000/2003 Thank you Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171468
  - 6
    - Sound Recording with VBScript Hi there, does anybody know how i can record sound within vbscript? Many thanks to you. Ulrich Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171467
  - 7
    - Wscript.Echo error in VBS Embeded in HTML Hi All: I have a script that I am writing that is basicly an HTML file with embeded VBS Coding. I am basicly designing the script so that it uses a small browser to open and have the user input an User ID & Server name (Via Text Input boxes) and when the click the submitt button the script goes off and verifies that a user folder is not on a share, and then creates it, shares it, permissions and reports to a log any errors. Now here is my problem. All of my VBS code is located in one big sub routine that is called when the user clicks the button in the browser. Now any time that I try to access anything with Wscript (Wscript.sleep or Wscript.echo) If give me an error stating "Object Required: Wscript". Any suggestions on how to avoid this so that I can use the wscript object. Thanks Lost Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171442
  - 8
    - Reading and displaying records from a table in a database with vbscript? Okay I have a script straight from the windows 2000 scripting guide that shows me how to connect to a database. This I have done. What I'm trying to do is connect to an access dbase and read a tables contents and display each record, or at least assign them to variables in vbs so that I can use them to create accounts. So far I have this. ********************************************************************* const adopenstatic=3 Const adlockoptimistic=3 Const aduseclient=3 Set objConnection=CreateObject("ADODB.Connection") Set objRecordset=CreateObject("ADODB.Recordset") objConnection.Open "DSN=testdb;" objRecordset.Cursorlocation=aduseclient objRecordset.Open "SELECT * FROM main" , objConnection, adopenstatic, adlockoptimistic wscript.Echo objrecordset.recordcount objrecordset.close objconnection.close ************************************************************************ I have been all over the web looking for info about this but I must be searching on the wrong things. Can someone help me out or at least point me in the right direction? Thanks Jason Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171434
  - 9
    - Multiple Column Lookup - Dictionary Object? Hello. I'm trying to come up with a solution for a lookup which contains multiple columns. I read somewhere (can't find the article/solution) that a dictionary can contain an array. I was trying the following code but receive the following error: "Subscript out of range" 'myarray'". Any help is appreciated. Also if anyone knows an easier way... ---------------------------------------------------- Dim objDict Set objDict = CreateObject("Scripting.Dictionary") ReDim myarray(2) objDict.add "cat", myarray("a", "b", "c") objDict.add "dog", myarray("d", "e", "f") objDict.add "pig", myarray("g", "h", "i") ---------------------------------------------------- Thanks in advance, -Jim Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171432
  - 10
    - URL limit exceeded Hello! I have exceeded the length of the URL limit. I have a form where I send data using GET method. Now I have to change method of posting data into POST method. But please tell me how to get data after passing them, because when I call request.querystring("field1") it doesn`t work in the post method. Please help, I will be grateful for help Marcin from Poland Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171426
  - 11
    - Error Checking in Logon Scripts I am not new to scripting but I am new to logon scripts. As a rule just how verbose should I let my logon scripts get? Currently I am doing most everything in vbs and a couple are .wsf. I am doing eror trapping and logging, (event logs, logging) now, is there a point where it becomes counter productive? Also is there a general preference for logon and GP scripts vbs or wsf? Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171422
  - 12
    - .vbs vbscript query a sql server database Hi, I need to query a database and get one field out "ie full name". Its a sql server 7.0 (I also have the database housed in an 8.0 (2000) database) Can anyone help with code examples. How to make a connection to a database from a vbscript. Thanks. Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171420
  - 13
    - search engine safe urls Hey, Anyone seen a good solution for Search Engine Safe URLs with Classic ASP? I've been looking for a while and short of using the 404 or installing tool on the server (for URL rewriting) I was hoping there might be something else. In ColdFusion you can do a http://server.com/myfile.cfm/id/410 and it just works ... Thanks, :rob Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171412
  - 14
    - Log file size tempoary event cosumer. Hello, Independent of the log file properties (things like specifying log file size, overwrite events, etc.) I'd like to create a temporary event consumer with vbscript to monitor log file size and send a message box to the user notifying them a given log is filling up. I searched Microsoft's website looking for event ID's related to EventLog. The only event ID I found for which I would monitor is 6000, The %1 log file is full. While this is a good start, I'd like to notify the user BEFORE the log gets too big... To me this is kinda like the oil pressure light in a car. As a warning light, that light is mostly useless because if it goes off for a real reason, chances are engine damage has already occurred. I looked in the Performance monitor for a counter object related to log file size and could find anything either. At any rate, does anyone know if a percentage of log file size can be actively monitored? Thanks!!! Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171408
  - 15
    - Re: Aaagh! cScript no longer Returning! ?? Sorry, Just again : as you can see, forcing cscript instead of wscript does not have any effect:-- ---------------------------------------- C:\> cscript.exe //H:CScript C:\inetpub\AdminScripts\mkwebdir.vbs -c localhost - w "Default Web Site" -v "adminDir","C:\MyDir" Microsoft (R) Windows Script Host Version 5.1 for Windows Copyright (C) Microsoft Corporation 1996-1999. All rights reserved. 3/10/2005 3:46:16 PM : Accessing root for IIS://localhost/W3svc/1 3/10/2005 3:46:16 PM : Done. --------------------------------------------- Thanks! Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171402
  - 16
    - Re: Aaagh! cScript no longer Returning! ?? Sorry, Just again : as you can see, forcing cscript instead of wscript does not have any effect:-- ---------------------------------------- C:\> cscript.exe //H:CScript C:\inetpub\AdminScripts\mkwebdir.vbs -c localhost - w "Default Web Site" -v "adminDir","C:\MyDir" Microsoft (R) Windows Script Host Version 5.1 for Windows Copyright (C) Microsoft Corporation 1996-1999. All rights reserved. 3/10/2005 3:46:16 PM : Accessing root for IIS://localhost/W3svc/1 3/10/2005 3:46:16 PM : Done. --------------------------------------------- Thanks! Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171400
  - 17
    - Re: Aaagh! cScript no longer Returning! ?? Hi Frank, This does not make any difference. Its very odd. It seems to be XP machines that cause this to hang. The weird thing is that it used to work a treat, and for some reason since the begining of this year it has never ever returned! I was redirecting to a file in terms of cscript.exe <cmdpath> <options> >>c:\install.txt and I thought perhaps it was a write protected c:\ issue. so I removed that. Here's what I am doing - this is straight from a cmd.exe prompt: Interesting: if you look, the first time I tried it I miss-spelled the .vbs script, and cscript did actually return OK. The next time I typed the correct .vbs file, and it never returned; ---------- C:\>cscript.exe C:\inetpub\AdminScripts\mkwebd-ir.vbs -c localhost -w "Default Web Site" -v "adminDir","C:\MyDir" Microsoft (R) Windows Script Host Version 5.1 for Windows Copyright (C) Microsoft Corporation 1996-1999. All rights reserved. Input Error: Can not find script file "C:\inetpub\AdminScripts\mkwebd-ir.vbs". C:\> C:\>cscript.exe C:\inetpub\AdminScripts\mkwebdir.vbs -c localhost -w "Default Web Site" -v "adminDir","C:\MyDir" Microsoft (R) Windows Script Host Version 5.1 for Windows Copyright (C) Microsoft Corporation 1996-1999. All rights reserved. 3/10/2005 3:37:40 PM : Accessing root for IIS://localhost/W3svc/1 3/10/2005 3:37:40 PM : Done. ---------- here you see that the c:\> prompt never comes back. Have Msoft changed their vbs files recently or for XP ??? Please Help! Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171399
  - 18
    - Convert binary file to text file? HI! Is possible convert a binary file to text file? Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171398
  - 19
    - Runtime Error Hi! I use the following lines to open a window in IE and insert the text "Invoice no." into Sp1 (an OWC Spreadsheet component imbedded in KFAKT.htm): Dim wnd Set wnd = window.open("KFAKT.htm", "") wnd.Sp1.Range("B10").Value = "Invoice no." Most of the time the code works but sometimes I get an error message - "Object doesn't support this propery or method: 'wnd.Sp1'". Any ideas? Regards PO Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171397
  - 20
    - Set windows file permissions Hi All I have recently changed to a windows 2003 web server and I previously used the ADsSecurity object to set folder permissions on webs that were created using vbscript. Now, I get a cannot create object error and I assume this is because the ADsSecurity.dll does not exist on windows server 2003. I was wandering if I should register this dll with 2003 and if my code should then work or if there is a new way of doing things with windows server 2003. Any advice would be truly welcomed. Thanx in advance Joe Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171391
  - 21
    - Copy and install I need to copy a folder from the network with a program in it. After it has been copyed to the C: it must run the setup file. I can copy it, but cant find the right command to get it to run. Here is my script: ------------------ Set fs = CreateObject ("Scripting.FileSystemObject") fs.CopyFolder "\\Ask\Programmer\NetscreenKlient", "C:\NetscreenKlient" ws.Run ("C:\NetscreenKlient\Setup\setup.exe") ------------------ The ws.Run command is where the error is. What should i use instead. Or do anyone have another way to do this. Best regards Jesper Denmark Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171389
  - 22
    - Tag Base Dear All, i have used the tag base in the head of my page ; <base href="http://yazeed/123/" /> . and my apllication is on "http://Default/" all the images and swf files worked properly , but the problem is that i have a javasript method "window.open(mypage.html)" but it didn't take the effect of the base ; the page opened is "http://Default/mypage.html" instead of "http://yazeed/123/mypage.html" . Anyone can help ???? -- Yazeed .net Developer(c#) -- Yazeed .net Developer(c#) Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171387
  - 23
    - 2 dimensional array Please can anyone help me!! I want to read the contents of a text file into a 2 dimensional array. Each line will have 6 colums of data separated by a comma. So far I,ve got ............ Do Until objTextFile.AtEndofStream strNextLine = objTextFile.Readline MyArray = Split(strNextLine , ",") Loop ..but this is just a 1 dim array ....any pointers thanks in advance *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171386
  - 24
    - Export/Import Registry Across Machines Hello -- I have 5 serves at work that I need to duplicate registry setting on an ongoing basis. Essentially, server 1 will be my master server where my application makes all its changes. I would then like to run a script from server1 that exports the registry and automatically connects and imports the registry on server2, 3, 4, and 5. How can I connect to remote servers from a different server via registry and using .RegRead and .RegWrite from WSH or VB6? Any help or insight would be appreciated. Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171385
  - 25
    - HELP!!!!!!!!!! I'm pulling my hair out here. I have an ASP page which causes an error when loading. The error is... *************************** Error Type: Microsoft VBScript runtime (0x800A01B6) Object doesn't support this property or method /intranet/default.asp, line 66 *************************** The procedure causing the problem in the default.asp page is ****************************************** Sub GetEvents() Dim oApp, clsD, vCls, clsE Dim sEvents Set oApp = Server.CreateObject("Calendar.clsApplication") Set vCls = oApp.GetCalendarMonth(Year(Date()), Month(Date()), vbMonday) For Each clsD In vCls If clsD.TodaysDate = Date Then If clsD.DoesDayHaveEvents Then For Each clsE In clsD %> <li><a href="EventDefault.asp?app=Calendar%20Events"><%=clsE.Title%></a></li> <% Next End If End If Next 'we will always have the last link %> <li><a href="EventDefault.asp?app=Calendar%20Events">Click here to view the calendar</a></li> <% Set clsD = Nothing Set vCls = Nothing Set oApp = Nothing End Sub ****************************************** The actual error line (Line 66) is the line that says:- For Each clsD In vCls This code actually works on our intranet and another developers machine, but does not work on my system (the main development machine) when I run //localhost/intranet/default.asp. When I comment out this routine, it does run. Does anyone have any ideas? Thx Tag: Script to control/allow access to the Internet but allow Intranet Tag: 171382

Would anyone have a ready script or any info on writing a vbscript that will
set a given system's (XP or 2000) Internet Explorer browser to work this way:

Specific username (i.e. JDOE - may have admin rights or not on the local
system)
- Allow ONLY access to the Intranet (but not Internet access)
- Completely no access to the Internet Explorer application at all

Adminstrator(not the group)
- Allow full access/use of the application for Internet and Intranet use.

Thanks in advanced for any info you can provide.

Newbie
ar11z4404@hotmail.com

Top