Archief - [script CDM / VBS] + ip adres / drive map vraag

ik hoop dat iemand me verder op weg kan zetten ...

ik heb een cmd file die op het einde van m'n unattended xp cd op het bureaublad geplaatst wordt

het enige wat die file nu doet is een kijken of hij een connectie kan maken naar een bepaalde server en indien ja maakt hij een drivemap

stukje uit cmd script :

ping 192.168.x.x | find /i "bytes=" > nul
if %ErrorLevel%==0 goto ok
if %ErrorLevel%==1 goto fout

onder ok wordt er dan een drive map aangemaakt met de nodige credentials
onder 'fout' krijg ik een pop-up met een error melding

so far so good ...

nu beschikken we hier over 8 verschillende vestigingen , weliswaar verbonden met elkaar ( met als gevolg dat de pc ALTIJD naar dat adres kan pingen en de drivemap ALTIJD kan aangemaakt worden ) alleen is dat niet zo interessant aangezien altijd alle benodigde te installeren software over ons adsl netwerk te pompen ... + lokaal hebben we in elke site ook servers staan waar ik de software kan zetten , zodat deze 'lokaal' per site kan geïnstalleerd worden...

dus ben ik op zoek naar hulp omtrent de bepaling van het ipadres van de desbetreffende te herinstalleren pc

wanneer de pc :
ip adres 192.168.50.x krijgt ( DHCP ) dan ping -> 192.168.50.200 -> indien ok -> blablabla , indien fout -> blablabla
ip adres 192.168.60.x krijgt ( DHCP ) dan ping -> 192.168.60.200 -> indien ok -> blablabla , indien fout -> blablabla
ip adres 192.168.70.x krijgt ( DHCP ) dan ping -> 192.168.70.200 -> indien ok -> blablabla , indien fout -> blablabla

enz..

alvast bedankt !

ok , kheb ondertussen al gevonden hoe ik het ip adres alleen kan opslaan in een bepaalde file ,dit vbs script roep ik dan even op van uit de 'software install batch file' ... moet wel het ip-adres nog aanpassen naar de gateway want die ligt op elke site vast en dat maakt het dan weer makkelijker om deze nadien in een script vast te gaan gebruiken ( ipv het 3e segment van het DHCP ip-adres te gaan ontleden )



Dim objFSO, objFolder, objFile, objWMI, objItem ' Objects
Dim strComputer, strFileName, strFileOpen, strFolder, strPath
Dim intEvent,colLoggedEvents, IPAddress


' --------------------------------------------------------
' Set the folder and file name
strComputer = "."
strFileName = "\ip.bat"
strFolder = "c:\logs"
strPath = strFolder & strFileName


' -----------------------------------------------------
' Section to create folder and hold file.
' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Check that the strFolder folder exists
If objFSO.FolderExists(strFolder) Then
Set objFolder = objFSO.GetFolder(strFolder)
Else
Set objFolder = objFSO.CreateFolder(strFolder)
' WScript.Echo "Just created " & strFolder
End If

If objFSO.FileExists(strFolder & strFileName) Then
Set objFolder = objFSO.GetFolder(strFolder)
Else
Set objFile = objFSO.CreateTextFile(strFolder & strFileName)
' Wscript.Echo "Just created " & strFolder & strFileName
End If

set objFile = nothing
set objFolder = nothing

' ----------------------------------------------------
Set strFileOpen = objFSO.CreateTextFile(strPath, True)

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True",,4
For Each objItem in colItems
If objItem.IPAddress(0) <> "0.0.0.0" THEN
strFileOpen.WriteLine "IPAddress: " & Join(objItem.IPAddress, ",")
EXIT FOR
end if
next