-
07-01-2010, 13:40 #1
[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 !Het grootste aanbod van detail materiaal in België vind je bij www.carproducts.beno votes
-
-
07-01-2010, 18:05 #2
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
nextHet grootste aanbod van detail materiaal in België vind je bij www.carproducts.beno votes
