vbscript links in no particular order‏

http://www.w3schools.com/Vbscript/default.asplinks

 

links on the left of http://www.activexperts.com/activmonitor/windowsmanagement/

have code

 

http://www.devguru.com/technologies/vbscript/home.asp

 

http://www.functionx.com/vbscript/Lesson01.htm

 

and of course the script center

 

 

serverAudit

serverAudit

sharepoint permisions

“Best” Practices for Permission Management in Windows SharePoint Services 3.0

sharepoint page bookmark workaround

sharepoint page bookmark workaround

Analyze Security Descriptors with searchSd    Download the code for this article: searchSd.exe (126KB)

run .msi files as admin

If you are using Vista with UAC enabled, you may have noticed that some existing MSI packages may not install as expected.
Here's a fix.
The reason is because Windows Installer by default doesn't elevate to higher privileges until it is about to actually start doing work in the install sequence.
The attached .REG file adds a "Run as administrator" option to the context menu for .MSI files. This forces an elevation prompt before the .MSI is run so the entire install session is run with elevated privileges.

this dose not seem to work with .msi's living on network drives once moved to a local drive life is fine

getip

Excel Histograms and Frequency Function. VBA code to create a ...

How to Use the FREQUENCY Function

====================== ie progress msg/bar ==================

Displaying Progess in VBScript

VBScript program demonstrating how to use Microsoft Internet ...

Microsoft Windows 2000 Scripting Guide - Displaying Data by Using ... ie

CodeProject: Use an Internet Explorer Window to Display ...

JSWare - VBScript - Samples and Components

===================== network adaptot settings=================

Assign a Static IP Address

•	Assign the DNS Domain for a Network Adapter

•	Assign the WINS Server for a Network Adapter

•	Enable Dead Gateway Detection for All Network Adapters

•	Enable DHCP

•	Enable DNS on All Network Adapters Enable WINS for All Network Adapters . Send an empty array to the settings errWins = objitem.SetWINSServers() This eliminates the servers. Sample scripts for configuring TCP/IP settings (IP address, DNS Server, WINS Server, etc.) on client computers.

Retrieving Network Configuration Information Sample scripts for retrieving information about TCP/IP settings on client computers.

List Network Adapter Connection Status

Submitted by: Anonymous

'==========================================================================

'

' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 2007

'

' NAME: getGatewayAD

'

' AUTHOR: mmccafferty1 , pps

' DATE : 3/3/2009

'

' COMMENT:

'

'==========================================================================

Sub getGatewayAD()

Set objShell = CreateObject("WScript.Shell")

Set objWshScriptExec = objShell.Exec("ipconfig /all")

Set objStdOut = objWshScriptExec.StdOut

Set objRegEx = CreateObject("VBScript.RegExp")

objRegEx.Global = True

objRegEx.Pattern = "\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}"

While Not objStdOut.AtEndOfStream

strLine = objStdOut.ReadLine

Set colMatches = objRegEx.Execute(strLine)

If InStr(strLine,"Gateway") And colMatches.Count > 0 Then

For Each strMatch in colMatches

Wscript.Echo strMatch.Value

arroctetts = Split(strMatch.Value,".")

Next

WScript.Echo UBound(arroctetts)

End If

Wend

For octett = 0 To UBound(arroctetts)

WScript.Echo octett & " " & arroctetts(octett)

Next

End Sub

Sub pingsubnet()

getGatewayAD

Dim WshShell, WshPing, strPingResults

Set WshShell = WScript.CreateObject("WScript.Shell")

'ping the subnet & put non ping addrs In a file

' Wscript.StdOut.Write strPingIP

For host = 2 To 254

Set WshPing = WshShell.Exec("ping -n 3 -w 1000 " & strPingIP) 'send 3 echo requests, waiting 1 sec each

strPingResults = LCase(WshPing.StdOut.ReadAll)

Next

End sub

Access 2007 Download: Access Runtime

Windows XP and Windows Server 2003 Behavior When Connected to Both Wired and Wireless Networks

How Can I Tell If a Wireless Network Adapter is Connected to the Network?

Querying wireless status in Windows with VBScript and WMI

MSNdis_80211_ServiceSetIdentifier

How Do I Find Information About the Network Adapter Cards on My Computer?
vba-ping

Function PingSilent(strComputer)




Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._

ExecQuery("select * from Win32_PingStatus where address = '"_

& strComputer & "'")



For Each objStatus in objPing

If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then

'WScript.Echo("Computer " & machine & " is not reachable")

PingSilent = 0

Else

'WScript.Echo("Computer " & machine & " is Live")

PingSilent = 1

End If

Next



End Function


IcmpSendEcho: Ping a Machine by IP Address